.TITLE	ERASE
	.MCALL	QIOW$C,EXIT$S
BEG:	QIOW$C	IO.ATT,5,1
	CALL	ERASE
	EXIT$S
	.END	BEG