1			18 FORCE NEW RECORD
	00022	0 01303 0 01327	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00022	4		TXH	18 2163 FT 56
	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 01330 0 01311	8		HTR	PR,0,PR+15
	01310	0 02000 0 00272	9		TRA	SPEND
	01311	606060606060	10	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	11
	01313	444651256021	12		BCD	MORE␣ARGUMENTS␣HAVE␣BEEN␣SUPPLIED␣THAN␣ARE␣REQUIRED␣BY␣AN␣OP
	01314	512764442545	13
	01315	636260302165	14
	01316	256022252545	15
	01317	606264474743	16
	01320	312524606330	17
	01321	214560215125	18
	01322	605125506431	19
	01323	512524602270	20
	01324	602145604647	21
	01325	254560626422	22		BCD	3EN␣SUBROUTINE.␣␣␣␣
	01326	514664633145	23
	01327	253360606060	24
	01330	0 00000 0 00000	25	X