fc TAPE 1258m733 erase  storage PART 1 of 4 morrison
OCTAL
40|ca4p2	si707	ca2g2	boy4	cf1000	td1y2	srh3	mdc7	dm0	cpy5	ca4y2	tsb2	ca3p2
ts1b2	cf100	b2,ca0	ts2000	aob2	ao1b2	su7g2	cpb2	cf301	y5,ca5y2	ts2y2	spd1
d1,ca2y2	ad1	ts2y2	md3m3	dmg3	dm0	cpd4	ca3g2	ts2d3
ca2y2	tsd3	d3,si0	ca0	ts1176	ao2d3	su7g2	cp1d3	si1	spd1	d4,spd5	spd6
d5,ta14d5	cf101	ca4y2	ts6d5	ca3p2	ts7d5	ca0	ts2000	ao6d5	ao7d5	su7g2	cp6d5	sp0
d6,cf310	ca3p2	ts4d6	ca0	ts2000	ao4d6	su7g2	cp3d6	si1	b3,ca1y2	ad4g2	ts1b4
b4,ca5g2	si0
||||||||||CONSTANTS
g2,si0	si0	si40	ts1176	cf700	si35	si0	ts3777	g3,si6	si0	m3,si0
si0	si0	si77	si1	p2,cf301	si0	si0	ts2000	0.44040
y2,si0	si0	cf100	si0	ca0	cf100	c7,si7
||||||||||AD ERASE
y4,ca	ts2000	ao41	su70	cp40	ca	ts2	ca2
si707	ca71	bo2000	ca2	ad71	ts2	su72	cp47
ca0	si703	ca73	ts2	ca74	ts3	ca71	sp2
ts3777	si2000	ta2000	bi4	sp32

START AT 40
||||||||||
fc TAPE 1258m733 select fields2 and 3 PART 2 of 4 morrison
OCTAL
40|ca42	cf723	si32
||||||||||

