1			16 FORCE NEW RECORD
	00020	0 01303 0 01333	2		HTR	X−1,0,LOCREC CARD FOR DE
		01303	3		ORG	LOCREC
TD	01303	3 00000 0 00020	4		TXH	16 750 FT 56
			5			16 747 FT 56
	01304	0 07400 4 00740	6		TSX	PRINT,4
	01305	0 01252 0 01244	7		HTR	SOURCE,0,SOURCE+6
	01306	0 07400 4 00740	8		TSX	PRINT,4
	01307	0 01334 0 01311	9		HTR	PR,0,PR+19
	01310	0 02000 0 00272	10		TRA	SPEND
	01311	606060606060	11	PR	BCD	2␣␣␣␣␣␣␣␣␣␣␣␣
	01312	606060606060	12
	01313	216026465163	13		BCD	A␣FORTRAN␣FUNCTION␣HAS␣BEEN␣DEFINED␣AT␣A␣POINT␣IN␣THE␣SOURCE
	01314	512145602664	14
	01315	452363314645	15
	01316	603021626022	16
	01317	252545602425	17
	01320	263145252460	18
	01321	216360216047	19
	01322	463145636031	20
	01323	456063302560	21
	01324	624664512325	22
	01325	604751462751	23		BCD	7␣PROGRAM␣OTHER␣THAN␣AT␣ITS␣BEGINNING.␣␣␣␣␣
	01326	214460466330	24
	01327	255160633021	25
	01330	456021636031	26
	01331	636260222527	27
	01332	314545314527	28
	01333	336060606060	29
	01334	0 00000 0 00000	30	X