Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | REAL ADC,R\r |
2 | EXTERNAL ADC\r | |
3 | INTEGER I\r | |
4 | 10 WRITE (4,1)\r | |
5 | READ (4,2) I\r | |
6 | R=ADC(I)\r | |
7 | WRITE (4,3) R\r | |
8 | GOTO 10\r | |
9 | 1 FORMAT (' KANALNUMMER DES ADC? ')\r | |
10 | 2 FORMAT (I2)\r | |
11 | 3 FORMAT (' SPANNUNGSWERT IST:',F8.3)\r | |
12 | END\r | |
13 | \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 |