%!GS-5.10
% simple business cards for Avery 8371
/inch {72 mul} bind def
/showto { % (string -) display string up to currentpoint
 gsave dup stringwidth pop neg 0 rmoveto show grestore
} bind def
/bizcard {
 gsave
  0.65 inch -0.95 inch rmoveto % headline
  gsave
   /Helvetica 12 selectfont
   gsave 0.2 0 (Intelligent Control Technologies) ashow grestore 0 -12 rmoveto
   /Helvetica 7.9 selectfont
   gsave (Computer Training and Programming, Networking) show grestore
  grestore
 grestore
 gsave
  0.35 inch -0.25 inch rmoveto % upper left
  gsave
   /Helvetica 8 selectfont
   gsave (John Otis Comeau) show grestore 0 -10 rmoveto
   gsave (jcomeau@world.std.com) show grestore 0 -10 rmoveto
   gsave (954-270-3859) show grestore
  grestore
 grestore
 gsave
  3.45 inch -1.75 inch rmoveto % lower right
  gsave
   /Helvetica 8 selectfont
   gsave (Industrial and Office Automation) showto grestore 0 10 rmoveto
   gsave (HTML and CGI Programming Instruction) showto grestore 0 10 rmoveto
   gsave (Modern to Obsolete and Arcane Systems) showto grestore 0 10 rmoveto
  grestore
 grestore
} bind def
/onerow {
 gsave bizcard 3.5 inch 0 inch rmoveto bizcard grestore
} bind def
0.75 inch 10.5 inch moveto % top left card on form
5 {gsave onerow grestore 0 inch -2 inch rmoveto} repeat
showpage