1			FORTRAN II CARD-TO-TAPE
		00110	2		ORG	72
	00110	0 76200 0 00321	3	BEGIN	RCD	1
	00111	−0 53400 1 00125	4		LXD	ADD01,1
	00112	−0 53400 2 00127	5		LXD	ADD02,2
	00113	0 70000 0 00340	6	ADD23	CPY	L9ROW COPY 92
TD	00114	−3 00000 0 00116	7		TXL	ADD03,
	00115	0 02000 4 00002	8		TRA	2,4 EOF TR
	00116	−0 60000 0 00332	9	ADD03	STQ	DATA1 STORE 9L
	00117	−0 63400 1 00125	10		SXD	ADD01,1
	00120	−0 63400 2 00127	11		SXD	ADD02,2
	00121	−0 53400 1 00135	12		LXD	ADD04,1
	00122	0 70000 0 00341	13		CPY	R9ROW COPY 9R
	00123	−0 60000 0 00333	14		STQ	DATA2 STORE 9R
	00124	0 07400 2 00265	15		TSX	SUB1,2 EXIT ENTRY1 SUB1
TD	00125	−3 00000 0 00130	16	ADD01	TXL	ADD05 RETURN1
	00126	0 76700 0 00001	17		ALS	1 RETURN2
TD	00127	−3 00000 0 00317	18	ADD02	TXL	ADD06 EXIT TO ENTRY2 SUB1
	00130	0 70000 0 00334	19	ADD05	CPY	DATA3
	00131	−0 60000 0 00332	20		STQ	DATA1
	00132	0 70000 0 00335	21		CPY	DATA4 COPY RIGHT
	00133	−0 60000 0 00333	22		STQ	DATA2
	00134	0 07400 2 00265	23		TSX	SUB1,2
	00135	−3 00010 0 00140	24	ADD04	TXL	ADD07,0,8 RETURN1
	00136	0 76700 0 00003	25		ALS	3 RETURN2
TD	00137	−3 00000 0 00316	26		TXL	ADD08
	00140	−0 50000 0 00340	27	ADD07	CAL	L9ROW
	00141	0 60200 0 00332	28		SLW	DATA1
	00142	−0 50000 0 00341	29		CAL	R9ROW
	00143	0 60200 0 00333	30		SLW	DATA2
	00144	−3 00001 1 00170	31	ADD14	TXL	ADD09,1,1
	00145	0 70000 0 00340	32	ADD15	CPY	L9ROW
TD	00146	−3 00000 0 00151	33		TXL	ADD10
	00147	0 00000 0 00110	34	ADD12	HTR	BEGIN EOF
TD	00150	−3 00000 0 00210	35		TXL	ADD11 EOR
	00151	−0 50000 0 00340	36	ADD10	CAL	L9ROW
	00152	−0 32000 0 00332	37		ANA	DATA1
	00153	−0 10000 0 00147	38		TNZ	ADD12
	00154	−0 50000 0 00340	39		CAL	L9ROW
	00155	−0 60200 0 00332	40		ORS	DATA1
	00156	0 70000 0 00341	41		CPY	R9ROW
	00157	−0 50000 0 00341	42		CAL	R9ROW
	00160	−0 32000 0 00333	43		ANA	DATA2
	00161	−0 10000 0 00147	44		TNZ	ADD12
	00162	−0 50000 0 00341	45		CAL	R9ROW
	00163	−0 60200 0 00333	46		ORS	DATA2
	00164	−2 00001 1 00204	47		TNX	ADD13,1,1
	00165	0 07400 2 00265	48		TSX	SUB1,2
TD	00166	−3 00000 0 00144	49		TXL	ADD14 RETURN1
TD	00167	−3 00000 0 00316	50		TXL	ADD08 RETURN2
	00170	−0 50000 0 00334	51	ADD09	CAL	DATA3
	00171	−0 50100 0 00332	52		ORA	DATA1
	00172	0 60200 0 00334	53		SLW	DATA3
	00173	0 70000 0 00336	54		CPY	DATA5
	00174	−0 32000 0 00336	55		ANA	DATA5
	00175	0 60200 0 00332	56		SLW	DATA1
	00176	−0 50000 0 00335	57		CAL	DATA4
	00177	−0 50100 0 00333	58		ORA	DATA2
	00200	0 60200 0 00335	59		SLW	DATA4
	00201	0 70000 0 00337	60		CPY	DATA6
	00202	−0 32000 0 00337	61		ANA	DATA6
	00203	0 60200 0 00333	62		SLW	DATA2
	00204	0 07400 2 00265	63	ADD13	TSX	SUB1,2
