C -+-+-+-+-+  H A E S U P . F T  -+-+-+-+-+ C C SUPERVISOR PROGRAM, CALLS THE DIFFERENT OVERLAYS AND TASKS INCLUDE HAEPTI.FI INCLUDE HAEBUF.FI INCLUDE HABRK.FI INCLUDE HAETTY.FI INCLUDE HAEOF.FI C INTEGER TOASCI EXTERNAL TOASCI C INTEGER I,J,STR(3) C CALL CLOCK (8,10.) @ START THE CLOCK WITH 0.1 HZ CALL CHKEOF (EOF) @ REGISTER THE END OF FILE FLAG TO FRTS CALL ADATE (STR) @ AND ASK FRTS FOR THE CURRENT DATE WRITE (TTO,1) REVSON,STR @ IDENTIFICATION LINE ONTO TTY C WAIT FOR NEXT INPUT 10 CALL DECODE @ READ THE NEW COMMAND LINE IF (ACTNUM.EQ.0) GOTO 10 @ NO INPUT AT ALL DO 35 I=1,ACTNUM @ AND EXECUTE COMMAND BY COMMAND OPTION=COMD(I)/100 @ EXTRACT THE OPTION OF THE COMMAND J=MOD(COMD(I),100)+1 @ AND THE NUMBER OF THIS CMD TOO GOTO (90,91,92,93,94,95,96,97,98,99, * 190,191,192,193,194,195,196,197,198,199, * 290,291,292,293,294,295,296,297,298,299),J @ DO THE NEXT TASK 30 CONTINUE IF BREAK(11) WRITE (TTO,2) @ ABORTS A TASK ONLY 40 IF BREAK(11) GOTO 40 @ STOP UNTIL SW11 IS SWITCHED OFF IF BREAK(10) GOTO 10 @ SWITCH 10 ABORTS THIS COMMAND INPUT IF (BREAK(9)) WRITE (TTO,3) @ PAUSE 50 IF (BREAK(9)) GOTO 50 @ PAUSE UNTIL SW9 IS SWITCHED OFF 35 CONTINUE C GOTO 10 @ HERE ALL COMMANDS ARE EXECUTED C C 90 GOTO 30 @ NO COMMAND 91 GOTO 30 @ "" "" (SPACE) 92 CALL READB @ RD GOTO 30 93 CALL OPNSIX CALL ADCON @ AD GOTO 30 94 CALL PLOTTV @ TV GO TO 30 95 CALL PLOTIT @ PL GO TO 30 96 CALL PRINTR @ LP GOTO 30 97 CALL CCHNEL @ CH GOTO 30 98 CALL COMPUT @ CO GOTO 30 99 STOP @ EX CLOSE OUTPUT FILES AND EXIT 190 CALL TOC @ TO GOTO 30 191 CALL SCMPUT @ SC GOTO 30 192 CALL SPLOT @ SP GOTO 30 193 CALL SIZEP @ SZ GOTO 30 194 CALL PALOT @ PA GOTO 30 195 CALL PRLOT @ PR GOTO 30 196 CALL FISIZE @ FI GOTO 30 197 CALL FI3LTR @ F1 GOTO 30 198 CALL FI1LTR @ F3 GOTO 30 199 CALL PFLOT @ PF GOTO 30 290 CALL CFREQU @ CF GOTO 30 291 CALL EOGSCN @ EO GOTO 30 292 CALL IDPLT @ ID GOTO 30 293 CALL CFLACH @ CL GOTO 30 294 CALL YSCAN @ YS GOTO 30 295 CALL NYADD @ NY GOTO 30 296 CALL CALSAC @ EI GOTO 30 297 CALL FIRPLT @ FR GOTO 30 298 CONTINUE 299 CONTINUE GOTO 30 1 FORMAT (/' HAEEG VER',F4.1,' ON ',2(A2,1H/),A2) 2 FORMAT (' SCHALTER 11 AUSSCHALTEN') 3 FORMAT (' SCHALTER 9 AUSSCHALTEN') END