program rotate1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call text(0.5,0.0,'PostScript')
   call rotate(30.0)
   call text(0.5,0.0,'PostScript')
   call rotate(30.0)
   call text(0.5,0.0,'PostScript')
   call rotate(30.0)
   call text(0.5,0.0,'PostScript')
   call rotate(-90.0)
   call fin
   stop
   end