sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haesup.ft

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