BYTE	IA(82)
	INTEGER*2 ISTOP,ICOUNT
	COMMON	/STATSC/ ISTOP,ICOUNT,IA
	CALL	SSET
1	IF(ICOUNT .LT. 0) CALL SSET	! If not set up do it now
	IF(ICOUNT .LE. 0) go to 1	! No data ready ?
	TYPE 1000,(IA(J),J=1,icount)
950	CALL	SSET				! Restart input
1000	FORMAT(20O4)
	go to 1
	END