| 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 |