C E I C H E N . F T C C EINGABE DER LAUTSPRECHERSPANNUNG AUF KANAL 0 C UND ZUORDNUNG FUER EINE WINKELPOSITION C DIE WERTE WERDEN FORMATIERT AUF UNIT 9 AUSGEGEBEN. C REAL ADC INTEGERKENUNG(5,2),NO,I,TTI,TTO,LPT EXTERNAL ADC DATA TTI,TTO,LPT /4,4,3/ C 30 REWIND 9 DO 10 NO=1,5 WRITE (TTO,1) NO READ (TTI,2) KENUNG(NO,1) 10 KENUNG(NO,2)=ADC(0)*511. C DO 15 NO=1,5 WRITE (TTO,3) (KENUNG(NO,I),I=1,2) 15 WRITE (9,3) (KENUNG(NO,I),I=1,2) C WRITE (TTO,4) READ (TTI,5) I IF (I.EQ.1HN) GOTO 30 C WRITE (TTO,6) READ (TTI,5) DO 20 NO=1,5 20 WRITE (LPT,3) (KENUNG(NO,I),I=1,2) ENDFILE 9 STOP 1 FORMAT (' STELLUNG',I2,' EINSTELLEN. KENNUNG EINGEBEN:',$) 2 FORMAT (A6) 3 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6) 4 FORMAT (' EINGABE RICHTIG? ( /N)',$) 5 FORMAT (A1) 6 FORMAT (' DRUCKER ANSCHALTEN!',$) END