Common Bug 10, FIXED

	SUBROUTINE store
$$IMPLICIT
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
$$INCLUDE 'YBOS$LIBRARY:BNKTYP.INC'
	INTEGER ind, index	! bank and data index of TAUS
	INTEGER blocat	! YBOS named bank finder
	INTEGER btymak	! create a named bank	PREFERRED METHOD
	INTEGER status	! error return status
	INTEGER ind, index	! bank and data indices
	INTEGER nword		! # of data words in bank

	INTEGER ngroup	! number of groups in bank
	INTEGER bnktyp(3)	! store info about types of peices in bank
C.................................
C== It is easier, and less error-prone, to use BTYMAK
	status = btymak(iw,'TAUS',1,'10I4,20R4',nword,ind,index)
	IF(status .NE. yesucc) RETURN

C== Set usual constants
	rw(index+15) = 3.1415926	! boston cream pie	<------
	iw(index+6) = 30.2		! version number

	CALL loadup

	RETURN
	END

BACK to YBOS , Look Again at Fix, Bug 11