Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E S U P . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C SUPERVISOR PROGRAM, CALLS THE DIFFERENT OVERLAYS AND TASKS\r | |
4 | INCLUDE HAEPTI.FI\r | |
5 | INCLUDE HAEBUF.FI\r | |
6 | INCLUDE HABRK.FI\r | |
7 | INCLUDE HAETTY.FI\r | |
8 | INCLUDE HAEOF.FI\r | |
9 | C\r | |
10 | \f INTEGER TOASCI\r | |
11 | EXTERNAL TOASCI\r | |
12 | C\r | |
13 | INTEGER I,J,STR(3)\r | |
14 | C\r | |
15 | CALL CLOCK (8,10.) @ START THE CLOCK WITH 0.1 HZ\r | |
16 | CALL CHKEOF (EOF) @ REGISTER THE END OF FILE FLAG TO FRTS\r | |
17 | CALL ADATE (STR) @ AND ASK FRTS FOR THE CURRENT DATE\r | |
18 | WRITE (TTO,1) REVSON,STR @ IDENTIFICATION LINE ONTO TTY\r | |
19 | C WAIT FOR NEXT INPUT\r | |
20 | 10 CALL DECODE @ READ THE NEW COMMAND LINE\r | |
21 | IF (ACTNUM.EQ.0) GOTO 10 @ NO INPUT AT ALL\r | |
22 | DO 35 I=1,ACTNUM @ AND EXECUTE COMMAND BY COMMAND\r | |
23 | OPTION=COMD(I)/100 @ EXTRACT THE OPTION OF THE COMMAND\r | |
24 | J=MOD(COMD(I),100)+1 @ AND THE NUMBER OF THIS CMD TOO\r | |
25 | GOTO (90,91,92,93,94,95,96,97,98,99,\r | |
26 | * 190,191,192,193,194,195,196,197,198,199,\r | |
27 | * 290,291,292,293,294,295,296,297,298,299),J @ DO THE NEXT TASK\r | |
28 | 30 CONTINUE\r | |
29 | IF BREAK(11) WRITE (TTO,2) @ ABORTS A TASK ONLY\r | |
30 | 40 IF BREAK(11) GOTO 40 @ STOP UNTIL SW11 IS SWITCHED OFF\r | |
31 | IF BREAK(10) GOTO 10 @ SWITCH 10 ABORTS THIS COMMAND INPUT\r | |
32 | IF (BREAK(9)) WRITE (TTO,3) @ PAUSE\r | |
33 | 50 IF (BREAK(9)) GOTO 50 @ PAUSE UNTIL SW9 IS SWITCHED OFF\r | |
34 | 35 CONTINUE\r | |
35 | C\r | |
36 | GOTO 10 @ HERE ALL COMMANDS ARE EXECUTED\r | |
37 | C\r | |
38 | C\r | |
39 | 90 GOTO 30 @ NO COMMAND\r | |
40 | 91 GOTO 30 @ "" "" (SPACE) \r | |
41 | 92 CALL READB @ RD\r | |
42 | GOTO 30\r | |
43 | 93 CALL OPNSIX\r | |
44 | CALL ADCON @ AD\r | |
45 | GOTO 30\r | |
46 | 94 CALL PLOTTV @ TV\r | |
47 | GO TO 30\r | |
48 | 95 CALL PLOTIT @ PL\r | |
49 | GO TO 30\r | |
50 | 96 CALL PRINTR @ LP\r | |
51 | GOTO 30\r | |
52 | 97 CALL CCHNEL @ CH\r | |
53 | GOTO 30\r | |
54 | 98 CALL COMPUT @ CO\r | |
55 | GOTO 30\r | |
56 | 99 STOP @ EX CLOSE OUTPUT FILES AND EXIT\r | |
57 | 190 CALL TOC @ TO\r | |
58 | GOTO 30\r | |
59 | 191 CALL SCMPUT @ SC\r | |
60 | GOTO 30\r | |
61 | 192 CALL SPLOT @ SP\r | |
62 | GOTO 30\r | |
63 | 193 CALL SIZEP @ SZ\r | |
64 | GOTO 30\r | |
65 | 194 CALL PALOT @ PA\r | |
66 | GOTO 30\r | |
67 | 195 CALL PRLOT @ PR\r | |
68 | GOTO 30\r | |
69 | 196 CALL FISIZE @ FI\r | |
70 | GOTO 30\r | |
71 | 197 CALL FI3LTR @ F1\r | |
72 | GOTO 30\r | |
73 | 198 CALL FI1LTR @ F3\r | |
74 | GOTO 30\r | |
75 | 199 CALL PFLOT @ PF\r | |
76 | GOTO 30\r | |
77 | 290 CALL CFREQU @ CF\r | |
78 | GOTO 30\r | |
79 | 291 CALL EOGSCN @ EO\r | |
80 | GOTO 30\r | |
81 | 292 CALL IDPLT @ ID\r | |
82 | GOTO 30\r | |
83 | 293 CALL CFLACH @ CL\r | |
84 | GOTO 30\r | |
85 | 294 CALL YSCAN @ YS\r | |
86 | GOTO 30\r | |
87 | 295 CALL NYADD @ NY\r | |
88 | GOTO 30\r | |
89 | 296 CALL CALSAC @ EI\r | |
90 | GOTO 30\r | |
91 | 297 CALL FIRPLT @ FR\r | |
92 | GOTO 30\r | |
93 | 298 CONTINUE\r | |
94 | 299 CONTINUE\r | |
95 | GOTO 30\r | |
96 | 1 FORMAT (/' HAEEG VER',F4.1,' ON ',2(A2,1H/),A2)\r | |
97 | 2 FORMAT (' SCHALTER 11 AUSSCHALTEN')\r | |
98 | 3 FORMAT (' SCHALTER 9 AUSSCHALTEN')\r | |
99 | END\r | |
100 | \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 |