a_rnd := random(10);
    for i:=1 to length(tmpl) do
     if random(40)<a_rnd then
       tmpl[i]:=chr(ord('a')+random(26));
    write(htmlf,tmpl);
    write(htmlf,'</a>');
    for i:=1 to random(3) do write(htmlf,'<br>');
    write(htmlf,'</font>');
    if bold then write(htmlf,'</b>');
    if italic then write(htmlf,'</i>');
    write(htmlf,'</p>');
    writeln(htmlf);
  end;
  3:  (* textbox, manchmal mutiert *)
  begin