Dec [txt],[htm],[a],[text]
%neu
Echo Textfile: 
Input [txt]
FileExists [txt]
If [errorcode]='0' Goto filenotfound
Echo HTML-file: 
Input [htm]
Let [a]=1
Echo Generating HTML...
NewFile [htm]
WriteFile [htm]:'<html>'
%next
Readfile [text]=[txt]:[a]
If [text]='EOF' goto haveeof 
CalcVar [a]=[a]+'1'
CutFrac [a]=[a]
LinkVar [text]=[text]+'<br>'
WriteFile [htm]:[text]
Goto next
%haveeof 
WriteFile [htm]:'</html>'
EchoLn Ok 
Wait
Exit

%filenotfound
EchoLn Error :-(
Goto neu
end