... / ...
Commit | Line | Data |
| 1 | C PLOTTER TEST PROGRAM |
| 2 | C |
| 3 | C |
| 4 | CALL PL$RST |
| 5 | CALL PL$PD |
| 6 | CALL PL$MV(605,0) |
| 7 | CALL PL$MV(605,95) |
| 8 | CALL PL$MV(0,95) |
| 9 | CALL PL$MV(0,0) |
| 10 | CALL PL$MV(1,1) |
| 11 | CALL PL$MV(604,1) |
| 12 | CALL PL$MV(604,94) |
| 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 |
| 30 | CALL PL$MV(55,0) |
| 31 | 1000 CONTINUE |
| 32 | CALL PL$MV(-595,-10) |
| 33 | C |
| 34 | C |
| 35 | 10000 CALL REBOOT |
| 36 | END |
| 37 | $0 |