% > <PDriver$Dir>.PStprolog
% PostScript prologue file for simple text printing
% Version 1.00, first used with version 1.03 of the !PrinterPS application

/StartPage {                            % Start of page routine. Wants the
 save 7 1 roll                          % following values on the stack:
 neg /RH exch def                       %   X translation in decipoints
 /CW exch def                           %   Y translation in decipoints
 dup                                    %   Rotation in degrees
 PDfont.Normal exch scalefont           %   Font size in decipoints
 /NF exch def                           %   Character width in decipoints
 PDfont.Bold exch scalefont             %   Row spacing in decipoints
 /BF exch def                           % The transformations are applied
 0.1 dup scale                          % in the order: scale to decipoints,
 rotate                                 % given rotation, given translation.
 translate
} bind def

/EndPage {                              % End of page routine. No stack
 restore                                % requirements or effects.
 showpage
} bind def

/S {                                    % Routine to print a string at a
 CW mul exch RH mul moveto              % given character position.
 show                                   % - expects string, row number,
} bind def                              %   character number on the stack.

/B {BF setfont S} bind def              % Like "S", but first set bold font

/N {NF setfont S} bind def              % Like "S", but first set normal font

/T {TF setfont S} bind def              % Like "S", but first set title font

% Font setup code

/ChkCh {
 dup Encoding exch get
 dup /.notdef eq {
  pop Encoding exch /ellipsis put
 }{
  CharStrings exch known {pop} {Encoding exch /ellipsis put} ifelse
 } ifelse
} bind def

/FF {
 findfont begin
  currentdict dup maxlength 1 add dict begin
   {1 index /FID ne {def} {pop pop} ifelse} forall
   /Encoding Latin1Enc 256 array copy def
   /Metrics 1 dict def
   Metrics /.notdef 0 put
% Possible change: Delete or comment out the following line if you
% want undefined PostScript characters to generate errors rather than
% generate an ellipsis.
   0 1 255 /ChkCh load for
   dup currentdict
  end
 end
 definefont def
} bind def

/PDfont.Normal /Courier FF
/PDfont.Bold /Courier-Bold FF

/TF PDfont.Bold 100 scalefont def
