SUBROUTINE  PLTPO (T,R,P)

C     [POLAR]
C     CHANGE (T,R) TO (X,Y) PERMITTING PEN MOVEMENTS TO BE DEFINED
C     DIRECTLY IN POLAR COORDINATES.
C     0.0.LE.T.LE.1.0 FILLS THE PAGE
C     0.0.LE.R.LE.1.0 FILLS THE PAGE
C     [19-MAY-74]

      LOGICAL*1     P
      DATA        HX,HY/4.50,3.25/

      S=HY*R
      U=6.28318*T
      CALL PLTMS (S*COS(U),S*SIN(U),P)
      RETURN

      END