[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / adc.ft

	REAL ADC,R\r
	EXTERNAL ADC\r
	INTEGER I\r
10	WRITE (4,1)\r
	READ (4,2) I\r
	R=ADC(I)\r
	WRITE (4,3) R\r
	GOTO 10\r
1	FORMAT (' KANALNUMMER DES ADC? ')\r
2	FORMAT (I2)\r
3	FORMAT (' SPANNUNGSWERT IST:',F8.3)\r
	END\r
\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
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