/*
Iulian Radu [v2.0@07.1999]
*/
void mkhtmlh(){ /*use fh global*/
if(!fh) return;
fprintf(fh,"<HTML>\n");
fprintf(fh,"<HEADER>\n");
fprintf(fh,"<TITLE>\n");
if(title[0]) fprintf(fh,title);
else fprintf(fh,btxt[0]);
fprintf(fh,"</TITLE>\n");
fprintf(fh,"</HEADER>\n");
if(body[0]) fprintf(fh,"<BODY %s>\n",body);
else fprintf(fh,"<BODY>\n");
}
void closehtml(){ /*use fh global*/
int i;
if(!fh) return;
for(;identl;identl--){
for(i=1;i<identl;i++) fprintf(fh,"\t");
fprintf(fh,"</UL>\n");}
fprintf(fh,"</BODY>\n");
fprintf(fh,"</HTML>\n");
fclose(fh);
fh=NULL;
}