sw/rescue/lab8e_goettingen/disk2_11/rka/paroff/eichen.ft

   1 C       \ eE I C H E N . F T
   2 C
   3 C       EINGABE DER LAUTSPRECHERSPANNUNG AUF KANAL 0
   4 C       UND ZUORDNUNG FUER EINE WINKELPOSITION
   5 C       DIE WERTE WERDEN FORMATIERT AUF UNIT 9 AUSGEGEBEN.
   6 C
   7         REAL ADC
   8         INTEGERKENUNG(5,2),NO,I,TTI,TTO,LPT
   9         EXTERNAL ADC
  10         DATA TTI,TTO,LPT /4,4,3/
  11 C
  12 30      REWIND 9
  13         DO 10  NO=1,5
  14         WRITE (TTO,1) NO
  15         READ (TTI,2) KENUNG(NO,1)
  16 10      KENUNG(NO,2)=ADC(0)*511.
  17 C
  18         DO 15 NO=1,5
  19         WRITE (TTO,3) (KENUNG(NO,I),I=1,2)
  20 15      WRITE (9,3) (KENUNG(NO,I),I=1,2)
  21 C
  22         WRITE (TTO,4)
  23         READ (TTI,5) I
  24         IF (I.EQ.1HN) GOTO 30
  25 C
  26         WRITE (TTO,6)
  27         READ (TTI,5)
  28         DO 20 NO=1,5
  29 20      WRITE (LPT,3) (KENUNG(NO,I),I=1,2)
  30         ENDFILE 9
  31         STOP
  32 1       FORMAT (' STELLUNG',I2,' EINSTELLEN. KENNUNG EINGEBEN:',$)
  33 2       FORMAT (A6)
  34 3       FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)
  35 4       FORMAT (' EINGABE RICHTIG? ( /N)',$)
  36 5       FORMAT (A1)
  37 6       FORMAT (' DRUCKER ANSCHALTEN!',$)
  38         END
  39 \1a