SUBROUTINE READD(K)
S	6030
S IN,	KSF
S	JMP IN
S	KRB
S	AND (077
S	7002
S	TAD (040
S	DCA I \K
	RETURN
	END