tests/test37.out

   1 %!PS-Adobe-2.0
   2 statusdict /setduplexmode known {
   3   false statusdict /setduplexmode get exec
   4 } if
   5 /Ps     10 def
   6 /SPs    7 def
   7 /Lh     11 def
   8 /Rm     575 def
   9 /Tm     746 def
  10 /Bh     15 def
  11 /Bf     15 def
  12 /CF     /Courier findfont Ps scalefont def
  13 /IF     /Courier-Oblique findfont Ps scalefont def
  14 /BF     /Courier-Bold findfont Ps scalefont def
  15 /CFs    /Courier findfont SPs scalefont def
  16 /IFs    /Courier-Oblique findfont SPs scalefont def
  17 /BFs    /Courier-Bold findfont SPs scalefont def
  18 /HF     /Helvetica findfont Ps scalefont def
  19 /Li 0 def
  20 /Nl     { /Vpos Vpos Lh sub def } def
  21 /Lpt    { 0 Vpos moveto } def
  22 /Gb     {
  23                 } def
  24 /Ip     { Gb .5 setlinewidth
  25                 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath
  26                 gsave .98 setgray fill grestore stroke
  27                 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath
  28                 gsave .98 setgray fill grestore stroke
  29                 0 Bf moveto 0 Tm Bh sub lineto stroke newpath
  30                 } def
  31 /Cp     { Ip .3 setlinewidth newpath
  32                 Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath
  33                 } def
  34 /So     { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def
  35 /Ul     { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def
  36 /Bs     { gsave dup show grestore 0.5 0.5 rmoveto show } def
  37 <</PageSize [605 806]>> setpagedevice
  38 %%Page: Cover 1
  39 70 70 moveto
  40 /Helvetica findfont 10 scalefont setfont
  41 (Trueprint 3.6.5) show
  42 70 725 moveto
  43 /Helvetica-Bold findfont 20 scalefont setfont
  44 (For: testuser) show
  45 70 700 moveto
  46 (Printed on: Fri Apr 16 03:00:00 1982) show
  47 70 675 moveto
  48 (Last page number: 1) show
  49 70 650 moveto (File: test21) show
  50 showpage
  51 %%Page: 1 2
  52 15 30 translate
  53 Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def
  54 Ps Ypos moveto
  55 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto
  56 (Page 1 of 1) show
  57 exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto
  58 () show
  59 HF setfont /Ypos Ps 2 div def
  60 Ps Ypos moveto
  61 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto
  62 (Page 1 of 1) show
  63 exch sub 2 div add (test21 1) stringwidth pop 2 div sub Ypos moveto
  64 (test21 1) show
  65 /Vpos Tm Bh sub Ps sub def
  66 Lpt CFs setfont ( ) show (     This is a file) CF setfont show  Nl
  67 Lpt CFs setfont ( ) show (          with a lot of) CF setfont show  Nl
  68 Lpt CFs setfont ( ) show (tabs in it mixed    with various   other) CF setfont show  Nl
  69 Lpt CFs setfont ( ) show (     things like    spaces and     so on.) CF setfont show  Nl
  70 showpage
  71 %%Trailer
  72 %%EOF