%PS%
/Tit1 () def
/Tit2 () def
% /Tit1 (University of Wooloomooloo) def
% /Tit2 (Department of Leisure) def

QSdict begin
/PagStr() def
/PrPagNum
  {  gsave WordWid SaveTempState 0 mark 
            % put a nice border around the page
       newpath 60 36 moveto 
       PagWid 60 sub 60 24 -90 0 arc PagWid 60 sub PagLen 60 sub 24 0 90 arc 
       60 PagLen 60 sub 24 90 180 arc 60 60 24 180 270 arc closepath
       stroke 
       HdrFnt setfont
       IncPagNum  PagCnt 1 gt NumberIt and
       { 
            % convert page number to integer
         /PagNum PagCnt TmpS cvs store
         PagNumPos PagStr show PagNum show
       } if
       65 26 moveto  Tit1 show 
       65 PagLen 34 sub moveto Tit2 show
     RestoreStates pop pop RestoreTempState /WordWid exch store grestore
  } def
end
PE