TD	00205	−3 00000 0 00145	64		TXL	ADD15 RETURN1
	00206	0 76700 0 00004	65		ALS	4 RETURN2
TD	00207	−3 00000 0 00316	66		TXL	ADD08
	00210	−0 50000 0 00332	67	ADD11	CAL	DATA1
	00211	0 60200 0 00340	68		SLW	L9ROW
	00212	−0 50000 0 00334	69		CAL	DATA3
	00213	0 76000 0 00006	70		COM
	00214	−0 32000 0 00336	71		ANA	DATA5
	00215	0 32000 0 00332	72		ANS	DATA1
	00216	−0 50000 0 00333	73		CAL	DATA2
	00217	0 60200 0 00341	74		SLW	R9ROW
	00220	−0 50000 0 00335	75		CAL	DATA4
	00221	0 76000 0 00006	76		COM
	00222	−0 32000 0 00337	77		ANA	DATA6
	00223	0 32000 0 00333	78		ANS	DATA2
	00224	0 07400 2 00265	79		TSX	SUB1,2
TD	00225	−3 00000 0 00233	80		TXL	ADD16 RETURN1
	00226	0 60200 0 00331	81		SLW	DATA0 RETURN2
	00227	0 76700 0 00002	82		ALS	2
	00230	0 36100 0 00331	83		ACL	DATA0
	00231	0 76700 0 00001	84		ALS	1
TD	00232	−3 00000 0 00316	85		TXL	ADD08
	00233	−0 50000 0 00334	86	ADD16	CAL	DATA3
	00234	0 76000 0 00166	87		SWT	6
	00235	0 02000 0 00241	88		TRA	ADD34
TD	00236	−3 00000 0 00407	89	ADD32	TXL	ADD31
	00237	0 76600 0 00205	90	ADD33	WTD	5
	00240	0 02000 0 00242	91		TRA	ADD29
	00241	0 76600 0 00202	92	ADD34	WTD	2
	00242	−0 50100 0 00336	93	ADD29	ORA	DATA5
	00243	−0 50100 0 00340	94		ORA	L9ROW
	00244	0 76000 0 00006	95		COM
	00245	0 60200 0 00332	96		SLW	DATA1
	00246	−0 50000 0 00335	97		CAL	DATA4
	00247	−0 50100 0 00337	98		ORA	DATA6
	00250	−0 50100 0 00341	99		ORA	R9ROW
	00251	0 76000 0 00006	100		COM
	00252	0 60200 0 00333	101		SLW	DATA2
	00253	0 07400 2 00265	102		TSX	SUB1,2
TD	00254	−3 00000 0 00262	103		TXL	ADD17 RETURN1
	00255	0 60200 0 00331	104		SLW	DATA0 RETURN2
	00256	0 76700 0 00001	105		ALS	1
	00257	0 36100 0 00331	106		ACL	DATA0
	00260	0 76700 0 00004	107		ALS	4
TD	00261	−3 00000 0 00316	108		TXL	ADD08
	00262	−0 53400 1 00125	109	ADD17	LXD	ADD01,1
	00263	−0 53400 2 00127	110		LXD	ADD02,2
	00264	0 02000 4 00003	111		TRA	3,4
	00265	−0 63400 1 00327	112	SUB1	SXD	ADD18,1
	00266	0 76000 0 00141	113		SLN	1
	00267	−0 50000 4 00001	114		CAL	1,4
	00270	0 40000 0 00330	115		ADD	CONS1
	00271	0 56000 0 00332	116		LDQ	DATA1
	00272	0 62100 0 00317	117	ADD22	STA	ADD06
	00273	0 62100 0 00316	118		STA	ADD08
	00274	3 00001 1 00300	119		TXH	ADD19,1,1
	00275	−0 60000 0 00331	120		STQ	DATA0 INDEX=1
	00276	−0 50000 0 00331	121		CAL	DATA0
	00277	0 10000 0 00322	122		TZE	ADD20
	00300	0 53400 1 00330	123	ADD19	LXA	CONS1,1
