%PS%
QSdict begin
/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
      PagCnt 2 mod 0 eq 
       {LftNumPos PagNum show (  ) show PagStr showStr}
       {PagNumPos PagStr showStr PagNum show} ifelse
      RestoreStates pop pop RestoreTempState /WordWid exch store grestore} if
  } def

        %% - LftNumPos -       Move to position for left page number.
/LftNumPos
  { LftMrg  PagLen TopMrg sub HdrSpa add   moveto }def
end
PE