fc22-2-11
(24,6)
IN	iFOR	4	4	8	OUT	a1,aoc6	cpa2	t=c5	IN	ica1c6	idv5c6
iMOA+n1.234567f	its1c6	imr1c6	its1c6	ica3c6	idv5c6	isu1c6	ispa9	iMOA+n1.234567f	iSTOP
a2,IN	ispn1	iMOA+n1.234567f	itst	iad1c6	its1c6	icat	imrt	iad3c6	its3c6	spa1
a9,
LSR FU 2b (30-j,j) SQUARE ROOT
za1=c5	za2=2c5
0r,ita26r	its+za1	OUT	ca2043	dm0	cp25r	ab0	cp0
ao2042	srh1	ts2042	sp12r	ta22r	IN	its+za2	ica+za1	idv+za2
iad+za2	OUT	ca2042	su1	ts2042	sp	sp12r	sp12r	IN
isp
END OF SUBROUTINE
||||||||||
c6,-1600	+.	+.	+1600.
n1,itav1		|RANDOM NUMBER SUBROUTINE
ispr8
isps1
its4t
ispr8
isps1
imr2g5
its6t
isug5
itst
imrt
imrv3
isu4t
icp1n1
v2,ispr8
iadv3
icpv4
ics6t
its6t
v4,ica6t
v1,isp
v3,-.5
g5,+1.0
-1.0
s1,
|||||||||||||||||||||||||
LSR FU 3 LN x
za1=6
0,ita32r	1,OUT	2,ca33r	3,ex2042	4,su33r	5,sf35r
6,tst	7,cs35r	8,ad34r	9,slh15-za1	10,ts1t	11,IN
|||||||||||||||||||||||||
12,isu36r	13,its2t	14,imr40r	15,iad42r	16,imr2t	17,iad44r
18,imr2t	19,iad46r	20,imr2t	21,iad48r	22,imr2t	23,iad50r
|||||||||||||||||||||||||
24,imr2t	25,iad52r	26,imr2t	27,iad54r	28,imr2t	29,iext
30,imr38r	31,iadt	32,isp0	33,+1	34,+15	35,+0
|||||||||||||||||||||||||
MULTIPLE
36,+1.		38,+.6931471806		40,-.0064535442
42,+.0360884937		44,-.0953293897		46,+.1676540711
48,-.2407338084		50,+.3317990258		52,-.4998741238
54,+.9999964239
|||||||||||||||||||||||||
END OF SUBROUTINE
{61}r8,itav5
OUT
ca2v7
mh1v7
slh15
ts2v7
ca3v7
mhv7
slh15
tst
ca3v7
mh1v7
sat
sa2v7
ts2v7
slh15
ts3v7
srh15
ad2v7
su0
cpv6

v8,ts1t
sf1t
tst
ex0
su1t
slh9
ts1t
IN
icat
v5,isp

v6,ex0
slh9
su0
cp2r8
srh9
spv8
v7,0.02722
0.07335
+0
0.36412
c4,+0.
+10.
+.1
+1.
+50000.
c5,+0.
DITTO
16r|+.
START AT 32
m