%
function status=create_texinfo_init_file(filename)

	fd = fopen (filename, "w");

	fprintf (fd,"use strict;\n");
 	fprintf (fd,"\n");
	fprintf (fd,"set_from_init_file(\'PRE_BODY_CLOSE\', \"<a class=\\\"sf-logo\\\" \\\n");
	fprintf (fd,"href=\\\"http://sourceforge.net/\\\"><img width=\\\"120\\\" height=\\\"30\\\" \\\n");
	fprintf (fd,"style=\\\"border:0\\\" alt=\\\"Sourceforge.net Logo\\\" \\\n");
	fprintf (fd,"src=\\\"http://sourceforge.net/sflogo.php?group_id=2888&amp;type=13\\\" /></a>\");\n");
	fprintf (fd,"\n");
	fprintf (fd,"set_from_init_file(\'TOP_NODE_UP_URL\',\'../index.html\');\n");
 	fprintf (fd,"\n");
	status=fclose(fd);

end


%	fprintf (fd,"set_from_init_file(\'EXTRA_HEAD\', \"\\\n");
%	fprintf (fd,"  <STYLE> #jsMath_Warning {display: none} </STYLE>\\\n");
%	fprintf (fd,"  <SCRIPT SRC=\\\"../../jsMath/easy/load.js\\\"></SCRIPT>\");\n");
% 	fprintf (fd,"\n");