START AT 40
||||||||||
fc TAPE 1258 m733 RANDOM CHARACTER AXelex PRINT PART 3 of 4  use fields 2 and 3
OCTAL
|||ERASE PRINT BLOCK
40|a12,cae10	ts1a13	a13,ca1e10	tsz1	ao1a13	su2e10	cpa13	aos3	cpa14	ca1s3
tss3	spa22	spa14	e10,tsz1	si77	ts167z1	siz1
s3,0	1.77766
|||REARRANGE COUNT LIST FOR ANELEX PRINT.
a14,can11	spz2	ts140z1	spz8	ts141z1	spz9	ts142z1	ca1n11	spz2	ts124z1	spz8	ts125z1
spz9	ts126z1	ca2n11	spz2	ts74z1	spz8	ts75z1	spz9	ts76z1	ca3n11	spz2	ts71z1	spz8
ts72z1	spz9	ts73z1	ca7n11	spz2	ts151z1	spz8	ts152z1	spz9	ts153z1	ca10n11	spz2	ts143z1
spz8	ts144z1	spz9	ts145z1	ca11n11	spz2	ts127z1	spz8	ts130z1	spz9	ts131z1	ca12n11	spz2
ts3z1	spz8	ts4z1	spz9	ts5z1	ca13n11	spz2	ts110z1	spz8	ts111z1	spz9	ts112z1	ca17n11
spz2	ts30z1	spz8	ts31z1	spz9	ts32z1	ca20n11	spz2	ts66z1	spz8	ts67z1	spz9	ts70z1
ca21n11	spz2	ts11z1	spz8	ts12z1	spz9	ts13z1	ca22n11	spz2	ts17z1	spz8	ts20z1	spz9
ts21z1	ca26n11	spz2	ts22z1	spz8	ts23z1	spz9	ts24z1	ca27n11	spz2	ts6z1	spz8	ts7z1
spz9	ts10z1	ca30n11	spz2	ts102z1	spz8	ts103z1	spz9	ts104z1	ca31n11	spz2	ts36z1	spz8
ts37z1	spz9	ts40z1	ca37n11	spz2	ts113z1	spz8	ts114z1	spz9	ts115z1	ca40n11	spz2	ts77z1
spz8	ts100z1	spz9	ts101z1	ca41n11	spz2	ts25z1	spz8	ts26z1	spz9	ts27z1	ca47n11	spz2
ts60z1	spz8	ts61z1	spz9	ts62z1	ca50n11	spz2	ts63z1	spz8	ts64z1	spz9	ts65z1	ca51n11
spz2	ts44z1	spz8	ts45z1	spz9	ts46z1	ca52n11	spz2	ts14z1	spz8	ts15z1	spz9	ts16z1
ca56n11	spz2	ts41z1	spz8	ts42z1	spz9	ts43z1	ca57n11	spz2	ts47z1	spz8	ts50z1	spz9
ts51z1	ca60n11	spz2	ts132z1	spz8	ts133z1	spz9	ts134z1	ca61n11	spz2	ts116z1	spz8	ts117z1
spz9	ts120z1	ca62n11	spz2	ts55z1	spz8	ts56z1	spz9	ts57z1	ca63n11	spz2	ts105z1	spz8
ts106z1	spz9	ts107z1	ca67n11	spz2	ts146z1	spz8	ts147z1	spz9	ts150z1	ca70n11	spz2	ts135z1
spz8	ts136z1	spz9	ts137z1	ca71n11	spz2	ts121z1	spz8	ts122z1	spz9	ts123z1	ca72n11	spz2
ts33z1	spz8	ts34z1	spz9	ts35z1	ca73n11	spz2	ts52z1	spz8	ts53z1	spz9	ts54z1	cas2
spz2	ts163z1	spz8	ts164z1	spz9	ts165z1	ca3e10	spp1
ca2	mdz2-1	cf701	si3777
|||CONVERT FOR ANELEX DECIMAL PRINT.
z2,taz7	ta1z15	tsz10	ca1z13	ts2z14	ca0	tsz11	ts1z11	ts2z11	caz10	dm0	cpz15	caz10
z3,suz12	cpz4	tsz10	aoz11	caz10	spz3
z4,ad1	cp4z4	aoz11	spz7-3	caz10	su1z12	cpz5	tsz10	ao1z11	sp4z4	z5,ad1	cp4z5	ao1z11	spz7-3
caz10	ts2z11	caz11	spz14	spz6
z7,sp0	z6,ta2z6	adz13	sp0	z8,ta5z8	ta1z15	ca1z11	spz14	spz6	sp0	
z9,ta3z9	ca2z11	spz6	sp0	z10,0	z11,0	0	0
z12,si144	si12	z13,si51	cpz15	z14,ta4z14	su0	cpz15	ta2z14	sp0
z15,ca2z15	sp0	si77
|||||||PRINT HEADING
a22,taa23	spa24	ca1a23	spp1	spa24	a23,sp0	sik1
a24,taa25	ca1a25	si245	bo2a25	a25,sp0	si1	1.40400
|||||HEADING FORMAT
k1,si77	si77	si77	si77	si77	si17	si77	si77	si20	si77	si77	si21	si77	si77
si22	si77	si77	si23	si77	si77	si24	si77	si77	si25	si77	si77	si26	si77

si77	si52	si77	si77	si30	si77	si77	si31	si77	si77	si32	si77	si77	si33
si77	si77	si34	si77	si77	si36	si77	si77	si37	si77	si77	si40	si77	si77

si41	si77	si77	si42	si77	si77	si43	si77	si77	si44	si77	si77	si45	si77
si77	si46	si77	si77	si47	si77	si77	si50	si77	si77	si51	si77	si77	si52

si77	si77	si53	si77	si77	si54	si77	si77	si55	si77	si77	si56	si77	si77
si57	si77	si77	si60	si77	si77	si61	si77	si77	si62	si77	si77	si77	si77

si77	si77	si77	si77	si77	si77	si77	si77

||||||||||ANelex PRINT ROUTINE
p1,tap5	tdp2	adp6	td1p6	ca2p6	si17	bip7	ca6p1	td7p6	p2,ca	ts1p5	su3p6
cpp3-1	sp7p3	ca1p5	p3,ad7p6	td5p3	td6p3	ca4p6	srr0	sd	ts	7p3,ao4p3	su5p6	cpp4

ca0	td4p3	ca6p6	ad7p6	ts7p6	p4,aop2	su1p6	cpp2	si245	ca2p6	bop7	p5,sp	0
p6,si167	ca	si700	si67	ts	srr16	si70	7p6,0
|||||||||ANelex PRINT LIST Z
z1,0	DITTO	170r|0
||||||||ANelex PRINT LIST P
p7,0r,0	DITTO	700r|0
3000|s2,0
||||||||CHARACTER COUNTER STORAGE
n11,0r,0	DITTO	100r|0
3||||||||||CHANGE FIELDS ROUTINE
3770|ca3772	cf701	si32

START AT 3770
tm