program rotate2
   implicit none
   character s*10,c
   integer i
   real(4) x,y,dt
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(-1.0,-1.0,1.0,1.0)
   s='Postscript'
   call rotate(60.0)
   do i=1,10
      dt=-120.0/9.0
      x=0.0
      y=0.8
      c=s(i:i)
      call text1(x,y,c)
      call rotate(dt)
   end do
   call rotate(-dt*10.0)
   call rotate(-60.0)
   call fin
   stop
   end