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.
8 INTEGERKENUNG(5,2),NO,I,TTI,TTO,LPT
10 DATA TTI,TTO,LPT /4,4,3/
15 READ (TTI,2) KENUNG(NO,1)
16 10 KENUNG(NO,2)=ADC(0)*511.
19 WRITE (TTO,3) (KENUNG(NO,I),I=1,2)
20 15 WRITE (9,3) (KENUNG(NO,I),I=1,2)
29 20 WRITE (LPT,3) (KENUNG(NO,I),I=1,2)
32 1 FORMAT (' STELLUNG',I2,' EINSTELLEN. KENNUNG EINGEBEN:',$)
34 3 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)
35 4 FORMAT (' EINGABE RICHTIG? ( /N)',$)
37 6 FORMAT (' DRUCKER ANSCHALTEN!',$)