CALL	SSET(LERR)
	CALL	HISGET
	CALL	DIS2B(0,0,0,0,0,0,0)
1	CALL	ASTAT(ISTAT)
	CALL	KBYES
	GO TO 1
	END