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