fc TAPE 141-100-101m4 ROTENBERG
(24,6)
t=a3
a1,
LSR 141-100-100
za1=a2	zf1=f1
0r,ita51r	ispzf1	its1t	its4t	ica8+za1	isu10+za1	isu10+za1	its8+za1	icaza1
iex4+za1	10r,itsza1	ispzf1	iad4t	imr58r	its4t	icaza1	iex4+za1	iex2+za1	itsza1	ica8+za1
20r,iad10+za1	its8+za1	ispzf1	its2t	iad4t	imr10+za1	imr54r	iad6+za1	iexza1	iex4+za1
30r,its6+za1	ica8+za1	iad10+za1	iad10+za1	its8+za1	ispzf1	its3t	ica1t	imr60r
iad2t	40r,iad3t	imr10+za1	imr56r	iad4+za1	iexza1	isuza1	its4t	ica4t	icp52r
isu12+za1	50r,icp35r	isp	ics4t	isp49r	-1.3333333	56r,+0.3333333	-2.0	60r,+4.0
END OF SUBROUTINE
{61}a2,+1.02736	+1.00803	+1.001	+1.	a5,+0.4	+.1	+.00001	a3,+0.	+0.	+0.
+0.	a4,+3.	f1,itaf2	icaa4	imra5	imra5	imra2	f2,isp0	f6,isc0	icr1
f3,isc1	icr20	f4,ispa1	icaa5	iMOA+n1.123456t	icaa2	iMOA+n1.123456c	ictf4	isc0	ictf5
sp0	f5,ics2a5	its2a5
i START AT f6
