INTEGER*2	IA(20)
	COMMON	/SYSTAT/IRUN
	COMMON	/SYSW/ISSW
	CALL	sset
	call	sysset
	CALL	C2SET
10	CALL	astat(istat)
	IF(ISTAT .GT. 3) GO TO 10	! HAS RUN BEGUN
100	CALL	BTRAN(IA,-4,10)
	WRITE(5,1000) IA
1000	FORMAT(10O7)
	CALL	ASTAT(ISTAT)
	WRITE(5,ISTAT)
	IF(ISTAT .GE. 4) GO TO 10
	CALL	RBTS
	GO TO 100
	END