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
7 INTEGER NCOND,REIHE(100,8,2),UMD,NO,PKT(8),N,LED,DELTA,MAXUMD
10 DATA TTO,TTI,LPT /4,4,3/, PKT/1,2,3,4,5,4,3,2/
20 READ(8,7)(((KENUNG(PKT(N),I),I=1,2)
21 * ,(REIHE(UMD,N,I),I=1,2),N=1,8),
26 READ (9,91) ((KENUNG(I,J),J=1,2),I=1,5)
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))
38 20 MAXUMD=MAX0(UMD-1,1)
41 30 WRITE(LPT,5)((KENUNG(PKT(N),I),I=1,2)
42 * ,(REIHE(UMD,N,I),I=1,2),N=1,8)
46 WRITE(8,7)(((KENUNG(PKT(N),I),I=1,2)
47 * ,(REIHE(UMD,N,I),I=1,2),N=1,8),
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,')',$)
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)