A large commit.

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

C	\ eE I C H E N . F T\r
C	\r
C	EINGABE DER LAUTSPRECHERSPANNUNG AUF KANAL 0\r
C	UND ZUORDNUNG FUER EINE WINKELPOSITION\r
C	DIE WERTE WERDEN FORMATIERT AUF UNIT 9 AUSGEGEBEN.\r
C\r
	REAL ADC\r
	INTEGERKENUNG(5,2),NO,I,TTI,TTO,LPT\r
	EXTERNAL ADC\r
	DATA TTI,TTO,LPT /4,4,3/\r
C\r
30	REWIND 9\r
	DO 10  NO=1,5\r
	WRITE (TTO,1) NO\r
	READ (TTI,2) KENUNG(NO,1)\r
10	KENUNG(NO,2)=ADC(0)*511.\r
C\r
	DO 15 NO=1,5\r
	WRITE (TTO,3) (KENUNG(NO,I),I=1,2)\r
15	WRITE (9,3) (KENUNG(NO,I),I=1,2)\r
C\r
	WRITE (TTO,4)\r
	READ (TTI,5) I\r
	IF (I.EQ.1HN) GOTO 30\r
C\r
	WRITE (TTO,6)\r
	READ (TTI,5)\r
	DO 20 NO=1,5\r
20	WRITE (LPT,3) (KENUNG(NO,I),I=1,2)\r
	ENDFILE 9\r
	STOP\r
1	FORMAT (' STELLUNG',I2,' EINSTELLEN. KENNUNG EINGEBEN:',$)\r
2	FORMAT (A6)\r
3	FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)\r
4	FORMAT (' EINGABE RICHTIG? ( /N)',$)\r
5	FORMAT (A1)\r
6	FORMAT (' DRUCKER ANSCHALTEN!',$)\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\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0