[h316.git] / programs / plotter / src / plottest.f

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
Commit	Line	Data
fcb7b340	1	C PLOTTER TEST PROGRAM
	2	C
	3	C
	4	C
	5	1000 WRITE (1,1001)
	6	1001 FORMAT (13HPLOTTER TEST!)
	7	C
	8	1005 DO 6000 J=1,300
	9	C
	10	1010 CALL PL$U
	11	1011 CALL PL$U
	12	1050 CALL PL$PD
	13	C
	14	1100 DO 2000 I=1,50
	15	1200 CALL PL$R
	16	2000 CONTINUE
	17	C
	18	2050 CALL PL$PU
	19	2100 CALL PL$U
	20	2150 CALL PL$U
	21	2170 CALL PL$PD
	22	C
	23	2200 DO 3000 N=1,50
	24	2300 CALL PL$L
	25	3000 CONTINUE
	26	C
	27	3100 CALL PL$PU
	28	C
	29	6000 CONTINUE
	30	CCCCCCCCCC
	31	CCCCCCCCCC
	32	11005 DO 16000 J=1,10
	33	C
	34	11010 CALL PL$R
	35	11011 CALL PL$R
	36	11050 CALL PL$PD
	37	C
	38	11100 DO 12000 I=1,40
	39	11200 CALL PL$D
	40	12000 CONTINUE
	41	C
	42	12050 CALL PL$PU
	43	12100 CALL PL$R
	44	12150 CALL PL$R
	45	12170 CALL PL$PD
	46	C
	47	12200 DO 13000 N=1,40
	48	12300 CALL PL$U
	49	13000 CONTINUE
	50	C
	51	13100 CALL PL$PU
	52	C
	53	16000 CONTINUE
	54	C
	55	6500 CALL REBOOT
	56	6600 GO TO 1005
	57	C
	58	7000 END
	59	$0