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.