! Copyright 2004 Ray Ontko & Co.  All rights reserved.

begin-program
   print 'horizontal' (5,5)
   print-direct printer=ps '270 rotate'           ! Rotate 270 degrees
   print-direct printer=ps '-792 -205 translate'


   print 'vertical' (3,3)
   print-direct printer=ps '90 rotate'            ! Rotate back to 0
   print-direct printer=ps '205 -792 translate'

   print 'Horizontal again' (6,5)
   print-direct printer=ps '/Courier findfont [12 0 0 -12 0 0] makefont setfont'
   print 'Mirror Writing' (7,5)
end-program