	SUBROUTINE STORE(ARRAY,WHAT,LEN)
	IMPLICIT INTEGER(A-Z)
	INTEGER ARRAY(1)
	ARRAY(1) = WHAT
	AC = XWD(ADR(ARRAY),ADR(ARRAY)+1)
	CALL XCT("251,AC,ADR(ARRAY)+LEN-1)
	RETURN
	END

