fc TAPE 22-2-10 PETERSON
(24,6)
t=c5
32|-.
DITTO
432|-.
b1,isc1
icr500
isc0
icr100
a1,isc2
icr200
ispn1
itst
iad2c4
a2,isu4c4
icpa3
icta2
ici500
a3,ica32+c
iad6c4
its32+c
ica12t
iadt
its12t
icat
imrt
iad14t
its14t
isc0
icta1
isc1
icta1
icr201
a4,ica2c1
isu32+c
icpa8
a5,icta4
ics2c1
its2c1
iFRA
ica12t
idv8c4
its2t
iSOA+n1.23456tt
imr12t
its12t
ica14t
idv8c4
isu12t
ispa9
iSOA
iFOC2
+0
+500.
c1,+0.
+0.
iSCX
+0.
+0.
+3
+20
a6,ica32+c
icpa7
iSOC
c4
a7,icac4
iad6c4
itsc4
icta6
iFRA
iSTOP
a8,ica32+c
its2c1
OUT
ao
IN
itsc1
ispa5
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
||||||||||
{61}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|+0.
3a8|ao2042
i START AT b1
