fc TAPE 1313 m100 p40 PRINT SUBROUTINES HOLST
OCTAL
g1,	tag2
	clh12
	si225
	rc0
	clh26
g2,	sp0
||||||||||
g3,	tag5
	tdg4
g4,	ca+
g5,	cp0
	spg1
	aog4
	spg4
||||||||||
g6,	tag10
	ts4g12
	cag12
	tdg8
g7,	ca1g12
	tdg9
g8,	cag13+
	dm4g12
	cpg11
g9,	cag14+
	spg1
	aog8
	su2g12
	cpg7
g10,	sp0
g11,	ts4g12
	aog9
	spg8
g12,	g13
	g14
	ca4g13
	3g13
	0
g13,	10000
	1000
	100
	10
	1
g14,	62
	21
	15
	7
	11
	19
	27
	23
	3
	54
||||||||||
g15,	tag16
	caj1
	spg3
	ca5w1
	spg6
g16,	sp0
||||||||||
g17,	tag20
	cag21
	spg1
	ca1g21
	tdg18
g18,	ca21i1+
	ad3g21
	tdg19
g19,	ca+
	spg1
	aog18
	su2g21
	cpg18
g20,	sp0
g21,	8
	21i1
	ca50i1
	t7
	7
||||||||||
g23,	tag25
	md4g21
	ad1g12
	tdg24
	ab0
	ts1g25
g24,	cag14+
	spg1
	ca1g25
	clh23
g25,	sp0
	0
||||||||||
g26,	tag27
	clc0
	clh21
	spg23
	spg23
	spg23
	spg23
	spg23
	spg23
g27,	sp0
||||||||||
g28,	tag29
	cag21
	spg1
	ca1w1
	spg26
	cag21
	spg1
	caw1
	clc5
	clh22
	spg23
	spg23
	spg23
	spg23
g29,	sp0
||||||||||
g30,	tag10
	caz23
	clh26
	ex0
	sdz22
	su1z24
	clc12
	ts4g12
	ca1g32
	tdg31
g34,	ca2g13
	su4g12
	cpg33
	cag21
	spg1
g31,	cat8+
	spg1
	ca3g12
	tdg8
	spg7
g32,	-0
	t8
g33,	sdg32
	ts4g12
	aog31
	spg34
START AT 0
m