Printing footer of list of examples

(* Printing footer of list of examples *)

of = indf;
"</TABLE>" // p;

refbar0 = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD NOWRAP>
<A HREF=\"proglist.htm\">
<IMG SRC=\"../../../iconz/mathemat.gif\" WIDTH=17 HEIGHT=16 BORDER=0 ALIGN=\"MIDDLE\" ALT=\"Source code of Mathematica program\">
<IMG SRC=\"../../../blank.gif\" WIDTH=5 HEIGHT=1 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Blank\"><I>Mathematica</I> programs for printing these web pages</A>
<IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=1 ALT=\"Blank\">
<A HREF=\"../index.htm\">
<IMG SRC=\"../../../iconz/whale.gif\" WIDTH=40 HEIGHT=35 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Work in UMass Dartmouth\">Work in UMassD</A>
<IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=1 ALT=\"Blank\">
<A HREF=\"../../reports.htm\">
<IMG SRC=\"../../waste.gif\" WIDTH=32 HEIGHT=43 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Waste icon\">Unpublished reports</A>
</TD></TR></TABLE>";
refbar0 = StringReplace[refbar0, "> <"->"><"];
refbar0 // p;
"<P><FONT SIZE=\"-2\">Designed by <A HREF=\"../../../index.htm\">A. Sergeev</A></FONT>.</P></BODY></HTML>" // p;
close[indfile];

printprogr["indfoot"];

(* Footer of list of Mathematica programs *)
of = oproglist;
"</TABLE>
<BR>" // p;

refbar1 = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\"><TD NOWRAP>
<A HREF=\"index.htm\">
<IMG SRC=\"../../../iconz/molec1.gif\" WIDTH=36 HEIGHT=41 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Molecule - icon for Allen-data\">
<IMG SRC=\"../../../blank.gif\" WIDTH=2 HEIGHT=1 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Blank\">Examples of MP series</A>
<IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=1 ALT=\"Blank\">
<A HREF=\"../index.htm\">
<IMG SRC=\"../../../iconz/whale.gif\" WIDTH=40 HEIGHT=35 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Work in UMass Dartmouth\">Work in UMassD</A>
<IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=1 ALT=\"Blank\">
<A HREF=\"../../reports.htm\">
<IMG SRC=\"../../waste.gif\" WIDTH=32 HEIGHT=43 BORDER=0 ALIGN=\"ABSMIDDLE\" ALT=\"Waste icon\">Unpublished reports</A>
</TD></TR></TABLE>";
refbar1 = StringReplace[refbar1, "> <"->"><"];
refbar1 // p;
"<P><FONT SIZE=\"-2\">Designed by <A HREF=\"../../../index.htm\">A. Sergeev</A></FONT>.</P></BODY></HTML>
</BODY>
</HTML>" // p;
close[proglistfile];