Commit | Line | Data |
---|---|---|
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 |