C EINGABE DER LED ZUORDNUNG ZUR LAUTSPRECHER POSITION C FUER BIS ZU 100 UMDREHUNGEN. C UNIT 9 EINGABE: FILE DES EICHEN PROGRAMMS C UNIT 8 EIN/AUS: EINGABE FALLS NUR WERTE VERAENDERT WERDEN SOLLEN. C AUSGABE FUER LED PROGRAMM C INTEGER NCOND,REIHE(100,8,2),UMD,NO,PKT(8),N,LED,DELTA,MAXUMD * ,KENUNG(5,2) * ,TTO,TTI,LPT DATA TTO,TTI,LPT /4,4,3/, PKT/1,2,3,4,5,4,3,2/ C DO 46 UMD=1,100 DO 46 N=1,8 REIHE(UMD,N,1)=1H 46 REIHE(UMD,N,2)=7 40 REWIND 8 WRITE (TTO,4) READ (TTI,3) I IF (I.NE.1HJ) GOTO 45 READ(8,7)(((KENUNG(PKT(N),I),I=1,2) * ,(REIHE(UMD,N,I),I=1,2),N=1,8), * UMD=1,100),MAXUMD 45 CONTINUE C REWIND 9 READ (9,91) ((KENUNG(I,J),J=1,2),I=1,5) C DO 10 UMD=1,100 WRITE (TTO,1) UMD DO 10 N=1,8 WRITE (TTO,2) KENUNG(PKT(N),1),(REIHE(UMD,N,I),I=1,2) READ (TTI,3) LED,DELTA REIHE(UMD,N,1)=NCOND(LED.EQ.1H ,REIHE(UMD,N,1),LED) REIHE(UMD,N,2)=NCOND(DELTA.LT.0,0,DELTA,DELTA,REIHE(UMD,N,2)) IF (LED.EQ.1H9)GOTO20 10 CONTINUE C 20 MAXUMD=MAX0(UMD-1,1) DO 30 UMD=1,MAXUMD WRITE (LPT,1) UMD 30 WRITE(LPT,5)((KENUNG(PKT(N),I),I=1,2) * ,(REIHE(UMD,N,I),I=1,2),N=1,8) WRITE (TTO,6) READ(TTI,3) I IF (I.EQ.1HN) GOTO 40 WRITE(8,7)(((KENUNG(PKT(N),I),I=1,2) * ,(REIHE(UMD,N,I),I=1,2),N=1,8), * UMD=1,100),MAXUMD ENDFILE 8 STOP 91 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6) 1 FORMAT (1X,6(2H* ),I3,'. UMDREHUNG') 2 FORMAT (' FUER ',A6,': LED,DELTA (A1,I4)? (',A1,I4,')',$) 3 FORMAT (A1,I4) 4 FORMAT (' ALTE WERTE EINLESEN? (J/ )',$) 5 FORMAT (' KENNUNG ',A6,' WERT',I6,' LED ',A1,' DELTA',I4) 6 FORMAT (' WERTE RICHTIG? ( /N)',$) 7 FORMAT (100(1X,8(A6,I6,A1,I4)/),I4) END