~|CPP@	|	lT	,{!>	~G
	}N	?M	zN	A	yC!	l~x	}	l?	\x	l\wr	vCvwruu7w{#{wryy7ts#	rGq	,p8G	ongm	|mmS!lbHk{j(H	<	\i	l\Mr78Mwj(H	<	\h	l\Mn:f<;@P
`:P0Hx0\	`
?^Dp
MAIN  p
OPEN  p
RTAPE p
SUBSC DA^RufA+TEjAy^S`uf
AT4j_A^TufA+TQEjpL01$K=%L%0)	L)0L116K
L;1f
AT4QjoA^YufA+TVFj@A^RufA+UDjAy^S`uf
AU4QjOA^TufA+UVDjAy^U`uf
AU4PjA	^V`uf
AU4j_A^ufA+UQEjAy^X`uf
AU4Vj_A^YufA+UEej@A^RufA+UQFjAy^S`uf
AU4VjoA^TufA+UFjAy^U`uf
AU4`pjA	^V`uf
AV4QjOA^WufA+VVDjAy^X`uf
AV4jOA^YufA+VD0jPA^RufA+VVEjAy^S`uf
AV4j_A^TuAVEjAy^U`uf
AV4QP5jA	^V`uf
AV4Vj_A^WufA+VFjAy^X`uf
AV4joA^YufA+VQFjPA^RufA+WDjAy^S`uf
AW4jOA^TufA+WQDjAy^U`uf
AW4V@jA	^V`uf
AW4j_A^WufA+WEjAy^X`uf
AW4Qj_A^YufA+V`j`A^RufA+WFjAy^S`uf
AW4QjoA^TufA+WVFjAy^U`uf
AW4`ejA	^V`uf
AW4joA^WufA+XQDjAy^X`uf
AX4VjOA^YufA+XD%jpA^RufA+XQEjAy^S`uf
AX4Vj_A^TufA+XEjAy^U`uf
AX4P0jA	^V`uf
XQj_A^WufA+XVEjAy^X`uf
AX4joA^YufA+XFjpA^RufA+YVDjAy^S`uf
AY4jOA^TufA+YDjAy^U`uf
AY4Q@jA	^V`uf
AY4VjOA^WufA+YEjAy^X`uf
AY4j_A^YufA+YQEUjA^RufA+YFjAy^S`uf
AY4jA^TufA+YQFjAy^U`uf
AY4V``jA	^V`uf
AY4joA^WufA+YFjAy^X`uf
AZ4QjOA^YufA+ZVD jA^RufA+ZEjAy^S`uf
AZ4Qj_A^TufA+ZVEjAy^U`uf
AZ4P%	jA	^V`uf
AZ4j_A^WufA+ZQEjAy^X`uf
AZ4Vj_^YufA+ZFjA^RufA+QTjAy^S`uf
A5VjOA^TufA+TjAy^U`uf
A5@	jA	^V`uf
A5QjOA^WufA+VTjAy^X`uf
A5j_A^YufA+UPjA^RufA+VUjAy^S`uf
A5joA^TufA+VjAy^U`uf
A5Q`UA	^V`uf
A5VjoA^WufA+VjAy^X`uf
A5joA^YufA+QTjA^RufA+UjAy^S`uf
A5j_A^TufA+QUjAy^U`uf
A5VP 
jA	^V`uf
A5j_A^WufA+UjAy^X`uf
A5Qj_A^YufA+VUjA^RufA+VjAySuf
A5QjOA^TufA+VTjAy^U`uf
A5@
jA	^V`uf
A5jOA^WufA+QTjAy^X`uf
A5VjOA^YufA+UEj A^RufA+QUjAy^S`uf
A5Vj_A^TufA+VjAy^U`uf
A5`PjA	^V`uf
A5QjoA^WufA+VVjAy^X`f
A5joA^YufA+Vj0A^RufA+VTjAy^S`uf
A5j_A^TufA+UjAy^U`uf
A5QPjA	^V`uf
A5Vj_A^WufA+UjAy^X`uf
A5j_A^YufA+QUuj0A^RufA+VjAy^S`uf
A5joA^TufA+QTjAy^U`uf
V@jA	^V`uf
A5jOA^WufA+TjAy^X`uf
A5QjOA^YufA+VT@j@A^RufA+UjAy^S`uf
A5Qj_A^TufA+VUjAy^U`uf
A5`EjA	^V`uf
A5joA^WufA+QVjAy^X`uf
A5VjoA^YufA+VjPA^RuAQTjAy^S`uf
A5VjOA^TufA+UjAy^U`uf
A5PjA	^V`uf
A5Qj_A^WufA+VUjAy^X`uf
A5j_A^YufA+UpjPA^RufA+VVjAy^S`uf
A5joA^TufA+VjAy^U`uf
A5Q@ujA	^V`uf
A5VjOA^WufA+jAy^X`uf
A5jOA^YufA+QTq`juKAAAAACh5|
YEQ@ujA	^R`uf
AW5joA^SufA+WVjAy^T`uf
AX5QjOA^UufA+XVTj`A^VufA+XTjAy^W`uf
AX5jOA^XufA+XQTjAy^Y`uf
AX5V@qjuX0f
fC=juA0AAAC=0p-UQ@@%qpjuKAAA`AC=0zpUPQ@dg3A

tpYPqj|uo?9APh5
YEPo9	A]o9AP qjuq?juK0o9APp	e5
ftfMAC0Cx>*fAM0eju/YCCj3YfA[@e5
g&gf=CC3&)Y5/YMt&u(/CC$8u/)A@	e5
o6u/CCf>of-A@0fe?6	u/9CCfojfA[
fe0?o6u/CCf>of-A@0fe?o6	u/9CCfojfA[@fe0?o6u/CCf>of-A@0fe?o6	u/9CCfojfA[@fe0?)	5/YMt&u(/CC$8u/)A@	e5
o6u/CCf>of-A@0fe?CCfojfA[fe0??C&)Y5/YMt&u(/CC$8u/)A@	e5
o6u/CCf>of-A@0fe?C&=)5/Mt&
u/	CC$u
/A@e5
o6	u/9CCfojfA[@fe0?E
fP a|EAqt a|PAqt a|UAqt a|`Aq	t a|eAq
t 0CA	\@4NvCZ*PCFF *`CFZ
pCFF.*CFFk+CEDqx QaFz\<qOH@a_D	G	
T	uB\ D@Z%~Oe~O \0DNv\@DN/\PqO aF\+`Dqt@aAzB<qOH@a_DFF!+AB+Eqx QaFz5< q_H@a_%E	GB	E0EE@!*%~OuOe@ENOePEBNu`Eqx QaFz5<pq_H@a_AB+Eqt@a|dFj{
Aoqt a| dTDa0A_qx _Oat
pAO+0F@\@Ao |PdTD@\`qo aCb*
OA
o<dDjLAoqta
Oqt aAz.LAqt a|Aqta
Oqt a| Aqt a|0Aqra|@qAaFzJLPA Az !/|`v`v`v`v`vIVE8KN oIt`A C 4N (pCt #AT`p	H0 CTC!`(rvH@L!a8rEs S 4rosEo@E`@me-spT`_SB u
xGNQ0@Aq
Oa	\@TDe@A_ t
pAY,P@AqOa|UAqt a|`Aqt a|
AUA%
N
~!.9Mj
i,}\XXC9fZ/N)U`LS ECQ'
ki@}MgMC	@C	@}MM -
`~C9M'*E5`
B
2 . l	q@
~MJMC	
@C	@}	,|(?,H/0(*{	,z2zy	,z2z	zGx	,w(?>H/v::
	lzz7
!n	zCEuM	zGzt2szsrq'zp2ourz(?XH/Xj*u	,ss7uq#quroo7uz#zn{j
*)@	sC!jGp=	&HM
P 0
%~x}l?\|lT	,{!>~G
}N?MzN@	yC!l~x}l?\xl\wb	vCvwruu7w{#{wryy7ts#rGq	,p8Gongm
mmS!lbHk{j(H<\il\Mor78Mwj(H<\hl\Mon: <;@P
`:P0Hx0\	`
?^z7M~{	}C!l|x	{l?\zlT	,y!>|G	
{N?MxN@	wC!l|x	{l?\vl\h{l>hC9YZ'O$N1EHT0N
C REP
DE ETN?lr@({lgXC=XC	u!tc(mzsr2!j
THG= Rx0\	`
?PEn)~2	}G|!.{2zG
yO	@xO@z!>wxy|?\v|i|"	}C}|rzCz	|}!>wG	
yO?MxO@z!>wx	y|?\v|i(J@X _Oay		@AZe|AOqta		@}EI	Ex/EAqO  P?-\
`> PHN&,('H/)"<b~*rC(2<+b ' J,&H"z)=&}~'*C(K(=&+*
$C	|{0(,{z(&y)&x*&w+&vu'
tBtr}	|,0sss!rg
CK>
qp0(J{Jn okXp8ug]o?C
U
 #2qVq p{
<@<
LI	)0)lJC&EK
L01
$K=%
L%0)	L)0
L11
6K

L;1
LI	)0)lJC&EK[@Y{Z0%s
L

L

L

L

L

L

L

L

L

L

L

L

L

L

L

L

L
@CY4%+*!)J2<[[:m*8%xg6;<[rv^a
;;'0?)-7676_7B*)j).c77cl&	C_g	L	)&/767-6-(6B*-d-_77d)b720-7)l-&IK8-7'7B
7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K
<H
%abE
H
NI
|z&l%+
|N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m
)QFs
l@

TO!N!(/X~b2b}3&L
2B-  5c5
L#0
+4,b57j
2f)f4$&#@# nJ>
n!"b
|G#]#V
3f{Urz xO33$HVbn?d
.

ny
W0%?p2TA1%=i~+Q rRfrTrWBrX-rY#r`
r
}G| }c{z(yy yxy)w(zvu)$t)
A$ kbk
lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f 
ls(?\A$
AgA NA ~k-j Abe
les7 |e Xp83BWd'YExo)R*WR~}7} ~|b'{"zhd~yz)H?!hG
*x"zxzi~}@? 

w!>}S(}@?O!.vuz}hHz f} .~>zxz)OD
,~<Z
}C!o}b`vy J	.xz)1 
tC@s{ozrZJtc(S{yz)S0 eO.@EeR0-@{PtE% >NKf Lf 
l~~NO7})| R2s`sUsSs{6sMhO
o(P
lM"R
lBKJLKKj MfL<J}/K .{	z(?H
,~yR	zGM]Jx0 
~E\K&Y(O
oK$U]*{S
~w?',A2)p
 	/s/ 3hZ*8TOeB
~(?}"
8)| {H/zy"
xC0(wy0
~C -z2b *z8$
2
lv2u2}t 
8K2 /4Z.
xCsr(3zq@.z/94*Do
f%)vFZ,+P`G@
WS&
GN@ JFA@ 

fO!
FO#

G-/sp?JMu!  @`W  2%	~8U
~OP	l}(?M@/|"O}G	l}{2@zO
oBPJQP
lz"	}G
yCx(/P!.}@/ wiR
lBQ	}>HIz}H>}vsvgu>u}st}s}'5	,}r0}
|0	}C{H/%Qd>w PP&R#vP@@HJvT@@ JfTCPfZ@@ v|pZz)rtK#5)$ ("   .)bn~6C
l4X7hQFn(hn!JDD
@~b>z*N
*C*(O?D"(>z*3JD
l**6D*+!Dfj	}6|6{z0b{jxj	}2}~|2|~{2{{sH
nzyxDHE+	}D>}|s|g{>{
|j#90@
F}
l(?~9h/wO&xozO"{?
?-P 
}E70(/

l0(|y{ ?##Kz}!Yf#>
O9z

n
y`xY2,*wZOZIz
nnsv'Y>J, ~W&}Y"HbnO0Ya(V
oY$]
,Z>
uC Yfmt"xYkz)s'@\*e`8t?@2RB*)R} .
G =f 
l~v
Ez}|`o
Uo
So`W(
"={K
~E!7h~ziy<&x=&~7x~@5z!
l~XG
*&j 
G b=d /5}"
wG} .=v"u
CH$zts)O bFbb
lW?t0Se|#uOS*8TONC5NxFwbXn&bn4 n4b
G	~C(WzU"b(;z!b@;zbHf.bf/JC .bAj
@"@HzfiH/@/Rf.X

l}ye"onh rm	~nx	|Gn	{ ~mfVbkn?n;r&s&hmf Ehn8b tbcc	l8Ef	~C}ck)).
|`Xn)){ 0Df.bf*0@b&b&b&5N8izH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{"	G~'}'F>fj*po(~xp&
c
F
6&
&cF cb7#j&c7F c	l68	G~68	~G}68	}GVN4&k6{	 	C|	~Cb{@/kz"yiKJ./!f	G~}w ([c\bd
hU	[<Vn\=&>(L
:h~SE 
BLOCK 12N}tp5NxF;xh'&	c	F 	c	F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi L
9Hh	lzpz*cpefn
l >A~0~&J0n4"cF%&&&c' @H1~fn~b
l}|y
6:&7c7BF 7c7Fc n66
,{7rzy{Hf.bf
l}N{V1	xC wr	xG 
hC^hdh_6L
\HhdjfFEwOR.n
bDB(|hT&*-1L
=VVVVVVVJ, hZ.C$=B"&L5
 DB |	LC&+J^}gz@ Z	J(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G	,EH+-S-HIb
EIKJb!HnG&	KBzzno7 JbJej
(?V,
IV  
C(VzB
V
R Q)&6MLH
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

L

IUfBtLvx]zLojl:np;rD@	|&!#%')N.~rsvvN]

/xRC
 `0&cd0cdaf>atH
f666b&
bC

n
PhbP8b(J
.
Jhb&.fJ(b8J~&}f}a(]z 
PJ|(2z{H/zy"P00!c (bbcoz

n
r`
gK?<(xzgj @@`?M	|
bn4c)F)c )bDn
bD
f)r$+	9P@/$!
f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! hnnD
BHrH~wJ ,-IStO&
c
F

4nH?! hD L
'Jh h	G~}w (

00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3:h`fp~@OR!W7(T(?'LX
LV  L
0Y*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;
LE{ 7ES'L
1<=ajwao[2h\LhTuRSbh`
t
<~
vGwiz
VDyoP,(
,(q'xHlm7!C"d"6"N
<8L
@!b"
n#
%@J
bh@/z!
f3
&"h!f &&~ }v-|R
Gn|brt{]KH/Dq-n{r
C 
b  oH/I"rr|
^Fzbty]iq-|ytz]Hz 	s^A^APXq
~(?}"
8)| {H/zy"
xC0(wy0
~C -z2b *z8$
2
lv2u2}t 
8K2 /4Z.
xCsr(3zq@.z/94*    END
CALL 0,EXIT
[0, BLOCK 2
[1, BLOCK 2
END -sp?JM}!  @`W  2.

Note: Lines longer than 256 characters were wrapped