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