Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/store.for
There are no other files named store.for in the archive.
	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