{ for PRINT version 1.11 - 17-may-1986:rjr }
{ for PRINT version 1.20 - 31-may-1986:rjr }

procedure Initialize;
var
   i : integer;
begin
     Page_length   := 66;
     Top_Margin    :=  3;
     Bottom_Margin :=  8;
     Header_Margin :=  2;
     Footer_Margin :=  2;
     Page_Col_Num  := 33;
     Page_Num      :=  0;
     Line_Num      :=  1;

     Init_Print;
     Header_Text   := '';
     Footer_Text   := '';
     for i := 1 to Page_Col_Num {- Page_Offset} do
        Footer_Text := Footer_Text + ' ';
     Footer_Text := Footer_Text + Page_Marker;

     Status    := Def_Status;
     HE_Status := Status;
     FO_Status := Status;

end;


procedure WriteAt(x,y : integer; msg : TextLine);
begin
     GotoXY(x,y);
     write(msg);
end;

procedure InitScreen(filename : cmdlinetype);
var i : integer;
begin
     ClrScr;
     NormVideo;
     WriteAt(11,2,'P R I N T   F O R M A T T E R');
     WriteAt(11,3,'=============================');
     LowVideo;
     WriteAt(12,5,'Printer Config:');
     WriteAt(12,7,'Now Printing: ');
     WriteAt(12,9,'page:              line: ');
     GotoXY(1,11);
     Writeln('Status Line...');
     for i := 65 to 90 do
        write(chr(i),' ');

     NormVideo;
     WriteAt(28, 5,PrinterType);
     WriteAt(26, 7,filename);

end;