%PS%
QSdict begin
/BotMrg 25.4 MM def             % 1.0 Inch

/PrPagNum
  { IncPagNum PagCnt 1 gt NumberIt and
    { gsave WordWid SaveTempState 0 mark
      HdrPre UseKwds pop pop        %% set header font
      /PagNum PagCnt TmpS cvs def   %% convert page number to integer
      PagNumPos PagNum show
      PagHeadPos PagStr showStr
      RestoreStates pop pop RestoreTempState /WordWid exch store grestore} if
  } def

        % - PagNumPos -       Move to position for page number.
/PagNumPos                    % Centred at bottom
  { RgtBnd LftMrg add PagNum stringwidth pop sub 2 div 
    BotMrg HdrSpa 2 mul sub   moveto } def

        % - PagHeadPos -       Move to position for page header.
/PagHeadPos                    % Centred at top
  { RgtBnd LftMrg add PagStr MeasureStr sub 2 div 
    PagLen TopMrg sub HdrSpa add   moveto } def
end
PE