1			132 FORCE NEW RECORD
	00204	0 01303 0 01367	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00204	4		TXH	132 7135 FT 27
	01304	0 07400 4 00740	5		TSX	PRINT,4
	01305	0 01244 0 01237	6		HTR	MACHIN,0,MACHIN+5
	01306	0 07400 4 00740	7		TSX	PRINT,4
	01307	0 01370 0 01311	8		HTR	PR,0,PR+47
	01310	0 02000 0 00221	9		TRA	DIGRTN
	01311	606060606060	10	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	11
	01313	262143622560	12		BCD	FALSE␣END␣OF␣FILE␣IN␣READING␣RECORD␣FROM␣TAPE␣2,␣FILE␣5,␣REC
	01314	254524604626	13
	01315	602631432560	14
	01316	314560512521	15
	01317	243145276051	16
	01320	252346512460	17
	01321	265146446063	18
	01322	214725600273	19
	01323	602631432560	20
	01324	057360512523	21
	01325	465124601033	22		BCD	ORD␣8.␣␣COPY␣LOOP␣IS␣GENERAL␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
	01326	606023464770	23
	01327	604346464760	24
	01330	316260272545	25
	01331	255121436060	26
	01332	606060606060	27
	01333	606060606060	28
	01334	606060606060	29
	01335	606060606060	30
	01336	606060606060	31
	01337	626422514664	32		BCD	SUBROUTINE␣AT␣LOCATION␣7060.␣␣COPY␣AT␣LOCATION␣7133␣IS␣PROGR
	01340	633145256021	33
	01341	636043462321	34
	01342	633146456007	35
	01343	000600336060	36
	01344	234647706021	37
	01345	636043462321	38
	01346	633146456007	39
	01347	010303603162	40
	01350	604751462751	41
	01351	214444252460	42		BCD	AMMED␣TO␣FIND␣END␣OF␣RECORD␣SKIP␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
	01352	634660263145	43
	01353	246025452460	44
	01354	462660512523	45
	01355	465124606242	46
	01356	314760606060	47
	01357	606060606060	48
	01360	606060606060	49
	01361	606060606060	50
	01362	606060606060	51
	01363	264651606330	52		BCD	5FOR␣THIS␣SPECIFIC␣RECORD.␣␣␣␣␣
	01364	316260624725	53
	01365	233126312360	54
	01366	512523465124	55
	01367	336060606060	56
	01370	0 00000 0 00000	57	X