Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C \ eE I C H E N . F T\r |
2 | C \r | |
3 | C EINGABE DER LAUTSPRECHERSPANNUNG AUF KANAL 0\r | |
4 | C UND ZUORDNUNG FUER EINE WINKELPOSITION\r | |
5 | C DIE WERTE WERDEN FORMATIERT AUF UNIT 9 AUSGEGEBEN.\r | |
6 | C\r | |
7 | REAL ADC\r | |
8 | INTEGERKENUNG(5,2),NO,I,TTI,TTO,LPT\r | |
9 | EXTERNAL ADC\r | |
10 | DATA TTI,TTO,LPT /4,4,3/\r | |
11 | C\r | |
12 | 30 REWIND 9\r | |
13 | DO 10 NO=1,5\r | |
14 | WRITE (TTO,1) NO\r | |
15 | READ (TTI,2) KENUNG(NO,1)\r | |
16 | 10 KENUNG(NO,2)=ADC(0)*511.\r | |
17 | C\r | |
18 | DO 15 NO=1,5\r | |
19 | WRITE (TTO,3) (KENUNG(NO,I),I=1,2)\r | |
20 | 15 WRITE (9,3) (KENUNG(NO,I),I=1,2)\r | |
21 | C\r | |
22 | WRITE (TTO,4)\r | |
23 | READ (TTI,5) I\r | |
24 | IF (I.EQ.1HN) GOTO 30\r | |
25 | C\r | |
26 | WRITE (TTO,6)\r | |
27 | READ (TTI,5)\r | |
28 | DO 20 NO=1,5\r | |
29 | 20 WRITE (LPT,3) (KENUNG(NO,I),I=1,2)\r | |
30 | ENDFILE 9\r | |
31 | STOP\r | |
32 | 1 FORMAT (' STELLUNG',I2,' EINSTELLEN. KENNUNG EINGEBEN:',$)\r | |
33 | 2 FORMAT (A6)\r | |
34 | 3 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)\r | |
35 | 4 FORMAT (' EINGABE RICHTIG? ( /N)',$)\r | |
36 | 5 FORMAT (A1)\r | |
37 | 6 FORMAT (' DRUCKER ANSCHALTEN!',$)\r | |
38 | END\r | |
39 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |