| 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 |