1			151 FORCE NEW RECORD
	00227	0 01303 0 01355	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00227	4		TXH	151 6373 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 01356 0 01311	8		HTR	PR,0,PR+37
	01310	0 02000 0 00221	9		TRA	DIGRTN
	01311	606060606060	10	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	11
	01313	216024466045	12		BCD	A␣DO␣NESTED␣WITHIN␣ANOTHER␣DO␣HAS␣BEEN␣FOUND␣TO␣HAVE␣A␣LEVEL
	01314	256263252460	13
	01315	663163303145	14
	01316	602145466330	15
	01317	255160244660	16
	01320	302162602225	17
	01321	254560264664	18
	01322	452460634660	19
	01323	302165256021	20
	01324	604325652543	21
	01325	602162623127	22		BCD	␣ASSIGNMENT␣LESS␣THAN␣OR␣EQUAL␣TO␣1.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
	01326	454425456360	23
	01327	432562626063	24
	01330	302145604651	25
	01331	602550642143	26
	01332	606346600133	27
	01333	606060606060	28
	01334	606060606060	29
	01335	606060606060	30
	01336	606060606060	31
	01337	633025604346	32		BCD	THE␣LOGIC␣OF␣THE␣PROGRAM␣MAKES␣THIS␣IMPOSSIBLE.␣THE␣LEVEL␣CO
	01340	273123604626	33
	01341	606330256047	34
	01342	514627512144	35
	01343	604421422562	36
	01344	606330316260	37
	01345	314447466262	38
	01346	312243253360	39
	01347	633025604325	40
	01350	652543602346	41
	01351	644563603162	42		BCD	5UNT␣IS␣IN␣INDEX␣REGISTER␣2.␣␣␣
	01352	603145603145	43
	01353	242567605125	44
	01354	273162632551	45
	01355	600233606060	46
	01356	0 00000 0 00000	47	X