SUBROUTINE T4REC(IN,OUT)
	BYTE IN(684),OUT(513)
	INTEGER*2 IPT,OPT
	IPT=1
	OPT=1
	DO 10 I=1,171
	CALL ASC4R(IN(IPT),OUT(OPT))
	IPT=IPT+4
	OPT=OPT+3
10	CONTINUE
	RETURN
	END