Commit | Line | Data |
fcb7b340 |
1 | C PLOTTER TEST PROGRAM |
2 | C |
3 | C |
4 | CALL PL$RST |
eabafcca |
5 | CALL PL$SCI(100) |
6 | CALL PL$ROI(30) |
fcb7b340 |
7 | CALL PL$PD |
110cf2ab |
8 | CALL PL$MV(605,0) |
9 | CALL PL$MV(605,95) |
fcb7b340 |
10 | CALL PL$MV(0,95) |
11 | CALL PL$MV(0,0) |
12 | CALL PL$MV(1,1) |
110cf2ab |
13 | CALL PL$MV(604,1) |
14 | CALL PL$MV(604,94) |
fcb7b340 |
15 | CALL PL$MV(1,94) |
16 | CALL PL$MV(1,1) |
17 | CALL PL$PU |
18 | CALL PL$MV(10,10) |
19 | |
20 | DO 1000 I=1,10 |
21 | CALL PL$RST |
22 | CALL PL$PD |
23 | CALL PL$MV(0,50) |
24 | CALL PL$MV(25,75) |
25 | CALL PL$MV(50,50) |
26 | CALL PL$MV(0,50) |
27 | CALL PL$MV(50,0) |
28 | CALL PL$MV(50,50) |
29 | CALL PL$MV(0,0) |
30 | CALL PL$MV(50,0) |
31 | CALL PL$PU |
047c458f |
32 | CALL PL$MV(55,0) |
fcb7b340 |
33 | 1000 CONTINUE |
110cf2ab |
34 | CALL PL$MV(-595,-10) |
fcb7b340 |
35 | C |
36 | C |
37 | 10000 CALL REBOOT |
38 | END |
39 | $0 |