&get_script;
&get_fonts;
open(TL,"$path_to_lang/$thislang/formwizard.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
$forms_file=$htm."/formwizard.txt";
print "Content-type: text/html\n\n";
open(FW,"$forms_file");
while(<FW>){
s/\$(\w+)/${$1}/eg;
print
}
1;