% APL.68000 PostScript Printer Header File - Inserted after font file
% 01/02/93 SDM - Initial version
% 06/12/00 RPN - Reduced left & top margin somewhat

% Page layout variables 
/psMaxRow 55 def			% Max rows per page
/psFontSize 330 def			% Font size
/psXScale 72 2400 div def		% X scaling
/psYScale 72 2160 div def		% Y "" ""  
/psTopLine 22880 def			% Y Position of first row
/psLineHeight 360 def			% Line height
/psLeftMargin 2200 def			% Left margin offset

% Procedure definitions
/sh {show} def

% Define <New-Line> procedure
/nl {
    /row row 1 add def			% Bump row count and set position
    row psMaxRow ge			% Done a full page ? If so, start a new 
	{ newpage }			% one, else start a new row
	{ psLeftMargin psTopLine row psLineHeight mul sub moveto } ifelse
} def

% Define page setup procedure
/startpage {
    /row 0 def				% Reset row counter
    psXScale psYScale scale		% Set scaling 
    psLeftMargin psTopLine moveto	% Move to first row
} def

%% Define <Form-Feed> procedure
/newpage {
    showpage				% Eject previous page
    startpage				% Begin a new one
} def

%%%% Start of the real preamble
/APL-2741 findfont psFontSize scalefont setfont
startpage

