C PLOTTER TEST PROGRAM
C
C
C
 1000 WRITE (1,1001)
 1001 FORMAT (13HPLOTTER TEST!)
C
 1005 DO 6000 J=1,300
C
 1010 CALL PL$U
 1011 CALL PL$U
 1050 CALL PL$PD
C
 1100 DO 2000 I=1,50
 1200 CALL PL$R
 2000 CONTINUE
C
 2050 CALL PL$PU
 2100 CALL PL$U
 2150 CALL PL$U
 2170 CALL PL$PD
C 
 2200 DO 3000 N=1,50
 2300 CALL PL$L
 3000 CONTINUE
C
 3100 CALL PL$PU
C
 6000 CONTINUE
CCCCCCCCCC
CCCCCCCCCC
11005 DO 16000 J=1,10
C
11010     CALL PL$R
11011     CALL PL$R
11050     CALL PL$PD
C     
11100     DO 12000 I=1,40
11200        CALL PL$D
12000     CONTINUE
C     
12050     CALL PL$PU
12100     CALL PL$R
12150     CALL PL$R
12170     CALL PL$PD
C     
12200     DO 13000 N=1,40
12300        CALL PL$U
13000     CONTINUE
C     
13100     CALL PL$PU
C     
16000     CONTINUE
C     
 6500     CALL REBOOT
 6600     GO TO 1005
C     
 7000     END
$0