C PLOTTER TEST PROGRAM
C
C
      CALL PL$RST
      CALL PL$PD
      CALL PL$MV(605,0)
      CALL PL$MV(605,95)
      CALL PL$MV(0,95)
      CALL PL$MV(0,0)
      CALL PL$MV(1,1)
      CALL PL$MV(604,1)
      CALL PL$MV(604,94)
      CALL PL$MV(1,94)
      CALL PL$MV(1,1)
      CALL PL$PU
      CALL PL$MV(10,10)

      DO 1000 I=1,10
      CALL PL$RST
      CALL PL$PD
      CALL PL$MV(0,50)
      CALL PL$MV(25,75)
      CALL PL$MV(50,50)
      CALL PL$MV(0,50)
      CALL PL$MV(50,0)
      CALL PL$MV(50,50) 
      CALL PL$MV(0,0)
      CALL PL$MV(50,0)
      CALL PL$PU
      CALL PL$MV(55,0)
 1000 CONTINUE
      CALL PL$MV(-595,-10)
C
C
10000 CALL REBOOT     
      END
$0