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

   1 C       EINGABE DER LED ZUORDNUNG ZUR LAUTSPRECHER POSITION
   2 C       FUER BIS ZU 100 UMDREHUNGEN.
   3 C       UNIT 9 EINGABE: FILE DES EICHEN PROGRAMMS
   4 C       UNIT 8 EIN/AUS: EINGABE FALLS NUR WERTE VERAENDERT WERDEN SOLLEN.
   5 C                       AUSGABE FUER LED PROGRAMM
   6 C
   7         INTEGER NCOND,REIHE(100,8,2),UMD,NO,PKT(8),N,LED,DELTA,MAXUMD
   8      *   ,KENUNG(5,2)
   9      *   ,TTO,TTI,LPT
  10         DATA TTO,TTI,LPT /4,4,3/, PKT/1,2,3,4,5,4,3,2/
  11 C
  12         DO 46 UMD=1,100
  13         DO 46 N=1,8
  14         REIHE(UMD,N,1)=1H
  15 46      REIHE(UMD,N,2)=7
  16 40      REWIND 8
  17         WRITE (TTO,4)
  18         READ (TTI,3) I
  19         IF (I.NE.1HJ) GOTO 45
  20         READ(8,7)(((KENUNG(PKT(N),I),I=1,2)
  21      *   ,(REIHE(UMD,N,I),I=1,2),N=1,8),
  22      *   UMD=1,100),MAXUMD
  23 45      CONTINUE
  24 C
  25         REWIND 9
  26         READ (9,91) ((KENUNG(I,J),J=1,2),I=1,5)
  27 C
  28         DO 10 UMD=1,100
  29         WRITE (TTO,1) UMD
  30         DO 10 N=1,8
  31         WRITE (TTO,2) KENUNG(PKT(N),1),(REIHE(UMD,N,I),I=1,2)
  32         READ (TTI,3) LED,DELTA
  33         REIHE(UMD,N,1)=NCOND(LED.EQ.1H ,REIHE(UMD,N,1),LED)
  34         REIHE(UMD,N,2)=NCOND(DELTA.LT.0,0,DELTA,DELTA,REIHE(UMD,N,2))
  35         IF (LED.EQ.1H9)GOTO20
  36 10      CONTINUE
  37 C
  38 20      MAXUMD=MAX0(UMD-1,1)
  39         DO 30 UMD=1,MAXUMD
  40         WRITE (LPT,1) UMD
  41 30      WRITE(LPT,5)((KENUNG(PKT(N),I),I=1,2)
  42      *   ,(REIHE(UMD,N,I),I=1,2),N=1,8)
  43         WRITE (TTO,6)
  44         READ(TTI,3) I
  45         IF (I.EQ.1HN) GOTO 40
  46         WRITE(8,7)(((KENUNG(PKT(N),I),I=1,2)
  47      *   ,(REIHE(UMD,N,I),I=1,2),N=1,8),
  48      *   UMD=1,100),MAXUMD
  49         ENDFILE 8
  50         STOP
  51 91      FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)
  52 1       FORMAT (1X,6(2H* ),I3,'. UMDREHUNG')
  53 2       FORMAT (' FUER ',A6,': LED,DELTA (A1,I4)? (',A1,I4,')',$)
  54 3       FORMAT (A1,I4)
  55 4       FORMAT (' ALTE WERTE EINLESEN? (J/ )',$)
  56 5       FORMAT (' KENNUNG ',A6,' WERT',I6,' LED ',A1,' DELTA',I4)
  57 6       FORMAT (' WERTE RICHTIG? ( /N)',$)
  58 7       FORMAT (100(1X,8(A6,I6,A1,I4)/),I4)
  59         END
  60 \1a