fc TAPE 131-228-2 ROSEMAN PROBABILITY CURVE
(24,6)
c1,+0.2692346551	-0.2692346551	+0.4536899230	-0.4530899230	+0.5000000000	b1,+.5	-8.	+4.
+1.	+2.5066282	d2,+0.	d3,+0.	d1,icab1	imrb1	idv2b1	itsd2	isps1	itsd3	icr4	icac1+c
iad6b1	imrc1+c	imr4b1	iad6b1	imrd2	isps1	itsc1+c	ict7d1	icac1	iad2c1	imr2k1	itsc1	ispd4	k1,+0.2844444444
+0.2393143352	+0.1184634425
s1,
LSR FU1 EXPONENTIAL SUBROUTINE
||||||||||
za1=200
0r,ita38r	OUT	cs2042	su39r	ts54r	cp7r	sp9r	cs39r	ts2042	IN
10r,its+za1	idv52r	iad40r	imr+za1	idv50r	iad40r	imr+za1	idv48r	iad40r	imr+za1
20r,imr46r	iad40r	imr+za1	idv44r	iad40r	imr+za1	imr42r	iad40r	imr+za1	iad40r
30r,isp33r	IN	imr+za1	its+za1	OUT	ao54r	cp31r	IN	isp	+2
40r,+1.		+.5		+3.		+.25		+5.	
50r,+6.		+7.		+0
||||||||||
END OF SUBROUTINE
{61}d4,ica4c1	iad6c1	imr4k1	its2c1	icad3	imrk1	iadc1	iad2c1	imrb1	idv8b1	iad8c1	iSTOP
i START AT d1
m