1			152 FORCE NEW RECORD
	00230	0 01303 0 01366	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00230	4		TXH	152 6376 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 01367 0 01311	8		HTR	PR,0,PR+46
	01310	0 02000 0 00221	9		TRA	DIGRTN
	01311	606060606060	10	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	11
	01313	314524256760	12		BCD	INDEX␣REGISTER␣1␣HAS␣BEEN␣INCREMENTED␣BEYOND␣THE␣MAXIMUM␣SET
	01314	512527316263	13
	01315	255160016030	14
	01316	216260222525	15
	01317	456031452351	16
	01320	254425456325	17
	01321	246022257046	18
	01322	452460633025	19
	01323	604421673144	20
	01324	644460622563	21
	01325	633145276047	22		BCD	TING␣PERMISSABLE␣IN␣THIS␣SECTION␣OF␣PROGRAM,␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
	01326	255144316262	23
	01327	212243256031	24
	01330	456063303162	25
	01331	606225236331	26
	01332	464560462660	27
	01333	475146275121	28
	01334	447360606060	29
	01335	606060606060	30
	01336	606060606060	31
	01337	242562473163	32		BCD	DESPITE␣A␣TEST␣IN␣THE␣ROUTINE␣WHICH␣PREVENTS␣THIS.␣␣PROGRAM␣
	01340	256021606325	33
	01341	626360314560	34
	01342	633025605146	35
	01343	646331452560	36
	01344	663031233060	37
	01345	475125652545	38
	01346	636260633031	39
	01347	623360604751	40
	01350	462751214460	41
	01351	623046644324	42		BCD	SHOULD␣BE␣ABLE␣TO␣OBTAIN␣DOTAG␣ENTRY␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
	01352	602225602122	43
	01353	432560634660	44
	01354	462263213145	45
	01355	602446632127	46
	01356	602545635170	47
	01357	606060606060	48
	01360	606060606060	49
	01361	606060606060	50
	01362	606060606060	51
	01363	264651604525	52		BCD	4FOR␣NEXT␣OUTER␣DO.␣␣␣␣␣␣
	01364	676360466463	53
	01365	255160244633	54
	01366	606060606060	55
	01367	0 00000 0 00000	56	X