Download windows version here
Home
program PasToHtm; { v 0.01 }
{ Under GNU License }
{ this program converts a }
{ pascal page in a web page }
{ JOAO PAULO SCHWARZ SCHULER }
{ http://www.schulers.com }
{ Turbo Pascal Source }
{ Free Pascal Source for DOS }
{ Free Pascal Source for Linux }
uses UPasHtm,crt,UMem;
begin
if paramcount<>2
then begin
WriteLn('USAGE: pastohtm myfile.pas newfile.htm');
end
else If FileExists(ParamStr(2))
then WriteLn(ParamStr(2),' already exists!')
else if FileExists(ParamStr(1))
then ConvertPasToHtm(ParamStr(1),ParamStr(2))
else WriteLn('Invalid source:',ParamStr(1));
end.