%!PS

/numpages     1   def
/numlines     32  def
/linedistance 20  def
/linewidth    0.1 def
/linelength   500 def
/marginleft   50  def
/top          700 def
% (by default, all units are in points, i.e. 1/72 inch)

linewidth setlinewidth

1 1 numpages {
  pop
  /y top def
  1 1 numlines {
     pop
     marginleft y moveto linelength 0 rlineto
     stroke
     /y y linedistance sub def
  } for
  showpage
} for