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