function [] = frmwrt3(filename)
% [] = frmwrt3(filename)
% Just writing a few lines of HTML code to a prededfined content.
fid = fopen(filename,'w');
[gif_file,dirloc,col] = iniread3;
fprintf(fid,'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> \n');
fprintf(fid,'<HTML> \n');
fprintf(fid,'<HEAD> \n');
fprintf(fid,' <TITLE></TITLE> \n');
fprintf(fid,' <META NAME="Author" CONTENT="HTML Toolbox (C) by B.K. Alsberg, 1997 "> \n');
fprintf(fid,'</HEAD> \n');
if length(gif_file) >0,
background = ['<BODY BACKGROUND="',dirloc,gif_file,'">'];
fprintf(fid,'%s \n',background);
end;
fprintf(fid,'<BODY> \n');
fprintf(fid,'<CENTER><P> \n');
fprintf(fid,'<HR WIDTH="100%%"><FONT SIZE=+4>Index file</FONT> \n');
fprintf(fid,'<HR WIDTH="100%%"></P></CENTER> \n');
fprintf(fid,'<FONT SIZE=+4></FONT> \n');
fprintf(fid,'%s \n','<HR WIDTH="100%"></P>');
fprintf(fid,'%s \n','<HR WIDTH="100%"></P>');
fprintf(fid,'</BODY> \n');
fprintf(fid,'</HTML> \n');
fclose(fid);
