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