Symbol ARYMAK

			6346	*
			6347	*
			6348	* ARYMAK THE FUNCTION THAT MAKES ARRAYS
			6349	* THE ARGUMENT IS A SINGLE LIST WHOSE SUB-LISTS HAVE THE
			6350	* FORM (NAME,(DIMENSION1,DIMENSION2,DIMENSION3),TYPE)
			6351	* ARRAYS MAY BE 1, 2, OR 3 DIMENSIONAL AND MAY BE OF LIST OR
			6352	* NON-LIST TYPE.
			6353	*
			6354	* ARRAY IS STORED AS FOLLOWS ...
			6355	* SXA ARTGTX,4 ADDRESS OF SUBR TXL INSTRUCTION
			6356	* TSX ARYGET,4
			6357	* PZE END + 1,, N OF DIMENSIONS (ARRAY PROPERTY POINTS HERE)
			6358	* PZE TOTAL LENGTH,,LIST OF LENGTH
			6359	* PZE TABLE ZERO,, NUMBER OF DIMENSIONS (ARYGET PARAMETER WORD)
			6360	* CLA* **,2 TABLE 1
			6361	* *************************
			6362	* STO **,1 TABLE 2
			6363	* *****************************
			6364	* ARRAY PROPER GOES HERE
			6365	*
	13113	0560 00 0 13115	6366	ARYMAK	LDQ	AMFAG PICK UP FUNCTIONAL ARGUMENT