A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haex80.ft
... / ...
CommitLineData
1C -+-+-+-+-+ \ e H A E S T P . F T \ e -+-+-+-+-+\r
2C\r
3C OPEN THE X-Y PLOTTER\r
4C\r
5 SUBROUTINE STPLT\r
6C\r
7 INCLUDE HABRK.FI\r
8C\r
9 IF ( BREAK(0)) GOTO 10 @ SUPER 8 PLOTTER\r
10CX CALL PLOTS (0.0095,0)\r
11 CALL PLOTS (2,0)\r
12 RETURN\r
1310 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