Printing footer of list of examples

Mathematica program

(* Printing footer of list of examples *)

of = indf;
"</TABLE>" // p;
"<TABLE><TR ALIGN=\"CENTER\">" // p;
"<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"proglist.htm\"><I>Mathematica</I> programs for printing these web pages</A></TD>" // p;
"<TD ALIGN=\"CENTER\" VALIGN=\"TOP\"><IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=43 ALT=\"Blank\"></TD>" // p;
"<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"../index.htm\">Work in UMassD</A></TD>" // p;
"<TD ALIGN=\"CENTER\" VALIGN=\"TOP\"><IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=43 ALT=\"Blank\">" <>
   "<IMG SRC=\"../../waste.gif\" WIDTH=32 HEIGHT=43 ALT=\"Waste icon\"></TD>" // p;
"<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"../../reports.htm\">Unpublished reports</A></TD>" // p;
"</TR></TABLE>" // 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 *)
plist = "
</TABLE>
<BR>
<TABLE><TR ALIGN=\"CENTER\">
<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"../mollerpl/index.htm\">List of examples of MP series</A></TD>
<TD ALIGN=\"CENTER\" VALIGN=\"TOP\"><IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=43 ALT=\"Blank\"></TD>
<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"../index.htm\">Work in UMassD</A></TD>
<TD ALIGN=\"CENTER\" VALIGN=\"TOP\"><IMG SRC=\"../../../blank.gif\" WIDTH=32 HEIGHT=43 ALT=\"Blank\"><IMG SRC=\"../../waste.gif\" WIDTH=32 HEIGHT=43 ALT=\"Waste icon\"></TD>
<TD ALIGN=\"CENTER\" VALIGN=\"CENTER\"><A HREF=\"../../reports.htm\">Unpublished reports</A></TD>
</TR></TABLE>
<P><FONT SIZE=\"-2\">Designed by <A HREF=\"../../../index.htm\">A. Sergeev</A></FONT>.</P></BODY></HTML>
</BODY>
</HTML>";
Write[oproglist, plist];
Close[oproglist];

All Mathematica programs used to study M. - P. series Blank Work in UMassD BlankWaste icon Unpublished reports

Designed by A. Sergeev.