SUBROUTINE  PLTFM (X,Y,R,PL)

C     [FIDUCIAL MARK]
C     (X,Y)     CENTER OF MARK
C     R         RADIUS OF MARK
C     PL        PEN MOVEMENT SUBROUTINE
C     [25-APR-74]

      CALL PL (X  ,Y  ,.FALSE.)
      CALL PL (X-R,Y  ,.TRUE.)
      CALL PL (X+R,Y  ,.TRUE.)
      CALL PL (X  ,Y  ,.TRUE.)
      CALL PL (X  ,Y-R,.TRUE.)
      CALL PL (X  ,Y+R,.TRUE.)
      CALL PL (X  ,Y  ,.TRUE.)
      RETURN

      END