Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E S T P . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C OPEN THE X-Y PLOTTER\r | |
4 | C\r | |
5 | SUBROUTINE STPLT\r | |
6 | C\r | |
7 | INCLUDE HABRK.FI\r | |
8 | C\r | |
9 | IF ( BREAK(0)) GOTO 10 @ SUPER 8 PLOTTER\r | |
10 | CX CALL PLOTS (0.0095,0)\r | |
11 | CALL PLOTS (2,0)\r | |
12 | RETURN\r | |
13 | 10 CALL CHSL (0) @ SWITCH ON THE LED\r | |
14 | CALL TWAIT (700) @ MAKE SOME DARK PICTURES\r | |
15 | CALL CHSL (1) @ SWITCH OFF THE LED\r | |
16 | CALL TWAIT (5000)\r | |
17 | CALL PLOTS (0.0095,0)\r | |
18 | RETURN\r | |
19 | END\r | |
20 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |