.PSECT W
	.MCALL MRKT$S,ALUN$S,QIO$S,STLO$S,QIOW$S,SETF$S,CLEF$S
	.MCALL ASTX$S,WTSE$S
T::
	ALUN$S	#1,#"TI,#0
	MOV	#1,ILUN
	SETF$S	#2
	CLEF$S	#2
AA:
	MRKT$S	#3,#10.,#2,#CAN		;SET UP TIME OUT FOR 100 MILLSEC
	QIO$S	#IO.RLB,ILUN,#1,,,,<#HEADER,#12.> ;READ GARAGBE
	WTSE$S	#1
	BR	AA			;YES
CAN:	QIO$S	#IO.KIL,ILUN,#2		;CANCEL READ
	TST	(SP)+
	ASTX$S
ILUN:	.WORD	0
HEADER:	.BLKW	15.
	.END	T