T	00301	−0 75400 0 00014	124	ADD21	PXD	12 CLEAN ACC
	00302	−0 76300 0 00001	125		LGL	1 1ST IN ACC
	00303	0 76700 0 00005	126		ALS	5 100000
	00304	−0 76300 0 00001	127		LGL	1 1000001
	00305	0 76700 0 00005	128		ALS	5 100000100000
	00306	−0 76300 0 00001	129		LGL	1 1000001000001
	00307	0 76700 0 00005	130		ALS	5
	00310	−0 76300 0 00001	131		LGL	1
	00311	0 76700 0 00005	132		ALS	5
	00312	−0 76300 0 00001	133		LGL	1
	00313	0 76700 0 00005	134		ALS	5
	00314	−0 76300 0 00001	135		LGL	1
	00315	0 02000 2 00002	136		TRA	2,2 1000001000001000001000001000001
	00316	0 36100 1 00000	137	ADD08	ACL	0,1 ADDRESS COMPUTED AT ADD22 IN ADDRESS
	00317	0 60200 1 00000	138	ADD06	SLW	0,1 ENTRY2 ADDRESS PREV. COMPUTED AT ADD22
	00320	2 00001 1 00301	139		TIX	ADD21,1,1
	00321	−0 53400 1 00327	140		LXD	ADD18,1
	00322	−0 76000 0 00141	141	ADD20	SLT	1
	00323	0 02000 2 00001	142		TRA	1,2 OFF
	00324	0 56000 0 00333	143		LDQ	DATA2 SENSE LIGHT ON
	00325	−0 50000 4 00001	144		CAL	1,4
	00326	0 40100 0 00301	145		ADM	ADD21
	00327	−3 00000 0 00272	146	ADD18	TXL	ADD22,0,** IR1 STORED IN DECREMENT
	00330	0 00000 0 00006	147	CONS1	HTR	6
A	00331	0 00000 0 00000	148	DATA0	HTR
A	00332	0 00000 0 00000	149	DATA1	HTR	9L ROW
A	00333	0 00000 0 00000	150	DATA2	HTR	9R ROW
A	00334	0 00000 0 00000	151	DATA3	HTR
A	00335	0 00000 0 00000	152	DATA4	HTR
A	00336	0 00000 0 00000	153	DATA5	HTR
A	00337	0 00000 0 00000	154	DATA6	HTR
A	00340	0 00000 0 00000	155	L9ROW	HTR
A	00341	0 00000 0 00000	156	R9ROW	HTR
	00342	0 77200 0 00202	157	START	REW	2
	00343	0 76000 0 00140	158		SLN	0
	00344	0 76200 0 00321	159	ADD27	RCD	1
	00345	0 07400 4 00113	160		TSX	ADD23,4
	00346	0 00000 0 00373	161		HTR	RECOR
TD	00347	−3 00000 0 00355	162		TXL	ADD24 RETURN3
	00350	0 76000 0 00142	163		SLN	2 RETURN4
	00351	−0 53400 4 00354	164		LXD	ADD25,4
	00352	0 70000 4 00407	165	ADD26	CPY	BLOCK,4
	00353	2 00001 4 00352	166		TIX	ADD26,4,1
	00354	−3 00014 0 00344	167	ADD25	TXL	ADD27,0,12
	00355	−0 76000 0 00142	168	ADD24	SLT	2
	00356	0 02000 0 00363	169		TRA	ADD28 OFF
	00357	0 76000 0 00166	170		SWT	6
	00360	0 02000 0 00414	171		TRA	ADD30
	00361	0 77000 0 00205	172		WEF	5
	00362	0 77200 0 00205	173		REW	5
	00363	0 76200 0 00221	174	ADD28	RTB	1
	00364	0 70000 0 00373	175		CPY	RECOR
	00365	0 02000 0 00363	176		TRA	ADD28
	00366	0 02000 0 00004	177		TRA	4 EOF
	00367	0 77200 0 00201	178		REW	1
	00370	0 76200 0 00221	179		RTB	1
	00371	0 76200 0 00221	180		RTB	1
	00372	0 07400 4 00004	181		TSX	4,4
A	00373	0 00000 0 00000	182	RECOR	HTR
		00407	183	BLOCK	BES	11
	00407	0 77200 0 00205	184	ADD31	REW	5
	00410	0 50200 0 00236	185		CLS	ADD32
	00411	0 60100 0 00236	186		STO	ADD32
	00412	−0 50000 0 00334	187		CAL	DATA3
	00413	0 02000 0 00237	188		TRA	ADD33
	00414	0 77000 0 00202	189	ADD30	WEF	2
	00415	0 77200 0 00202	190		REW	2
	00416	0 02000 0 00363	191		TRA	ADD28