Topspeed_JPI/JPI-1/Pas/PAGE.PAS

program page;

(* Program to test translation of file types *)

const Page_header =  '                                 Page ';

var Filename : STRING[14];
    SourceFile : TEXT;
    Line : STRING[255];
    Page_length, Count, Page_num,
    I : INTEGER;

begin
    write('Enter filename to print ');
    readln(Filename); writeln;
    Assign(SourceFile,Filename);
    (*$I-*) Reset(SourceFile); (*$I+*)
    if IOresult = 0
    then begin
        repeat
            write('Enter page length ');
            readln(Page_Length); writeln;
        until Page_Length > 0;
        Count := 0;
        Page_Num := 1;

        while not EOF(SourceFile) do begin 
            readln(SourceFIle,Line);
            Count := Count + 1 + Length(Line) DIV 80;
            if Count >= Page_Length then begin
                writeln(LST); writeln(LST);
                writeln(LST,Page_Header,Page_Num);
                writeln(LST,^L);
                Page_Num := Page_Num + 1;
                Count := 0; (* Reset counter *)
            end;
            writeln(LST,Line);
        end;
        (* Print last page number *)
        for I := Count+1 to Page_Length do
            writeln(LST);
        writeln(LST,Page_Header,Page_Num);
        writeln(LST,^L);

        Close(SourceFile)
    end
    else writeln('Sorry I cannot find file ',Filename);
end.