1			13 FORCE NEW RECORD
	00015	0 01303 0 01334	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00015	4		TXH	13 6432 FT 27
	01304	0 07400 4 00740	5		TSX	PRINT,4
	01305	0 01252 0 01244	6		HTR	SOURCE,0,SOURCE+6
	01306	0 07400 4 00740	7		TSX	PRINT,4
	01307	0 01335 0 01311	8		HTR	PR,0,PR+20
	01310	0 02000 0 00272	9		TRA	SPEND
	01311	606060606060	10	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	11
	01313	633025606521	12		BCD	THE␣VARIABLE␣PARAMETER␣OF␣A␣DO␣IS␣REDEFINED␣BY␣THE␣INDEX␣SYM
	01314	513121224325	13
	01315	604721512144	14
	01316	256325516046	15
	01317	266021602446	16
	01320	603162605125	17
	01321	242526314525	18
	01322	246022706063	19
	01323	302560314524	20
	01324	256760627044	21
	01325	224643604626	22		BCD	8BOL␣OF␣A␣DO␣STATEMENT␣WITHIN␣THE␣DO.␣␣␣␣␣␣␣␣␣␣␣␣
	01326	602160244660	23
	01327	626321632544	24
	01330	254563606631	25
	01331	633031456063	26
	01332	302560244633	27
	01333	606060606060	28
	01334	606060606060	29
	01335	0 00000 0 00000	30	X