'===========================================================================
' Subject: PATH FINDER                        Date: 10-06-00 (03:47)       
'  Author: John Paul Jones                    Code: QB, PDS                
'  Origin: jonesjp@gofree.indigo.ie         Packet: DOS.ABC
'===========================================================================
' Path finder for QB
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PATHFIND.ZIP",4^6:Z&=47193:?STRING$(50,177);
U"%up()%9%'%%-%U(RjN.$>G9p5.%%V$%%%1%%%%uf%ymkn%siSg7fxN#q,FS?fk^
U"k<PNQ_k&)Y'HF$/8)BpA1AEe*,KSPYnLF8K'9&SiJvq*L18uvGEgfc0Pf_msbP8
U"<14$%$$$$U$ndR>R(qx9(B)lhM=JLtzDdZ'9Ad+iBmQgI>d4Cgbn<uP_H,n%$Q3
U"Rsdk%Q(2K[48R:I^Qbp='OA)N.TmKPLX;Eprrt&)m_(N>34ve)cf4.KXfn<]^RB
U"i%BUaZP%r5;(&YW&</g6)zo;MCvJZ08)/48,4AQ(4VVrD/>TsvY.vuYi88W:1/F
U"I=RR_oiS\NDMCDR=r=R=li:ER>La?VHpRQ0U(o.>c&OXgkHfNcjM76<sE_V(VT=
U"ENHX1F^uQh,o6hW[f^0G^,OGP5mX$,;sfvACS=I/;=$]O5Ul4ja>FpG3>SgB%%,
U"eh%w8n\xFrW<x]\4>sqE(qHP-7.[CPKlHsc,\3e>K;PV4$cC_BHiLt8G6EhuGT'
U"hi1Zof/A94euwTsiuh[VPrNFnS09)D[Y46ONs%rd:uV)pj*3^(,-[Gr[*,wP%ot
U"\6*0BKnS#egR6b/>;LPi>P:rX\>5lkAQ#7PV)/CA-?c.HHNY5n$USmd2tLcdJ5I
U"o?aU9rB8<FUo6ORrG5iHMUNRVVuoO)b&L_]Kp]%uT$K)kkywXns,(c$8]#(OKs,
U"pdB[,W=1flPoqEEKK9l<W[kFK8^nP0DwmW2ZPoo+YKC7.G=r#9rl6(qR-mxVq>g
U"/,:_k#2vd2^;A*nc1Q(JE5S]ZGg]v<fP+Oae%afofn,Ic>LHTeX<G&.>Bl>8l/F
U"iLxJ07(JT^4b$tLP_(QDNeBAF>'v-YpCyi=*[]4I3S1VKn(jG,:Ro'8zBY,A;\w
U"t/%dUPWo$V<5vg.^Tn_]RZluq51ak1(9qF53EC6)jq=a;r$6f4Z$,qC%nS+(dr=
U"WUMlRX^'Pa+gDA3L=Qf]W>#$BW1Dq$ayeA5s,D02BQjiEC,+56I,hqg$(<dWE*r
U".[qQXSqdj[oL75(;BbbMM[sSE,aQ[f1.2vDuXFD_SD8=j*CqPz*MBh68^$fE&L_
U"<N<FbWb:3>)aNicEnPaZp18*B/4mwD0eD*IS_/Gk)9<:rOqI'=baOs(_O)31sl9
U"OLs:?_#5GJv[mj[2Ro;DbS*enqP[<.R(i>TRq#O'4d2GFduIf6,$sjU]_M+^l1h
U"/HFH0eJF:O77-g'^*>s>p'<)Fny__r-H9DB5a9\P.U[)%7T>R?W3<VhaWx*GqJ/
U"T]S%x9MsCwXpk,.<O%:DjJBWo0+],QS2Wepe7sEgc\ZJar6f4ad.gFZbeg]G)WE
U"q^<)%-d9I610=K_\mF&#%#U1EZ?#/olq:%[/5XJ/'aXJHVF9CJTOg*t7<)k?D+A
U"C05Z,C:PV$1JJFQnf_R].'O/qc5meG(Wch,ovW6IKyA:4+[Qf[gCf6?o[>0Q-[=
U"3,6kw7g<.6YZ(2(F')^%$GF&M]<QFe0dte:'s\j0kG5IfDIRu<?tB:*uZR5L[+K
U"tUgP^cYJn:)cX=qc.n2N;ihJ5A0^rkFd.uM:&Pgw^%a=&j6xi(Lk-.6;=34#mub
U"hEAq8tjbUORtsnbFXN0,h6vI#u?*GTjw(T6VU,cLsl)^W(xQrVNQ]MsZMQo)ThP
U"PIt.2OtuC.W$fO_hdCL+d#:/ZR;EGe&eWcKn\NGb+[o'a+d6ZfvNV:OZ0<]$XBp
U"3j%jg(W.6d+GGG4cnJ8ul._7MUJGLWBw(#<P/LPj]bMh'_k*0?_F=9[BWq9o.g7
U"_.;RU(6KhV2.wxU,0I9<>Lk/*CLM^[Ij=%m0Y5$%bmHg'RO**k]2g'%qj8\x2)$
U"lJo=0,7&QPjiCbBkSh?IakwYm<FwiXjiEI%,v-K4B2G$RGa1<F4O?ptnOCrvsL3
U"9%d3>P\R(YK$8_Y.n4_+LZ7ksPra9Rok&D*)[4Q_-T=Vi7.^q1X>2-?$uV3pSG1
U")-h/NXSO>N&Pr$oh_O)pMM-BpNi0(?#5Z_:Xum(<NYBpp<+e)E4*Q9^?RkQsJP$
U"lSj>Fc3IVgEK=-X)vgQGyF6JF#kMy'_0]7keFFkH9/aJW\(*'JT7H\.SHOGeEE=
U"#L'53*BdBP'=Vqe.eZF3<C9gE),paWNk4#l55gJAY[2R.Kp-m-dq>G4Vk=uOKo4
U")bnQ9gCtFs1CQuu7g+#yDmD+e0m&P6cqN:ZM&B&lZ*5I)n4DRunOtN:)3-$SN^p
U"S2ssO8Rd1Ve<i,3,pUk(AGX[vYn?<>GA$0xs-bj?l]jaLqDP%gUVWwfRfE()L?v
U"p/<Y0kdqGgA1E%-8]'f^W.:HQo(YK#)).[87KoMI#^MkQ\;(;wBt+3QYur(L73T
U"7VR?LY4)Um5HsW%u)B'4LmWy&XgJc]XEFKdnd6#1l6vE2XMM*m6dKKc7;K8i-?A
U"6eE.abC0,c1u^bC5juwV]In+QSI(g9P5zBMy'*'o=P7qcw;9G-&d*;p%<9](fR#
U"4F.2vQnU%?ncBB=p\q/cTRtUax%[CUR8<6J2EVFI1CimqxUuemRi)oL*)c(mfas
U"X/6F%^>G#iDwxXWB-TSXg9sq^2u]EMHkt9BMOJ\k&KaL_\O#sc+]NgQZZ*GMrTO
U"eRLyUgR/-25vgA=;ZKS/RhYFk>X*1hJsb,Wq;a%[vJDavKHr'_Af7=tRsSMLNc/
U"eJfGa'Ia45]DwapS2t1'/&2]=S\&]gTXngA,[l*')h_z1^_c+W/&B5EQd8Co+5>
U"d9&IsXD8+q?MH/h33AAZK)\(000[c<5LQ.1g[*x<[n1o3b397x\hgX:*I&u_;SD
U"G6*&ok:M?k_67t4uHm;lx5$&HPEr#G=LcBF^Ai[(V3Q7a_8D,'\H+WisNBR;N$p
U"K_Ra),2(jgV=P?%8Y$.r<]l^]L(KsZg(9t.(-,,hDeQ7r/SOCos;sRwkDqV%1OC
U"8G<lioYBB+Wp8U-loA0s/g,8kO\J$3pOez)_#O1TgrT<(#NM>H-ciXU$XqUq9A.
U"x%KIK./$9XX4wA3#9NM(=Y1jjlSVM)5Ok*Do$wLdI)u1]ctmJE0+z9,+[<+<]Mr
U"3jB_AO0[cpJ3BXYGm2rmoXRScs7(Qp?LzoGZMsQ0NBDrR,e]Y?DeHywm&t['[Y\
U"_lWH#e4hK[5-4:=q:7HW/ohkWS9A:<%aE(9-NF23NbxU-c<=)sF0\GL-hrgyw[;
U"-IjvXqvA1hgE)QB(G7yqnn#KUl^oFUFF9YpRO%]e)V%=+$p;grLxs'Q]:A12sx1
U"HQ^Ro=D0:>hJ:un2a#ql*tL%UF.0Li#/W=O\LDOz%6'3%M?*5zC)i[L?;71kCgY
U"MjZ]^/Ti6+dB?xe]najLYn9/Qe#nc%WF-ymvmgFV7CDSi,iIg4Nv*QogZABEACj
U"YX:=pBih%e'GKRow*.an%t?:hlYkS;M0jMEOVCtQxK.0JXa4n?g91PUKV.Ip1=^
U"bT\2$h1mI^xzQIDz5<NCuk14oRl.J*flvQox*x5A>OA#Fl:SO=X]_gs$_&kB9[x
U"BvCb^F,RRxEtazc-oB3a1W$cD18\rqV>Nn\]:/JDNiN=L%olHZQd'3)fBw<65o9
U"'49</n_sgtgc]q=YiHO\-e=o_ef6-jG&DXYVhjQ\r8fv%9I%]:&VO1UxP^f#eau
U"d[Ek^)QpnQ<OUA$2C5Kjc3=KAqwmWq*YSfd[v+*?HGOckBqnjhCSgZh8lkp1,#g
U".SeO=aUUbrKUqr>'evEaQVT8W5CD3hB_J4(l8arE4kOkfWj=77-m'kd0_rnreN5
U"l]4XL?GvR_(s7gOTK6tZBa_ZLMMYX)d>hqaM.>kBQ-?b8>'>'gw9NBcmGdW[YHV
U"2fg55Wj,6eG3&)#>G'mQ[+),88)Gq*'Q&&Lh8&q[54QV+uia\K6P]4xH>AU[&gw
U"P>46SeF3-Z7>1N'I[avkWLLfqPz.DW+,#SCq;b54xd[P,(*FJrjbE;qn=oJI8aC
U"hMv9WY917CgZK*&ZwtKd6=J14Os$6[$W-./;DkC:2WM>ALHCP.J[s:,s\6iJ8W^
U"OZ/K>,LM5%t*,sgx-QDN&6.O%w/oap/U=dS8cJgmrMP.>_.jwO7A9KT#2+S:,T)
U"4:x_qRI]AzgtsJd2Y.?d.JRUq8%4Uftf')#Rg$=vxbr]QPhU:098'fk<IZJ<5[\
U"+r%wGHll(c(rz1BDz2leA*HZf$Q^$fGy9\RcBW>bB2\iq]_]'BMI4;<-7mYsJwP
U"943Kxil[gczL5wOjYf5tF_h.ypp(%]hPh)):g_wf49SJeb2Ma?1*jclD'sls6gu
U"<xifJ-llM8ovCY;1lO>p=o9wbAhkAK[(KBE3($'X^irLH']1:Jj\5N-CIp:pTE)
U"l#*Z$,h%$GVltc%^);^934h[Gu[]Cua0pG%]J]:]r.B]mei#*T\iqXC5<Ru\i<Z
U"G4<AKTBv=/#B[aB&LK'Jv]s5FYG'^B6/#TR8bw#]<HdJ-7l9D(eJ+&xe3c+T2t^
U"J2Qj0tgG]dj$C\(R[E[T_FG=iBta)HU4sBcqP9scD]8D,uxu]ikrn?w.3ab&)n*
U"#T0?L-2^zh;:o^G40uqNaA9WDRn*OJG$VN1hAc)h_2p72aw>X(=agk$wo):b&*V
U",EEO;S=\,PKBvl67f/u'Ty9me<+wLBe?QP:uoViJ&ok9RoA2(+d;G*k_\c%_.G=
U"4SEoM,.:v>t&ZiJNIvn]wB\36d(9Xwr&XH\PRJOBW<;aQS+ZxQRS./]3^*.8lBL
U"N72.St?S0P8c:rL[mu<B#Q1E54C1eP1ns)#6&?Oxdk2[Kx\GA<4Y=^xgs/#7Kju
U"lhOc7MBsoXr#eX^$X)WH&utUUL9xkrTcoK>#9FNAEb1Jq%Lvb:eFNJ?D_UQt8V1
U"YM0KJ$.RY]GeAp3ge0)o6v;dA'oC;z'g_3pQK0^r<^$L%]G-L,Y8dtzE^q^Oio0
U"0p$6c7oNMbEcZj*[a'*gveoP?)KZHO;0Wz6F'KE%Pk7VdgN^fN]gKY^n'*7(\A[
U">6lUwKGU8</.=[7'4um/RXu+AedZg*Oj9b'=SNX7?<J?8]u1=p:_'8/iCt9UDob
U"*mYBN3GW14-s*;+pd0&viAHL.HPDpXqJ#WStqynuo:HS0'JLGpQSZ>3d[9H>_1V
U"d'vZ[ac0e5^WWaM5[K+.?0K)a3(OJEZw;BlRH0j^JDQUNj?;qX:\%A>lofzksoj
U"FK;>tjQ(4vCnnv*YkQZ70d54Zl0gpSYHNAo5)^b%7&;t%qfGW&77UR4QMhH%7jU
U"'skym?i.Sn'sEN&slJbqjm48Nm$^K<kD#\FEVvx0_mLy$>y%mK0%Dc&Xg[z-llt
U"<oaUvuBd*:l.:zsqat8xraEX6.<W1RCQIDLD5YBG&mqR3E<[-D&V$>&I5*/rM#^
U"1mv9,p%p67=+$;/Ik(R>.t7XZk3yWma6y5SdS2P?6O5OQ3J?7z\O'M.aOZDewA[
U"fE+\F*BCY[Xzh7CYZ-m8?]vwbtih*R4#)$Bulq.EDUX+=WhdUn?rdn9B$Ge4ZG?
U">3rE\Oq*gy&RMPoxYV;=>MfL\P4XhQJve8VUvOa7mip$1Q$BrU>u3V$9+clEmn&
U"Nup(%)9%'%%-%Y%(jN7nRr:g\q%%a'f%%1%%%%u%fymk%nsiS^j'je($<y9V&e(
U"yi3z*3J85d/2QO1u[vYH*Kj(;qLqZi7(0Y=r/jnA]E=21R?N=B=Nes6QS<jPk3E
U"^s\&jHps?[BP7%h7u4^Gl6M;4]?q#3?kXL_b9i6<)SEVQpo%WNzgy9g+BqVENe(
U"gcy.VYFXvIupWpgYJiAr+AjAg%M*Bfaa8^?4.f'YE#c)ns)sx(6xd.tce-b-XVX
U"3I&,CgX%Y4EHGmm,?>N%K.1m6qLgjJWm+9x4agWj;n4>A%t];TfSlc,$F3,91Mm
U"k9+Z.46$)^i*=[+d?a'NbfcskTGM;>%(:'07Cxxtew64F.NgnSP%tH(q&t%e&\4
U"+;H]JWPW$<m(l5M6M[a1mUdsC2H4K5ecYNN1Cz^-jl$E3u0OgbUcxnI9)MDD/td
U"oiHKsywreebe)A#-::\r6Mac5p5b*P_-vEnFuaCU0CB1G/]q>dJh-&etc)nBE-w
U"hcwOP]H%jk&uBG>fC<V.gNgUnfkj0A8^x<Ycn%[Ai)+bU#_dp=Bvl/=N2eNP.55
U"n=XoCxX1)7tvY'Pd0Dmp6[B'v?,SgeHq]JL<7X)8m+AhS(66<iB.QkTryE0&y>q
U"Q>a))>K9=eN=?w5w;X.*<HX1ULkG#s:((<%kq-#N:\R9.t=]K116/APCgwsoDKh
U"'<,d5$[z#^3N.F]Ri#m#i'qB>_5VZC)M7a__gugJ5Mx3pG)Ke;^)A-.kn]3tf;(
U"xpcE9Drb(l0A^Ge_IS4jI'w\l1zUN,_%gIvRf6dz?=r2Mr8%5]tu,OGakkM*zFp
U"8iKUQRhZF'2Ub_$:ifrtHUiIsRM+Dqj[B76M07VzMFo4C^89eAsf%'Wm.TFa?1i
U"+K?n[&T4x8Cu]7pW>>%=h0)pGW'0\ohVD>9iG>(jv&iVDs$E+kLGTln=j:#$Y-C
U"L-gmGc1h31?z*+O7etK$22GN?-WV]&aF,vb=FECNJpLc<h&5Yam?2A8xy%p5%EB
U"G(c_O^#VzKU,yPD[AMQpZMEMa_57m^R%(6OhAD4G/E/t[R5=F>gP;t+iaf2[j9.
U">*<2s&Fvu8TW$/H<esQOSf>t2&vrO[H8G'&\&dlA#1a8lYBGO0<J$/6W)Dp*<j,
U"Tff,XV9*cBVD:Q]T/jB<d^G%X-V)a\9_)=#s4:_4+75()E>C&A.0P7eHe*A-SYY
U"v^W+Mr=_:>uPpBQ^%K69,]=ITf9_;V&gnqC06P*--Dp^q%Vor[j,Xl/ZS[m[1R3
U"X[aWB[MN4ii5gA)Fpvdebwu/;n_I3ivsS/%6i]L9hBws%[IN7M_IPeb[NT.pp_T
U"S:,06;IB3)>g5XE[cF^m)_y/M7;q&eO,d3I$766_1Fl\W:,.^l7eo9WmC%ZZAE1
U"fH$$M_iC,<>xF]9oU$,YgV].1&VFHYIHB:5ca'D+.O#4]Ab8dEIUi'_fmWdhwa*
U"dnnUv4cF46,Q7=NAD<av+da^hYq$m2lHrjT8MXa^s\*$u+roAWka$[CYjQpbhG.
U"FT:$R5$=VhdWq>,=A;f\>&l(w$9reC:dMt$?N=51g/(:rqJo?z06%HMk,4;\yQ;
U"U5M)f-Hcg7s:VPM=JJ_J=$uJ54eoy$2LJVmUhboJy:*dSOa,p=z,gLn=&?,d$>.
U"1*OvigEL2b+ZSIS0[c:estD1I[evo=P8AM$%AH_kMLuhSSA)t[(R7k)UCGS:ROR
U"OMSU3)tdWng.^I%unq1Ww-,C6;kBS0oN8kNb<B$_R/5<>2Y2?BdkEFGc6I5PAFR
U"#DgiRNI+<72Tg.km4/dga0=?<Rj-q4om5;69$wH_>QOEDi:ce;[GB)H=G;,TbCH
U"A:byn/SKoOZm3YC?=i8-'oZl^q5TT*$3:Txl0BYUiM29B984uH_m0*EI:o6(BO8
U"/foOeILa.BoJOfSjEXPqnTh'4574fE7>8Yo>Z_#d5<OVhz/C5'lN8rjShK=P,Jo
U"A/&YSs.-T:xRT#'sqMr)uW$F)X\J)8p+M6lqjjVPrp7+q0G7MIiEOqh0-b,$YqL
U"E\uZK^/Bu:u;ZHuKZ5'c3mGXiWl2Iog[.,a*<6cZeK+FE7<UCh6i0Q)JfhHYrgZ
U"rnIArm'eAjspWb/A.2oMR:pWXaJ$P'V^asF)TaRxk$f?TT()B-$:3$?N4sCV[SN
U"WVtE0vd=EV(VHVoVf:9.;u>'_to>?M(k[b%v(Ug-M/gw%NOBwq)hJa7bvA_R*nU
U"d7fUfXSj$BS9I;3+':TNe'so?-oMQ6>j(fB,?VOB&=%BS\<*1GyffIp#-BEhAF&
U"=lg>'-'t'y9OH]-TFOQHO\:izI&Gzv#T_PMo[vu8u4AEGGC$3\e,Y>^_^jeNQDi
U"b5Igqyoi+/e7ZIW'*0O/bEHEh4ZVfaJu-6v3W'_G0<=S&=rYaM7gHY&I[1)fo05
U"aY+?QpQ2,n=n3ZM0kRt?mmzBXJR'VetkU%?UJ'Tq&s0-/7D6O<_OLJ<;Q^/j]m*
U"yV4I(\cl9cc*,ohPyuV%e4kxaRoqq>Z,sxuEjda0'H+v7_I%HasnW6P'xPP'vo1
U"Px,K(KnDg'#[zl%=6knaiaoc%-5ng4oB7E*ko.+sS6&=ka^dU]/,#p>2.E\Ulf2
U"2(Yh$gb47^3HEf631;sq$L)h>1GhTh<3&a(SQa:to?mJYO(iks6THKGm]M1tQO5
U"iUoTp5k%8wpU/:^S&ud\7eSLo1D9Yz1RH^+TU1^ZnfK/0f_x%5KKj1ZAM-_qkIb
U"FvPj#^a3>)5S;pj7O%fepof'g5U;r#1/^MM+askGM3V<S.O$SA(Ofw[B2=9B]ha
U"w2QBHlHSWa:odIB,apnV&q\X7j4FYQ3moDhelf_7p?IRjyzSjareai%Ot/T?API
U"wydLC'3VUC)gl)5J<G+t9*7ClLc)2?8k&5)4EM9iQx7h=w-DG%NK;VbmVy=)tx1
U"Z#=:[U6^>dRYsUBP*^ujH3$Mr'gko/wO<+qg^AJ(R:D6wcEAYuWCl'lMUrw+2/D
U"Ja0gs&48H[QR?'IMAc2aP\_IE.JgBtV7L#W'[T$*>H9#K:I4&;&n8D'X%XJYia%
U"k_M1eJF);\Das'X'?mT/(m)*ndxIak[i9/QK-w#Tbcq%A^\.eK.jGxy4AH\t+cK
U"yrKqK9[2o9Prka5nR:hTU6=i1\wqT'I\b+D>jfaY_*.=9T'XbS6ypC<)#T/tN2$
U"<aA:SdM]$#TMj(U-X].)pt]\tKb'k/eia<7DY^]dnNR3)efEIT^z<8,#,ZR&_qz
U"77m.7i*Oo)vFoVo34<%>2t9InHA9u_yC+tM6.CF:uC_y+,fZ?cC1?cyZ^MdZq=N
U"Bjh^9a#p>r<\Mtb]3W=6%dBZc3WpH'dBPK3c8+^*0EPqQff[ahKR9rkH%nm3^J-
U"#e&Sf[gJM8_5&e,<ui+mE:dnz*(H',CIPWp,Tw'*7Py5Z+\:sJA?+J>dMHiuetU
U"bp*;5GDGxHz6=j)#pU&JYjjC>pbFj.VIUP:hIR/+LI:4EgCB^f6u,i,7zDMZ:EX
U"+'3EX)(3Es+(3]gHLHlZv35'qU,+E2tFp\:Wj$[]Py)A<EtDU&;4wBMCt2c1bWq
U"PnoM=]]RpLWi<u?X=HFSAM[(P=)#;$1c1>vWmV+i_OK):B;w,<Sr^*a6PP2EYmz
U"^EFZCYUWuSC-R==W5\oq34784V:ukS2xRtZMLM,,rNK0.<T#FS;:b%Ei)8#lCD8
U"TQM+u<22iGK]i2,d9cWxb_[D8dN)z5>7Zpn]:THQ9;s2O,XuyNBdbh[1c2Q;RF9
U"K'pBD3_HrJ*weMCt25Dc*mcWeAT\MLj#O2q;rla,pg/iB?g*JjjdL9*cf)qnl'4
U"8/L9^,mDBGPh[YMvlyZIj/YF&KbLY&R\UL2R,\w5fkAf&D68a.8axa^8;yX)Uu+
U"xPp5\S.)Tn**_ovShAjN=L+BYj%0>d?5N7KLsIu]8qDHngt6svM-xkD#ASTBf]N
U"lFnI0njVmmA#*[+);GR1,&L\Yd];^5*b&+.4sMB;KV9B=X#^Us_QR\5f1nT/RJW
U"*d_W&,17ywL\1jdR,K1WEDHwg>oXi&MumPc7u*h.kx_cnd#>%8_LFd5Qf7&W7gk
U"3[[:;hU>OfC,d.6Y+;_L#7/4ruEg=0f9&6NM+kZ+uI>qeXG+7UF0f/x=e/a#4/[
U"vlP=B[%&<2ubC4M,^=?Sq&Su0P]w+7i/&9_U9EISUgTx5>nh(4']M,H>6j3kM\+
U"7\-tUpp]fTYgHEtidoWIZMd3Wd9eUp9#vcvGKN$Y,aaZM]nMnqDnAM==DW2AUIA
U"R1;K7NjKTd[^_0A6NAq'k&Dh=j-w3i:+'W:-\u+840&*D$FuCl]yPTxq?/$Yh)o
U"rS)8#08m15H^[nVfo)Pu4z7Q1FE?Adp)XlvDLreoPjtB#02[v%L^IKNrU'ua)ey
U"p*7#ML8U8]jDda\S/01Du4$gliVe5&%Muq&wtl0f*VoT-$<A)rRyND:jMPorwbp
U"nnbK3$8:.lP2cH:i7rsmvI#=/eaie8aUSXd%G^Q-mtZ(2H)vh2Nc3Y#eM\*rh'C
U"rZ$+&UV55WZIcLA,Ff4Zhn6X8]jSGLNV<u.+Hs5;i]OGy'DFlK+S.Gx.u2H_7ES
U"a<ZV_=4fOhdKLGTgI\heZnX^g:%J.0kZoh)v68536D^RE5n);5b0MVBOd)]#I$p
U"swAj<N:<bwq<CNNfFDK]'IjZ^:+Lh;t=(3c6h)JXWH=q,8irHq98f2sLl&,EPHb
U"Q2tIgjn2^%,cA/':[ltlwvd#Z*5?7+;rJ;\:tC4C]>fm_>?fet*(KX4kre=U)gr
U"Vqk1JT\(J.90q9a>2Hai*BI]0TN[^Xh<Ul>pPb68:\+V#\cR3E0b,aSl\'PIl_V
U"&=Xp^_,VPXxn9ZGZF'?yz\F3d=<ak<PgA;<Ct%g<N1G(iR3KBzji+DCJ55TPaq9
U"ovnqZlekqawrDl-^c(W0/Ny?P_,pYy'6%b2M;TP-gKLXX4Uwnt+$,2)O;TZ_\Z8
U"lp;78Z0aX<0s2+7<[eQALt<HWHJ'[k<&['X2AlK0-v-.FQ4Pf&ju-h'T3)'nSs(
U":&/Al6XFKo^Al<p>hY^W+Ql2c^$,%F_o4]K%]8q?n+Y=LeT+rw.0bjOUp%i2]Kk
U"#xdhg+Ny3ns('78T*7z=*7M'mUnJ_hRdII'bkQ$h\z.H^u+_8>9Nnc+d>b%tM8V
U"G8)n/mc<gge.2ni'cTrGO?u-BU*Yg]e#DV7/fm:^T?6UR=H8/SeTdC*fLxUj-Z<
U"FT-d>v2pHn#17LESLnh;wZ\n)leCr7V\c=Kt49nOl[c6[vf:g%:+V66w%*J/v+,
U"PqxB*b0J>S&sJI]E,ME^\AWn.ZJUhHG?165mGahebrZ^-^t*#>?f[v4F],Z]eJ,
U"7S_w0K*uTa2Th1,M+1[Tp^=#8OdU-RlHpe,Btu.IG_m*+A7u.QD?kO:>=A2F=bf
U"Af>xnOpY(p4Hf7'Dt;^_fjrA&$-cdT);EAKflNND2P.1mT;UasNfX2T/Df-=7>H
U"PCQ1FE+1X]1%Q)#u:p106j[oj3W^<LZ.X,yIjE>4%q$QD7(:K*7i\x2S\U^M,ub
U"6upcX8c1KXyz<>CKn#NJX&7k=t]ZM)m^^=\ij.p+g$lN[.OJLXj-uLprqi2gX\t
U"mlZaI)VUKkr,P8)-^s4(PC&eFa5$,a7w8h=m)wUFJv4CAiPm5uOZ*)'Tq+1Z*b+
U"n_;>M?yiA=uQCzSLBgHsBdC%j9zR:O,6>X&xg^d2?IQ:W\JjG6-HiHo\?<l:pqk
U")sfVmV,u(_a.A-$Lk3[nTk76rdZQh92\KdbC(GY,f[Cni0J.oqav2Xhv^kThr47
U"XfYA.TjAX.$rquQG>OY=%e_Hg1sggBm4(3hyX[*NpDDu>\>F5#u]GVG$7=N1V6F
U"S8UP6_5o2q2qsn$4qnbv'QiLxvM'3I_[[b;'JB0L,KHW&\^Cpv2P;uF7BblT0+x
U"k=4N?j&x)PY?kgce*Yz\16rD2FtT2^,x4rDVbOB<r$Do#WG$AFD9,RN#a>2#j^l
U"UP7]+6gF;+lL%_:4YFQvpT]O^a&H[dtbIdKLFgkonT(Y^Pt_VS&bJYb6724q,hE
U"]=bf4bP8W7?nZFsNa1vBQ^29ApBv&s<.IjYUHYh2/Gjc_^YDVe)%*d[JKcd$50G
U"+7J^Bs['BFqn+Iv$9#3vFWkSZi4F?7Vi77K#kG?wR.k5S2#^.bq&C'3VNX+;MZC
U"u%H5^R4Sf)a5R22#*a,e0Q,V%K81-JCtQPk>c*VeJXau\2wUKXc3[j0)XZ)HPr1
U"OGN;]g&jx?%=gXOVj&E>>i4F.t(,+1i#e46k_n=OkT%P%*2ZtTt-5]vsJ6Rh']i
U"tg<,v_7]&-BZCJ<Uj([$r;Q)r+1/rLA.nm<x:HZHMbNqb#JkOFF?,=\4kpG)I?[
U"=bTst$aKaW$qXW975V>JLaFQ*bfKi)_ckpHdm8q41?7x=q%qDX7bi\uKLL>G%s9
U"pm^jq+H9p9Z9>G/QK[T/:W.)6-&>U=qXKL=X#8LtmMk___MgggaeaWB_ZER,626
U"33Qk+1?jc[>G7IJ;(aD$4&QO<q(/+fB;9O#KpO+kgmsc/Eo/RQm/3^J*Q;CteJH
U"JPJH%(mV'?]2HH<EkZ1Z=^<+YE<16M_e)WEMe[.SJCMo$[$5oM&pi8o)kQ78DTn
U"NXNAcWCZxFQnI%i#3P^\GD0pqFX[X1HYSW'<W/W?c=%uyei?^i_wI3v[X.KV:qG
U"Ea;bdZ_U%4WLUiTFK_+8dA'l1;rjj9RMK/%Cf&8&r7Te<L2#HA1]ivkN(I95gvK
U"cQxh.klgc&(k-6InlcNJVHNNfN$EG1sE86=\1fL[f)L\f&$?oEumdEAQs\AQ$B8
U"WCRcwh>wfwf5xSo%xo+&wff6qxOEExOEN3lN4a=+vXXI5W8_&XjK(UWhiN8R.*K
U"8sVvVo\Vax>m:+K^B:W).KH:W-Zxk8n:U*36xCG1ls86afnKRWc]&\r]arKulX#
U"spa[b2xbdj=mtNHq80WIy1>2SbkcO=J0ZLNYiXKMKX#q_=n[nq^1#AnUe0^cdg(
U"4a:Ht81wtSnlKZg>l1^*Vm1+t6)uHq,12+nu$V;bhZ=H>h9jUt0AIwSk+KiJa)z
U"pFxU7;hgbl,44Nh;=9E0(pMmpr4_71uDnwKO8zu:Q<b0/ZXMK?(_1(D<lO:U+DF
U"'vqELl.$L+]\teV=Y5DllJ?Lza_;$a;F3siSAe:lSuI,kf.GYZ1IA(xt.j[\kD#
END SUB
SUB V2
U"$nhyCX,kQAukpDvk_XCYsj/UpAF=H]/&9-8,&H*OB_.+*h.vJftl.8%dbv=s^Bx
U"x-\F8jv<TjeRuYeQ4;LY5$Dyz9m'rlz:LtEY,M1#fU$hAbE%530<C?i#iexXJaF
U"XFyD/(N*hE(6:#NT*;v/7^9ND4lqW>7Rk;GZLJ_)Us%n\WMj:N+h<wORMSfpaVm
U"fH(Ky*PAl<$5Yr_rDu=Y.QthKUn9(i&Rl-&q=5ljH7)%U8p4GxDrt_p03l^GlN.
U"QzIISw'&NY,%;:5T3+4<wzapc.q*T\gUX:GyfXsV[=3g8<n&L$pk$)N\6QT>+Z;
U"jT[igP>$B62FPJ7Po-S*6.+F]qzdRo9sB+K)Ks[:M9f=v[NR^m)$Sw;j\c3T[3-
U">/Ye+J\Kt8X]2.TB28&?'uRGm_Y4u8D#s0[RGXw_H')VH,P)5Io_KF#(6EE*5W7
U"j\>J);6^x,)1x#,*FVvOZ32b84^N&G'sK]6BC_[pMHrE5Q213mbl1i6#K9F67HC
U"sef?f)2R,M$+R3n]1H^?I65D1/;(gu3?/A#hKVptm4OD8bhs2Om_+[M=Z5DGVtU
U"MKros<n.rmKvTh?+oXK'dX6Esi1X6f4D$jx/ZR$3RNtqY$grI0N;(d2Hsaksi6/
U"$g1)ln&1o.FZFkh0WEtEcR)fcqZ33R01fAd8,pPU;Yqsn],x)DfPq%_03Xa:'^$
U"E2+N,LJ5'Ch19ZI1y;?(G-4L,BW1Wt$-rP,'O'vZX\j4uKbELTD6:99O>WDhB(2
U"YH]FS.V89?At=(^7t-=[6Gs':XNF97Le^a[B,n'e5P_>[Z&qc7p]YI(ob6];]BW
U"a$;6eYbudR/ioW/BG/c$<*:QJ0Gnt/es^qEO&F;?)#p3Hd#F-KQY_-$8Nr*/Cl#
U"L:(I-u)OHKKL?%V\tq*HY]Tl-ZU:Nrc?F-dPqi'n,wU6Ce?vDFA$+JoU\a.6]'f
U".I[CwIZgL-''-BYLN,.lQD>t6)43kD9P\6o8EYb#k.NDM/FY9.g)0ztq?REXKP\
U"AiMNhS9HpJ+Xl8xSDZwI1)%\\TdN0r*CSDI2s^IXgK%/*9cDukv1W75Wu?DZpZ%
U"HcSzlP4=Ci1lpE#$=VjJm8FGj:.0V2TW26q6S4(/bBfWgWT2;d>Q8>-5=U\FtXM
U"gJv=Oxm03l#f%5(Cu?vssCEp+z5NR5[6[iJ6YVNmVue=&d2(66yhd1MB.Edxd'G
U"293g\+<1KcU=5iPlYqKn4WYir4R%d8sHKqNUSw;3gH9JWMy95K2qkbDIlv09JES
U"D/Drkj[/O^n&NDbm4TZ4f<*Cj897X5B5d>Q&3l?]Av_lyXFc_*fD2(J,\4HY%PW
U"7Bkx?]_P\Yrj4GcZjFr,PN>2#l+(lys74;QqAnxY7H<XmcjfkhZhm8[3Akq(Q1j
U"ONZY]#.L8#K\nnmt5G(BHFB2/WGla6M^k1$6/nHY['s/dwl$:rJ^AJob#$_JA_Y
U"P&]'Gj%r7?*mAjV=%RTcqg$[&Rm**'Nk77:?M37%Ip+S:J*fQ#+^v;?D?4+_91D
U"4ZjPrefk[1q/..BhSsnpk1T:VS3H2soWy_At=#i5MWcIQcZi=TEH,,c$2bF]H#w
U"a$M)8).Ty7Ry$;8l5=m2OsNc%U.f:,dt)#\uc$_^NGNj=k0Xu(9*yqzM%X;0G,X
U"sYdcc-q%3l%]Nm/rzN?takBmi3*?MKgV0u<Sy1xZUoRZs:m-6SNEJHF\;'B'NJr
U"k0JfJ]GI,I6.&EX-_#smp$\lh)1sqbGrNbnxvK&avkUB%w%OZmfjj>]O\p1%Qb\
U"3JFmv?LQN1R4P3yYqd;T2#e2vmqlRxeJMTgnSlx[VoLdqFd[d<?QP6NEj:wuXY=
U"8nMK8hnlqrS(IsNZ(:)>tS//1k.RoauXE/wkxSRn/FiHDVP3#I?^^Oi.EYWTK.1
U"42fvj'j/d]\yzC10FtjP9gx]EP61n%cPC\#^PkQdiKr)j%b'PTN>JB&aW8Kid:2
U"$[qKq=eH(>XM=$f(J'r-MXdPc3r_3K.Z,-39mLQvsbbSM]DJ,H(Xh+kpZZ6$_Y,
U"(KggTs\CfUt]p%/GWyzsV(KBHPf4WKXI6UoU<P:*kFa:qJxYQjqg_vkP;$kiXr)
U"\b&l5ip(R4[#,;kJ.OAmcMkXvfbjY-ZE\?_m\,>5(P.fndIfz<ycqUd6mXwrkUP
U"Nbv,3)?SqjAZRcxmbWu02h8lsgQ\k\7Ftsw_:_LV5;X<KThPCZ7dP'oJgYS.m2]
U"OJ?Jfld1n*6>:%Pn'5#d=5P(xC?cKWEj-[em0*rqdR4?LhEl'Z\\_J(B-/Ba4T;
U"px\I]P3po5/Q\D?[%CX##o%9LQVLG]]\P$nTiEQg,IKJ&qcMM%ebogx'%u]ma?^
U"R*1T=n'X]]l7HX)6J%)BFLm(W8lYhffK]+SnE/:f1%Ot5z-GB4EL0(c\&a]q8A>
U"mBaKzA:MRL0B$/>_gCW)BC:tL6AlQLt^D5M_f&+vrF<v\S_7F8U5Lpx/CPA2ik(
U"jLXkC5WXu^\?vTdcN-c<i\UpZqmGjQwJPQn]EBL+zS>mZe8?sMD6Uhvs#A[k'>p
U"FN7#OWv$fmX8S]85sDmEod:'R^.<:#Vi>c<ad?g&$/USg+y$Yv[rDzZtV31xACs
U"7#W8bG?<4]P]i<,Ip)FqXAF)]1VZk'gSn\x?4.vvJG*mNeQ]ve43o_YWIXpTLBi
U"jt\S9ke82XuNamPTZ,KFD_jvErUcyY,PGN5*U\T7R4mvnYsZ8)YT9tB#g[6oAmX
U"-<gS-E-V/^\.44I)K/F5s-jAMlV[(4m+3IoTjE4#+HJ=9k65ZmxXoWaOmh[6.W<
U"JfdTj_KE5*)[Y&Q^O0KI/2?2pCLraS$4<H6-O+UmYmq,b9u%2QK,OLpc=^p,jtF
U"AVh<cPa/NQ'v<1RcEg1>sd(2d_sslociBkr3<6wY+BqjlgQ5<1B)_E+#mXkkT/U
U".CB,3F;4dSE_g7)Dd4R\[w=9700^2vRYl-)/'?[=;&bYr*OJBJKv;g.en4P_tQe
U"R#xWVfY'9hvp,5)N>bk>w#=ihk=?.Kfac:cUX4.ff5Ms<i58w47XQQ\eZg;h?2T
U"V'6XVVZ'TODj7PNKVB.0;&k6#X8;Xf.CTO/7P>%iR)n\RW:g3[*A/tw1p6MAlL/
U"huz<:F)3Gedckd1:WRA:7ENhBp-3o'AUad&;k%UeU3Ps:Wo+Ijk8-)QK=z57I\_
U"KuCiUKa^bmFXT(65JY;4JkiAG7*nA(%Pmw3GyilA08/Ng?o&iL,4h//*B;*jBAy
U"*t*WaOp+\7ze'#xaNYSYt\#Idbm$[5oS_Cpr6-xAdnSlp%0-%Kv)HgRb,dcA>bK
U"9nJTiVa0U:a4nIWH<CslkZYr^<laXXc:CbdNxs8jFrJ>#aePn'<f?k#^yCi;T#k
U"V.*qoaRyRk>*>KhLmRhk9OiWqgu(d)riW2;x<nXh[8;sP?a6'\H%knluu:u52Wr
U"*K\fTNmBg,FjE?HHE]'2vVp(_;^,U_^Ai&\U[U[:=,eI8l;i-QcgTe,Pv:N.CXd
U"#D#A[qrWe66.DhbqF[P11X\k3UdP9goV_E+\F2A9JQB+=PSJ.oOOVeE5l'9j%=D
U"1X/4g_[RRr1&;+rTtDpV;ucfl,;lf[r]/Q'89'oLdws=ZSubbcbJ?d3vQ,9tAy2
U"&NKzBX1XB0aOj(gx2TN?S/,EmtVXNeXU*.rdcm&>,3+35,'VT;+xV-3[beJuE#3
U"0JmCyD3=S:Bp.0S0#/13Z=jd))_80Uu,Ea.RsUKo2?<1=MF9aAeFvSHz*a?f$At
U"Qojni/*<'/=Ri^I%=$_p)&+\thXT]b=R:-dCLmM:5e*DtdXt&eY1H8Ho3[[x-4K
U"V=\Keb\MC5KCCPaIeID*Q3*e-H?S'p\0/bF(MH>9B\YHRAP-^\9bktzLDJfu;AQ
U"Jk.NjsW85^&932dq,MY#se^p[DGRzmshF:AShn6o]EQ&L[X6K>$gf1jz=4i;>]<
U"umI/?81_OPg)V=2eC=kN'C<UnK)_uUOdtyP$.CV]'a5D%2.E5%&)x/#'7GnfIO$
U"<6ZSq*GDRA5Y[1\O1Ye5*;<fwcGr[^Lr3t;&Zl%OQnccvp:z)ltN[#,=Yc;?u\f
U"#ID*QKlOG(<59=,]ID'W-QJ]Xtp<dK*;(pq>U(pMF8SQqHqE*#9UB9QUeJ?#hnD
U"E8&XM.T$MTMtI%CSXJVg#*GXFZakc,R[DakE[z1%JY';s_qzQCbwmlD-PNZ.J9;
U"\Ae7UJrS(w)pQ-BL[I#]Ze*wu0&(^9e;G5b.CV?Q*l7s\+A(zKp(=o_S\6O.BQ6
U"-YhV?hT#H;-zkQ*is-**Ac9,hs_6oA_+d(:]GV*UUfKm=LZe(;uJV*\V4Y23>:b
U"HZN6gQH-Ynd-:\gdP8JbADrv^oPAD(0%:R)v6:(Spnnl'4/nJHHoZSQ5*Um[.hf
U"E>Q]vC=QfH0XHD+uL,LF2rN7T3O?6em9w-iRI9_$#cDdF:&N'o*t(jIG6Lc#skI
U"K;0$jPs,$nTmumgBXo'PFX/L,eIWAVPT0h\H6/=bWm8JRuKB%$#w>HLg5hZlb#.
U"]')gO]8IyL[a<e$hjW.Igjo(#\Zj/?\7G8NB0#:PQv)F>9ka.WRBiL-t\HG(s_r
U"<TPBfbyF=nXr;r2W2zk-e+URjhhM>2V4OZs]Jo>_QQawVfWl',g%YM(7ZY])A2t
U"Dmk\BP8p3YaMzvRN[/+zl#Y.izuG\+perN,i&X]Frme=:^tYjU#DVggN,K^BFqj
U"l/'V0t=:.J0a(m)K[iV9%sIm)M.%MZzMlj9ctxP[QS:TN\'kT?XKJd]t[dX,Fcv
U"+dw_>VL+s7'=KaA67/1[#Z-pPd+I?v?s&eL2kC%$hjtUZX8PV>h?P8TsNUX=PW'
U"v2jaZSU0HH,Q9E#q.G4'W5ebYA=Y+UkNRPb&yVSO.CC]WHTjS:b.UHdQW],O;7m
U"+XI=H26Gv)PxkS1)gqlG3&$Ps$#6B6;eY:M<C;<m6^C3krr=w+K?8eoeH?hjHNP
U"aIvFne_0oh^-OoH)jl0L>/hLu.Rdk]_BflmW?T3KCW/LnOdHKQP<,LqKZHa=rPj
U"=^KTuuhtEx*b1TIE)>Va5cuS\w]?mzi6CAiJB]cAD7gD*]S61L1l3ZBfb*j4K$^
U"6?nqU3D?3:hMcq(S9>?h#H3<9PpP/;Sf[.Lr/pUS'/Hi3uGCGq9)287;gr'zS$2
U"h#ZpKbkKe4nI<26E#2I7)Ur*;sa&AH5;dSik$Nv)5Pg6-zR>$KUFbk=)^$=e&dj
U"s-gO8lM5K5ka7_-+C-AcC$b$%q_Lxr&;gtfJree%Q_bx#ZRuj\)\J&7ACKxtvm$
U"Z:LJ-60si)6**xla,9d\kl]\O3^,SZ1s:aYN-]c/7VD_>TIl?<%%aPMNofL*nq%
U"5.(Na*KShKj]N07r^*04a%0E>,D\9;l(v:=UlUrg*HV8.ui[+b>]D&2.lG=3T7D
U"nph/L/#Y_bEWZ?,PTd^ht1EGBpm^1chWk1=#Z/4o8naWGbRDp7Lmif1p#'9EiHl
U"jPV?d3i)hMWDuH[RqX.rZUCP>RvAx$oZBD62-bg-%jBM;nnUS4\S[07XJ^k8OS.
U"IJr2:#twNQ/,HBPDf+Wr'$tG\(BpXoMTp/UL3)Wfx[e7>p$xBgpRr8r#,#,IR$2
U"\F4mjn^p(.GM.t82_>KX)YcEuUe_S]\OFu#-knd#WlbBK8g/ae'Ot]myIE-JQC3
U"w2x(e[A_661jQbie9pjVjSFhNnuA[Izr]=GpnEb$t=bKW)*wYyobYK2xnZLZmaM
U"Cn8dqrZ7bILix#[59UEiBZE,Vn/5'wtB[?FN1bpP1]e'sJe8jJ-3-'6lqOn/K2t
U"Tqc=K>eK/1e2)t^we%na;Ga$$5;%TFiZH/\,YIa^Dy-43aj.oseGa514\SbX9/c
U"s:i,pp&>b6\6#9#P2n=97xgRV(blYS:ZFvQ90E%>N(lCX^Kw/OI((JktUig[aG6
U"B62'VnVyLJPl*I,$I,sjQS(Qe^^hfg8:nXG$UwMKu][zY[s.N52%sdJ28Fpx>5/
U"Ly7JEBI9oH,\pimx[P6_GL$DdH$dOMjxp0HXGnJOL6y;%=>,L/?kGMPVf/cUG-c
U"fvWpF>m9+-P+9?\DMJME7*n6U/R55X3oS;-W:\YCrcIh(fBQ4E\Ryc\U%W<']G]
U"%cCUN2mTIc?=b^'OJfQ8Q9bTM91;MiZ?9myH9[IZ5K&lmSqImWd<O\-:CnKu4?K
U"C4?OCpYbiVd0Qr#FaXbonNPQkvYG9O_Um_e=)&VVH%cR,sGds'sG[wp7JROO%Sx
U"X30A<,#n(]h;Jcqu<W38dGkPp>Jp(ppFwdJ*c%VBC12S?cpJ-#pAVqujh&_C[ba
U"F?($\=h0h8C\5s4g;QF?G5*L2)_]/sBf/>:9b=UJ<63eJ7yaDOZFOIAE'e1=lxy
U"/K,EmG%qp:OSRKOh_-D+Kp>tdI<0qyJEy-4StHZX)4s&aC;?wObKa3pS#c1e[K2
U"/Cbcu6(0(y_UVjcoU10<Bzco>oKg5FXlHCGw&f7.FiLOR;PIHz8?\)nE]1U7I:B
U"2ElwA]mKTKlwNWHgA'[+iVvRc.<W:8gT68Y]\3-Ilei]As<l?>b*MbFbZqq7/Cl
U"9eOp8cR-SMb)8^L]hN[ZVY#[Y)SrYqmVvVWK6KnfLY0WeQ,'t\VpSK1JI[ON=V%
U"539=':u2_VwjXH=t_5NJ];%Zo?)O652HR[9iTcBCWJAeU?(3Qws3<so4cCE1=jy
U")s+:v'&e=tW5eerlDB,G*s>uhLXDEI:hZ9[]A*Flt2>uuu^73O\DLE7WhOqJMpP
U"roZk%EbB'dbX_XH;:#=bVTCY5a>8CRszGInNgci2FK&vtniaGPyQGF5#Kbr.lK[
U"PnIvL5uI%mW#Ncn(JbjSYz:kIA1BC/%2%cWBOkt^VRP[D[yUA'a^CR3nbmIcKbq
U"H^a&[:>gdct>O<Uy1hN:EGsRiKO]h.1HrOEt(5dK9gdT2o6+j8A[Vp]^OcCRRg7
U"#9cJp]2CKN,(B.cYpY3VK+7JL5FPtre#frfV&cPHVTKG6pKX1%Ik:c;5EAlY:jY
U"Kv[L/?833Q6G1xS_]]XO>\,=>T\,j)utjfk6)qPaY:8S0+d7j38]DEXrfVf5Fno
U"*m35#Hec+D?Pn.lES0])nBr$9fVUI6=h:kJ0d-h^UtdYgz]4nfV.:cEV*NtLeZ&
U"x#,ZQRh:G)u=YMSkaQMtn]-o6twKe>um<yZ9#>SR0D=l>hD*%W#j4\\_wvVtGuI
U"?CgVm#*AHJc;cro2JnJk\ac7Po:-vPzP,bg7ANUAS$L#CGc5HQ:Ml%=\Q&c#<%I
U"R/6tFBW4e/qE#tJ:1M)#<7#sTOKH-a8B/]<pds;XbK#V#k(C)Jc9Z$.=yEqN[9\
U"VE<VGZN[jhMG0,4VX%3UJYj\CR>z7rkdGzbmXm)E4)tv,%Y;df5X)3U-KFNE-KF
U"5jPuvmd1((B=Jx66<*JQYo3-D2Hm\hC5Cg*<jgUnPM=0S3v7.:1h8AVC$#=*Hj0
U"f=4&:kH^6cCLu:&E+1(+Ut2H)'EUw#%sD/6c?Z6Jea5NbXoe'#[h?[/3pSJGnR4
U";#4j[9fx;<?;Pv.5P^Y*D=yVaP3rD2>%Vx?b#*7cqDrnH\79bOC+?Y*LnqpU,k2
U"umItm2<dofyvTYxMTxM)&4fIL(5\A:U)Y/N&Z;rl%:V^bpClscYjPJ]dcU_dawd
U"m%-vjYq7AWTf)h&I\_XaEGs_aO-4P?P9/jG.D%Hndz%1e(+bxHOsHjc_s3rGPk^
U"mkm[PdZ6]-ht(bOhyrp[mR4tVVh#y<AqO$LvugLFo%WE;ecVQvebHlOL:cIMzW*
U"odiQ6HemOZr=CihXa$Q9bmqo#$GVEn20\MCm&56AemGyIOh\%?Le(PKl]yK$W]a
U"bY*M+;hfC=UY]1gqcIqmWrXMxF^gg;WRMAJ-ahkco(xsauos$[l/s<$aJ%sZN1'
U"ug.(a4dj-Qh<<#s%ymM[9kS\Ze^FhAN+GrTMXDJuP^+Yj%e_4PLuZnN)rDUZxI(
U"C#E-vI<ikEBOU*BoljPusL[&/3'k[hoh>pduJV(1_jH0]^4PY(.npbh/OBMeEj<
U"rimx06BbD?f4S;LidOCjlxF,We]2S,)V\MCl?RdN_;;vHLyVy:[iK'ZwwG;P3gH
U"\T;W?tsP26U%l=CP5ejN,T]LVxGv6pfma3#[Q(VdFj3ja)&R;]7w8D[4cYh%.H8
U"3&pX\EbJ8+fea3[vGYLw,j*k\_T4*YO3dy3WSy/_bjajhZn>3xDtW*<x7^GanC;
U"\?-g^1(]9W6xCljek(FHx>xKEUX(g>hG:/yU^uZP1c0'C,,RVZamSTm?^('=_\T
U"HXNAY_lP&YJL&mUjX.:;;G,3YYXA.8DsNNX/qP/=qwFZYTv1=b[2<?G#ZYZFu;E
U"=tZ:u<IRCLC[<wQwAdtIY1-qY/'dj\yN.ko*vo4+5>\WIhj#*iJhs%4dN:%&Lua
U"FBEEp[y08'Q2g7+RVI[qwZ#)W2^'Y;=SbDUAWVYDvY:X5^Fb_S89[n^u:-<g2rs
U"Pgm+\/O[BO_/6R9^(NLsecXZ:;Y9=]IMMwCBRU=#dd97,jLhrz3UDKha:+E#h5T
U"#T+7A.GHKorQ=,9A<zcs:Cs7(mblIJX,y=xkkX*LTXwDda$&L[H)y4.\7FeX:5d
U"<=aR??J2A<8M?U*(^yuLuS\ZiBOod0JmN=m\PDugs;_JQPHsQ/;;rmz_+oHBX5V
U"]g_6AKs%NnKM<.Th<UdOpd>qUoj?Sgk&A,WHTLH6q>9$'a[svXGb(VNDp4LGM'D
U"1IdQ2v+N#c[S_=Hn$F9IZYvlm1)>&0T2]I/bP4m*U0S)DY_Ab/m=F]bflzDhzzi
U"Pg'\)PB=FG54YMBp^WM%pLyeVak\B_s:8HJr.JOFWJbJLsncIs_\RHkPaIrgxi#
U"*N,cHoj[u7=jt1K3(98]M6E,kB,f2a#VhZk>m[^AyX3=/XpS^IEQA9D:,[4m&r\
U"ZQ?_ZoTn'8*7#jI+t/av'eGet9)it$\5=A,,\;1zOr9&4lL*eMXO2c9>:J.^IaH
U"6,g(CSSjtB/Y?-bKUVF=s$^)%PF1eB<NVG<&eRmWA-6fNG62IaPM)m<iPai%9f'
U"N)DI_k[]O(7WjQo^P+h2EQzGu_*>,nDmw0\?w_ZJ-%rDSR#3A.$Fk)f^5M]_xL8
U"?KhpSx3,=/-rgZa\f9fq3bcn5EPZd5gP)su6b47ZT%4PxGiAO$Ou1$_$GY'yFU_
U"-D9,:H:vm$hjS,A0Y?:^h)\%2iQx3;?iUC2nPe#Pw-UcSPW+/>Tm\FeK23(.b$o
U"?DF<?koDCwO5Nmt5kFnP4'o.V+*7TIf0xk(Rf8D?/U75$-BLs+eY51jn9gZs_t6
U"D-QLG)80q)vMU2h98rUC2/%E<xMV%HI<+NP3LY;M/A'&-f=KMT%MH&VqH3Ovk8b
U"$m2SsAh.ukX=<P9brKTPSNATVenUvP$q0ne=/;[c;CI3FIk+,17BVSOVXt438G9
U"8eF>k#N8.pH93IZ/cfe;Vpzz.T-gLWBZV]-C<LqmY/Ylk4lq5RUazUqqP\ea6HY
U"p=Mer.M+FbZCkr[vPIEp7I^GaGFV32lE=1$8V^FmhU)EmAme2/Ps*.'jZ*NGlCM
U"I22T4kIT>mW/J-W3PcieO5bhe*OP+gakP,WEHqPQFkP2[)C'g<ji'v<m;Ur?8_(
U"ha%z6Y=KpT-Z)99B=u_?A2QV[kkJ;pI3/xJK&IKkAL^9rzHKd:2w9wzH'S+48p#
U"/ioKn_'u6G9W?sgT:v0P)m4l4Y_nMdDM\vNWm?lLk/*E+G>ae\n#w)2/Ms7+>3E
U"$4Lcuu#RY-lZ;Vv)HMJzK)n+sI#/d/v%_#?#I?W/Era;q*NZ;B&jCnrXpNy71d&
U"fc*)#RIOF3,:S^6y<Lf,fiwjEFpj[I<6h<_1[:D=+<C7Y;bUjB[m+7L1N6]u8EK
U"Vpohp/dHDgAWA-5ivK#0Q.aJVK^.l;hwpVb1-(ZtSwx'Q)$_2b#R1^GbTwY)G9f
U"GUO#+uimEAlQ>aR7JMkx3xaSo/$D&qN(JyNh<FQZ1];H3rE58Ch'^a'QKB'LpPY
U"PtIC8,2VrjP^pK'iXFLj6/V\O6Ek;5CL)pg%r>C4s$QZ\i:&jDCpdMGbY3l2$20
U"G)dF,kOTA23SqP0OO6drNb[79vgEI5m<o7UJt%aXtkeECa6=wrOE5o8BW$UY-i-
U"ERlENfFGGw/TR[ODOkf]hRn'thu^ZlYg&<5F*PPs\Ki5L)*]7T4,LSg&N'^hj&N
U"6&-j,=U+8bMpnvK#d%OY#qj\X(ZC%hVCY>,&3<dUjpi(d&9dof&oul.ipZ>tmyk
U"dfV-iCV>C<H3-(userh^JjL.DYh?s?Nc=BYCxj[K,F>i<mW&JMqtQV0JbkBN+\=
U"Ytv,UjstSun*E:j4$YVEb(>eRA_sGZbrCMF?$582E38xYxQsCAhD8N=*epz5m&p
U"D3IE&GM0>L(j<wO?;fwv-c_g$CN,OkPNYha]d[mXA/mUOfRA>/)BCi[%os\q).S
U"Rp[#t7?)7<_(='eU-;U_^Y2f2:]O(S5fmV-M'\6%4L?BX'/WsD<t03L0I2i$\tU
U"(xKk(nWCSF*HYcC)n2XyjsKB:jx\B2m%^)v)Wl\DWS5U>gidRnT1HQ1Af\];-/I
U"h4>8iFenQ4gwGbpPE-b+IH?C0bE<Nqb]aT4_>t]lMrSEk<H9.XqJRCDiw[VDX[k
U"broo%HQd6IXhAu>m?Bt]Z3J]aL[xq5poSx4Q::V;iYT<o\78\;M^t>1-EYCpm.e
U"P],O&P?Hg[Sn9^^3uegUcc#1_UkVC\to65)(XS8%tDDUprQj<.egD_Mimky2t'9
U"hj^GJ92V'U(/ABDDM6u>m%aROnt?NszMbu2ABUl9B+8cBuToAgR+\MK<bUqc%V$
U"[SoHg?D$eVC+OZ/Uj5*hZb?vvNZz/%4f6:O24,>/ODjn?T1f;NXy6<+a/jLlpTJ
U"\FtaAn%S't(62<Sw=:p(5+UV]wcmRI4=]&x1<oaw/Ls(T;S#aUgTPt\tu*DxRhU
U"1G25*'grD/XN4P=N[9NJygZsTaF^iM*bk1pyzL1bm6:gRACc9r8'xvO8.TF3P-$
U"'\VU*6&4mwcBZn/fTwrS*s-k+5\n+_^3S**k7?KVOq6vVSN3mlCfd--u$2Em22A
U"z+$O2$ThjKV1=^(vNAK7JGA9>wsBHo8o2;cUSgLw&z>)ND%:<,h&db<LYxmG43^
U"7a77[%*jzJg\.atQ[^p^jEnvvIGd5jh:>T(8L3nu)/=^DPS(,T;fccVd>/2u]%S
U"P&Lduq.W9g9Zl33corIq]_r41tpEZ:,vAYK;pYO6X\EXjYMe>nX^tL/kY==)CyG
U"4N=VGtQuHSCq]^KGPgNFo3Z'-%x>LjZ0k._b=^<(wE^$]Hy:XM3fJVAf1sDZwEX
U"aKo1e,>pPiJ.tnn2p;2cbWp(n_6b5S0-,0[r]3Z2=d6zTHXedAs/*,]uZ^]&gXR
U"h,0gcb=FF*KuI3g/DJNdh2c+0PVkO^l\atmb5gGp+;Y6FFdn6^EhOl51DqKSP6]
U"p&-J&N[r;+ql\N0p(\A:c,KhhLc-5)E'AkcrU0kbPk#JD^?3t;%0v*u=5Vj:owv
U"&3YzL20-n#0$/kl=^q^U(NDu5e.:0qL]$D?k[0-#kl<SE]2$+s>q.k>30#bXgyF
U"4lQl$Vn3w>F#(2k&]6i9NunoMiR3n0#XtIMcblD/_fVMp9tM8s:=MxGgOsvZ;mf
U"dl_2cv5J9N]tdu#Cgeh((FCHT':E1p,h5pIN^2y;c^NI#toq/Vm1A6<y5zI8t+%
U"Cjq6<H8J\n)Vc>p=k;f4E&ET=/hS-Z$6n(^ZJg?WS+6R7v#r>j9]hJ]XKsW:m)X
U"s*X9W&9'azAoE^v(-6-)Lbh)87.]Ws/oA-7f%xG&8C=B(UV)&YPujoHN&BR#P.$
U"ex$iaEbpxs8BUjuc=MA3)i$lpu$.9b7&7w/;GHJikd&%[.&0#xsq?/fQh1%.(C*
U"^hy3T\BVASM>=O*oT$,4t(f/chYk%%bw3o1*m74)dkhtT8)WI+OqI0V3)s%4&?P
U"^RzD>Uk:q^sjf1o/==DYRk_:+*\QzaF^:l4XhcG>V]<\DiSUnnD>T8ODb<(4fI9
U"LX>4C^wyH2(86\h&nXDZC9_NcI_q)]R)g0>M$4KMPkFp/+.PVRBZlZ?0ZZQISw)
U")]CC8aX$MIRNoEI4[D$UVc#[J*=).KkUQ114iUo9Ll[6dT3bsu;1MO5u4OCiu:B
U"nI;\T0:f\uU8bg(x+O]O(j(G<ha02l#D*GN#/K52%BZwU#'F.JN+gU56Ou\eEsO
U"dQ#YJgFdlibW^lB)8[zSfB[*s+vGH?EsiluuuMDoHQaruxBH8ZeX+wuwaEsM2T,
U"G7Sm#9:Vt*epNfp?a>-ogb)mrjn.imFn]Dcd5adz/K4Uu)K]VCOdXC81s%vYL:T
U"DM7eW\sYM5Tf7rLu/agwIaF?kxEt'vbd:rk8bua(am/'q;vml2/q1,gfQI7[HWP
U"+[k0;YuU0_WYEOLSzMJ\4v&oyJo3iwE\A6-p2^P/YL:7HkcpHl+?(,_6pKa&Uj=
U":3%]7KK[<yJvW$plAhcalE?rFu<=&r8<bd/c=5ZS##MBSV^(+i#YGGGh8Pc4/P9
U"g]$:YD,vVSVw_RX,KaV1wad&'',b%T;v&#%V$yoA.'8k7DUZXe\X/fT>rufk,7[
U"2h\=cxnk>VahWHfFLSXK^DdKzM)q>/.F$Q-FK4m?%NIaohcx+L\)AoLyU?NhF?S
U"KN,96b*EpL*aq5lL$45PLl4jI^PCdNBDlPP-r*COLU&'s])T?NXkC]De)p237Cz
END SUB
SUB V3
U"/(a2NXb0>sL.Xt^o+A6fIMPtV$/sn4\Q*p)5p=a%oOJAY?)Ul7*EL1A8S'j1hP&
U"B1h^;aO1*B-Okov+v5^on._8HU#u1bjEjk$,bi>/]?58$l;0CJor$\oahpX]7$6
U">6;tO=HO%Ik\u6i[6SKMFPBBGl?5ROXK9_os+T_K($nd6b-S=j9l7<lU5'ln?hJ
U"qBQ=]]HBU'7.ke*\*Qm54VrpXeA/hQlE9?kXgAsg#g=sk:SY^G_;zg#>kswPKc]
U"9sR,JdbT]bdfdNG2Q,q1It2%&zC,YUW+ml>wTLDg1-FR3.6AIkOK?<_Yl-:H)i1
U"GTXfX8IWMZ-kB56;.zW+L+S^K^wD^=IDKkg6iLSp+8's=kdq3[u1=1=c==l(5au
U"Lgb(*&G*xgu[nd6THZc'0n420QdC5Ibk/T8G,(vRFbs7Kxt^aNaq<*Hwdi:q6CT
U"wW1F0/sYvQE>U>U9g;v^WAdul_B/R:,WD_(E-W=\[c5psqVOWtxtu\gxF0i?%I4
U"O%:vo0Deja>Jh-5g/m#&1N9m+YFfPal(0>a&CxCrG8c[m-qMn^jO.3u<1,mn^)l
U"K_aq9Ca6Ni$r0PI?Bm5w7C't9St[nXlK:cJfG15XNpl[^T]PnSCNXmn;jDiUBsh
U"j9Zese1p-\gvjfmbr;bJnGyw&0q[0#m'JN%H:1U[YsY?rMTlgO'w3:^K<E.7K%P
U"[cXZGA8/UyHU-'D>^0VE<wc1deEI<#_qYn]T_Juz2Ac&*s1s-j'7GFEpYG*1Mk,
U"iHQMHi5ZB1hY&a,djfXm^XIx7Rz^'tU[H*V$.+Th&r>3K7j]SC9uIAF/Lp7ssmF
U"o)rEcmicv?HGzQ+[HF^<8Vq>CB>OG.yAJg/GCEPe=CAM(6e[x;(q^y_8PZ3s>AR
U"Sodl(fjLSj^9bube%8aBsE-YbxKR/sndTJQ-pp\\lx^k/U?bnB\$XD'6XyQ.wY:
U"W.$+zij7US#yo/QsK_nk(^&]J:#pBdR]toQDSg95'D9+dOC;>9%IWPY)QH7H^oF
U"950$eYfMDy^Q#\a=JK<udE7_TD.ZGh;rV5pI2KZH6PCH\6bkvl6]b?eLxuH5?3]
U"[Du=&\g2:bh=q$)FUlbSVg(SS^)(*5)pJja+$TZFvDuw.9cA>bE9r1QCXZ,sy6i
U"?M2NoD1qca:.FKXvBDd-^))Tg$o<l';IMIDz&(7vR$f6mKVnSlEQVdb:3b9,o.w
U"RLj]p_AhEc^'spxN]^2b1Ikumj&6^tq=:kg:;FA1G3f*F67F/w_UD];(gSKh-Bg
U"B&^=07fT;3=+Xdyt.Ji5'AIVm)LJGD(,X5<Im*%mL5th%_V#K\CUvV/egXg+.^q
U"(CgxUnlA6&YV\pRqGYpnEMdD9,nVo<#QSm,w*RX=uK(1&Q%oOAB(]8Yzbh,-OXW
U"2h(S:drx=1,igi)UV+ucAdJ*n<b,&F9KQ5>5/KJ\l.vEm02r2;nWJzcTGXc<L:B
U"B:MsmSHSkaQ6k#'[SrYeAjFdH2G6*fCffV0eHs9S8VLWmRkq'.=+t(3+\y$tI>m
U"+<aY^:s3P3[6)8LcUZ2wcc+pF(X495fCe3q8e+32m%.K'+Q#UFj],#O^X-Pu-.^
U"g3=6ENE*z=fI^eeY[/H:*a;RFDLK.nP$]RoAX*F<5n\tk7eqE;;Md7#2d$dS2ka
U"yG.O9tuZ$Zt(mhyd?cUuab&Zv#0o=#SeUwa't>jnWxNY7GN#oNB9K%ycLWLsbi0
U";P?oZKQG>$6=mU&r^HJf'd^tnHN,wUUDK0q+SthR*5$B$EZqR7PqRWnU6,McnX:
U"X7LpJ9/bT5h6VZ#j%k#2l,bF$a&qMerF4)6XO*[UY*g3nlYPm\Mr.8\SDYWN1$3
U"sls1O-JHp=gD>&^;e)NK7s>E]VCK2U$avV0w98QO1.3?q4KMayaTM1pd3i,D#^.
U"/$#tu[ymk\86lqC,kO,dpv81JY?gjn[Mbib0;o\UJj95a]Mq_[Xi#rW6s12[\.l
U"3bCmtBz1Z]H?*ZQ9mQ9UxEL)Zn11BbEPV#xmAk>bB5A_GGVV[z08VpO5AghC2Oe
U"**lKdQj7DNP&#$dgO\PKg&)UombCD&f;EF1.WbgPa?$y_#sfo^J8cCqVi]jg6?(
U"r7GHF)8ft3n-]#BSfMi&BGR,WSCyaotPTr3SLMkX7A_ou=L&MP#=?-p3CF+?eXo
U"pmI5I/3i^'_sK3Mua-4:]YE<)#lYkkw$9J3gC<4Z[fyqA7A=(7g,A?JIs0%ARjE
U".,e9%bLUa+#MuRBDxGJ\VGn[dF?iqTa$E'ndR;&7FVT7FSput_m_lNh.lK_C.NA
U"Z][1Ur=irWUKtuKc1#0[2Dqm99(JBZ+\t=#q;c(,?'=0g10-5OVOgZD9TZ$ITVC
U"CS9WZdHR^Yg[at#q6F1a3,41Sd-lD=(aW2G83Gl:j#Nu%lZ&Mb6'-#jM\D<iO%R
U"-HKD&xU'd&[foHFq.%M#j:%'=V4#?W$9/A;a](g;K6J#t>4OwUbF?&.l1^6>2F&
U"6c+</cB(Bf:QZDg]X#+GMHoAL.u0\^'gP^DFp,5$9$e+2eCmDNrG+N;,1r?\E9Y
U"BEBp0^mOAt;>,=ibWKJ0du2vLiq,2)eUNw\M+^)QSY0ng0BbUX#\iuZL-7agUR:
U"+pptAWh9bRGl]r6YbG&%LpigK(;s#?AS8;F_^H)>7XHiwVQU#k[d1??qrt#V//l
U"1tT0JXIagMp$N-ko'y#d#t3,-s?:Q&M,Xmb$6$Gr:ga18ODX4(ys7\KQ4;N_sU,
U"s1k]Q6LP5OoWiW#QX6EIgVIp3f_,_7/(7'u6AeuHD43%S*d:W?c)V;K/)/Q=fCT
U"1AOe$Ty<31=/F#bCTz9d7*lB%z2^Gz8&tn6t_%Eob)']=g0a2sc]/KvITcKuup-
U"*SZeum57FL5RGP[%0VAHb7/8Ul)jY;5T>lPN+AM]boB6[B3pyjjh\Ou_1$94QsI
U"OG.nrI/)hfXw%EO15;1;E_=X#9e=NM#fSqm\OgH/0+;pXU-0:rDs=65T4:8kPi(
U"Sc_q5DBFA8i]*U#m]1q*gsk<oPu>PNV#FfSn5GEnX]H?NYy,NJ%)KrXX<,uC:y7
U"QsE;Zv/0-^ECv+2n:o\j9be(.g$B+]Nu_:1p:-2)u\zJ6/R7c>V=N53oKwNqR)r
U"5^k%$7]+Rd7#R,>0SbMJz\XQ4<h<AInus9h-uCK*Nq5I/;R\D$Y9xbQaQ9d+9Bl
U"e-i\md86FGF[BxrI\&5t2fh.y1>lYUESg+&]jR7DrY0T$#4-?ib/Z=cJk(]Qs6m
U"w]^yV4,U%z)(D$A-xeSuo%Jsj>RQAjz<+6>.PgE+XA$Ga+3DTg:[cYhU(>/WO],
U"YU3U4Z_8kN#;\?+k1yEgC's(\KsT3q%J&bb=O<GY)Lvq]w\61uFAR(aM^maQ7td
U"?i1rMC&Qak*R0L,T64K5JFl1TkOzPmPUa/Kx&KvdSOz,aaLqw'sRVVT<;/#4w)G
U".?,2u-+l*(/Aq)<ykvJAVtCW5wu&#f9sO2$nq-'p\vjJsyv;d7?IBE_yzu(l&n9
U"JQY-[]vyk/duiU#MPK<R6Y-kN]ctI2<:Mn:SKKS^j8d510\sAQFB[WGmnD[n(4h
U"gd,?%Kn1s4)C/m3w0RZ1Cnct4Od%8^8z#8lT6F]ilfDzY)e%alGZ/#.z=FS%kz&
U"#eGSJ0J2RfMouq.[xz*/Jwx]^7olU;8]q*;G?YSa/:6.4;8pkdz773\gJ)&C0E)
U"PD\.\n6=[nlN?(OJT(]DA2u_Qc;PX^4Y_NgKfJ&KMVQwCoot$*SgjCOwZNKL[=-
U"fpl2V-SMA1*(MFg>PI>_JGrg$F=KWKw2lSxr7^m5q$Z2Qt(<;F]Lq)f7yV[7dgC
U"^3&l=7nzx]85Wp)9NKX*/\1W$,.]DC;6(>9AI0FbB:?]Qu3uS]r,^mlf4'W\C($
U"yPF/tonLcO-enEHeK=Yd:t,b/GzS/$V*#fAZ+hYoYdUZUlun-Le\(.-pJCdc2/)
U"O;t-Qg[)UZc=&Bomm41qUxJ9qo(>M\7.lk#hl7P?>%CY'_Z+Tp9W>da8.6U4hr&
U"FWbpY]la-^Pb?3l-/>_aCOkUPQ'MBU9(h#K8HjshpRhceW;(XF0+Ajo7(+Y(+]V
U"Jw$0]&+e/S]mkl//W/7?2j$(2yrB',ut\]_IZ3do]XP=899PWjFEJX=J_gdlu<o
U"VGePefEu3CCVr$q(2SJo=pi<joN)nk/mFLo:a1x;HI]C1Ki58la/7HM)Q8mf3;[
U"V2N'(8G3Qvsc:7SubuG_5wIpW/RCarH*JYH/S7U-qT1%'%+n5Ow&nHy=55VIvpG
U"[5[kDof=Z)&EES:ygPjts[j;O'7cXW]h;[e]+&/mU+_%3Bbj$F/]]J+aB48E_D(
U"e+<Qfl7w\Y'PF;tW-l>GzWe1j:?IK+,hmFo$&D81S.g6x_mUpIm7A5P^?ZQ3>XB
U"d_DgrCs2:#+;)5VO$qW;SIKA>&[oSy(-#F8qv<9Ky=J0:1:(p6C-UO+]d,uI-4x
U"P3q518]#Us>:jK3&aX.BD88YM.62UDhP3,-N+=4&5<+jg#bCvO_eeN9ZI0l;#];
U"d%EX*9eK/TWt:lPY%J?k[=L,rAZ8skFoHHbvy5#BoF+U\x0f9mT1D]8)_([%Wbo
U"mgk<m]?e:SOlS<L59x3r[LA$kWp#8_GuCZ]P9,Mb\nsNM8\ueK/Xe(H>0EEY:N\
U"*A6*43socx9^XfEb*4VUmG<Y=MSonHqnZj([=;0vcKDxGP>1K<g[DaV07bMMMn5
U"$ow[=MJnWdaWL=MFb;*,*+q+)XTNcGq?,BU,'^/GIk7ogml4$WbH\//+(s#pTcc
U"+G3&[H.db*mEk]s=k0<AH8g9-9T6pPGoIuyMB9Pg)]tLj4c9Z32RTi-'sZ+476D
U"H%':Rx,>XMhFAeU]K(^h'Y%8\\3^%kD>t06_h=/_P=*BOAECO[^F:fma>#xPDuZ
U"?V^m7)abr[\C'8K7ZRWI%*z\I]Q\N4-LQ&[t&B$e5fT1;)<#^'2Sr]g6#)1Ndgp
U"QJ57[gqhd&o#Wq)zGg^+vjdaqKYOtq5:&'qAONJ\Bf9$CT.']>aA_C2rgCRr(,)
U"Yvj'bCMjF,ElfiiJ/>iNscPOJUv%hb]3p]3p7XjzE_;FoK&O$r=uOeWS^G/4pd4
U"PllcQpleC%p?T*lp9^/v-[J[uF[.CXsjK;tn9n)J,2b=Hi$ricHbYtItpi&&s_)
U"MJ-#j0eg]IK)&Np;q'm5USJgT1d<Iz\]dg?U]q?7'vOcB*kYxe_UOP>qP%_<8<n
U";X?=KFLZ'o)/8[n$0*af53PdnIPP6I$A:?4v8g]-&F\K(ShQW*EiJUm32WrtKsm
U"1c/^<X^PWmceAIDiC1U^a0i3Q<G0G-X],qVk6f;H5oH'F_0pQtrK4F1o:pz<*e2
U"M1M$0(GjoTQ<M$0(+6sr8B5jr(4wP^0(c]A\>5j15_9#F\t%?Kh1Sj6c*<fh;]%
U",/fwAk('bO.M#)gLPCE8I)Ns_mw?[R=/m'9jgCUvBOAM&iZ4fse_:I42sVoxBCu
U"3aJ7dZO$6,FKsq+26<;/#v,)/+i\.CP>\ag[b3%$QnG6.PO6E/shCRPo8ELJ]sl
U"D<*lnhFml^&fw8S8\(XDz-S>qctVk0.5L8FieYC^tx=7<>W/^2p<tz]o)Ll//^R
U"tG=WPK3DJiU0L[P.WX9KcAdUwgp\S;[5-+1T4z*&xi*&**tf'QDXyenyiQzzQtz
U"(QdY,*P'c*Py*lP(1(YN>WO>Y6vPfo+%e:B)*\My1>C->Wv:eJl&e;\xQ$qu1hQ
U">Y6\Olo?%e;\zQ$371>g->W.:\J8PoXs'Qjay*\2_1>o>lWMY67xOosc&Q$&Y1h
U"mY]6XOodO:JJkMm]up9k-hTAt9XAHlCS>PhCflq-(gd0L1,_;S8.V(5YsKRQrN(
U"HL8t''$TtnEr>T>i1?P*l#qHixLMHR#cY#)9C/lLz9$;NRrfDbJa]aV2]Ur<Flt
U"nb53YM.uOe[mjNGl_Q#>TdgO&:6p%ZX/Q_0275SC+WZKD>_Q^/3,f^UT^W5B5NY
U"H6+JLl(LSPcXm?)Q1>?8,kAGZXZV]INyEAyucc&KvSiF8^oIMII4iISpXHl<t3/
U"$'dLp;hsX+B;Qk&%MKnCXMU*cG-Q:q4c]YkEk,UDth^WK%u)?U:-xH,6we\\_#g
U"0Lsx6]r/b-c#N_rH6VWN[_1qpMDe,\?'_'xhJV\hJ\pB<oc8$u:bhp)8AJTifWL
U">)rksiYuf%FPuwZV9o9g$v<(DuG2:<U1QhFq$IW#AjVyh9.CV]97X#.kZe8[]R_
U"ZJqL([dl'vvK)avclme8b5\XAmT]Mbs(kIhL7ZOc[%09DI&\vO=iIN4x%VyFvjx
U"qVFJl:[p2=o3v(sYDlq&(atg:7CV1eV4^i4m-:V%7MZ6PY1JJ*6u-*%Q0$HD%d%
U"YIg9s]e/Y1P=YPc'e/2cQ0$%SKZ*9nPWY[fpR3DWt3DO+GXK&>07$&yBE_(-XE;
U"kSMW&ZCH1sz4#;LQSt7,hO1\(,:>>M0o,tWA(o^A_.$e+-EO:Ww:f]_s<MYK&y>
U"VIRx&/?95I%jUp4J^J<co*d)QlsGz[r8dUhuVZXG9b\(q??,L)V*4GO9N)NGtw/
U"DFlI%*Nsy+=Q)9$]Mg6(hSOEv(#;dKZ>FlE&+\;ZPZm,%1b+A;ANtc?lr:mIZUr
U"XVe+QbrTT5sEPCD:j&i^Vk78nJuISs*]R$_m6'DE6-vr0d)oe%$6)2c-;tcKQhM
U"g,KVD<W/0PPG^eRjJoHP+2=.ymh$:C9x>j?U\so\o%#1nX2/keaC(ck)z4m)%vm
U"RXFVO>(E;qL4JNEX.$+6v1o<,8Rrlof,k_r4rN%15Ppjo>H/\l+[$EbX[Z61]G1
U"BfOn-b[nSUNmZ1J42sUQ3'DJh=c'_CmR:jptCL7l53P\i&Wr?d4illUhIgKo1cg
U"glrx,0od,nqS,\aW\TNbpZjviru_^%SNt_I\+ztDw)z'z(#c.6JDFY82H/q?34r
U"EecbUE=:NuSpF#>uyzjJ6r29mgRQXrg/6IYFB0$WBKmOVersq94KSN4b1,KDZQ#
U"T6fV6L3JQ*2\UGULEaOAl^jGu'R8'1eW#wWH7^,;2,>_(]/_2+Sn/$t%Z.k(mX)
U"-&JQ>adD$mNl$KIuxpZ<fVt81'm)LsYl-BnelB?fj+NaULS.Yv8dt9^t.9L2%+?
U"(6+?3sB-,E7v[O^*7K$*_e>2F])K$0U[m>9;:Jssp):WHf#RZgc-IQ3WlW,A0(p
U"BW-1g>t_,<jo0,Y):/T\4[Qy><NP*%pj]S8qEQm5;>/j4<K:+>j*B8n[oQtSDkN
U"sSleEDb6RcN0Bks49hs_Ef=VL-KfZgi08FEl[_+&#KB>sn'$i39<FXCcEd+XF5J
U"uP\t#_*a2G+PqNG>7DU]u,L9L+2'ZGQK[Di]ZtVYr:F^&a6#7Fu0_[6PHjm+lGA
U".mTg_5,SYXZutM3t-FYNRk/#K[Upi&>WW[W=L9-YMRaj3z(/spDxL)Zn0:Q2L$W
U"drSx+0M*JeVuBpm64n#X^Lgx3syL)-#g+PMzly>ALEc?)TDnl&cgb]VM3MdnwOb
U"XZC3lhfqN7hGBM.;\=QbURui#U#4\QV'B?d\F:*a(Rc%Hsq*])Z-*-n8l7Fs*CU
U"kkIswL.ngBR/u>j:Od\e3Wi?7*Z;U(M34;TU#?[h1AJ-n*Yxfja=fc&aQl(npfO
U"WIyH7TpWY8Wh6iRY)N;nPG1DbgfL1tuu<a\D:\>;JZ+>rN\H%oDdEac6b&t+Qbl
U"VqQ3(YTaNg??DJ6Ai>2QX4pz7_.-fE$9/3UU-\<Usb/_R$+Nu;qU-W>Gac==A5&
U"uGPbVyDDI>%aE9g?q^\Jm8[tLQ4k1A?=d4H$w3As=0)2u;*a?TX&T'r5q&=0q*j
U"T_kKa\3,m[TM(pEj;6T>'4v)3eH<+116ssBV19LhR#b,h9DLdL,;dz;HbIYbDG,
U"KXJs<QqUK;P1WM*bqycMNfc*2Qgb%%;u9%]XOO,-[Zn/,9F0n5mM4Mxzx^N(nN.
U"nBdH.IdXE+q;+uqeS.m6gEV=RW>I]G]aP[$G7ExUovKMo<R]2FD^>,X=*$:4cbV
U"(+Gn3,s28<6^qIKp#7SVOWT=uMxr4z4#NX\tVg?YM*[L1ZqQi3L;Wads%Gl3$%f
U"G(pDJ8A1gU=FQeX77tRS1j<:p[UhWbW07;<]DJr4>1UarT__DLOu?MlO%VL_J?N
U"9fF'Sje/5;S)5xxK'3CQ5jb4FSR8?iQaNPA;XC7>?hW]=;^Cpn\K5wES>lW\BZO
U",EP,PacUb&HcYYx)g*cVTs,lpbYT3cK*(clfV/N[]I#R'S72=>3;04SP&V];>pb
U"W2YTG$GtPQ3#0FUfE'r^_k6N2Q<[z,Ott:h__LcK4XpldR_$/<RY]8Zat]Z^X?R
U"THtt+WqPr6dWULe<[2dmhF8ll^HMrjq^[D-emT7cKW6tEsar$\22]b>wuPR5+Dn
U"o>iY&QF+(Y\LS\0h#WR%f+L167+F1b*t=CR[>/UX=Cw5o)daHPj)\2GG(/RVp;6
U"0GjLEH*XF=pK:LO1<5%3fG#M&Q8WZ\f+$F3c;_,VNRPqL\l$?GCT_BN)WpS'dZL
U"OIvV'qls?#JjaYQ9qX7ONGM#^.auAP&aOCVeBu2\O=au1$oU1yoBOXm-&Pr&tH)
U"XK-&$#R.<(40W^+FK=e81g&KE%Dzh\B+&sZl(P$jrZQ/%/Y2FKkbTy:3(;/r9TZ
U"UyTbE+4B[P%XdQF^V>:S$Pq$,f[d(cED:vEim[9d7(UrXvhSN'\87ya5VY[DDu3
U"tfUH0xjci4[+=VFoRhnh8#'G*)AdM%>[7/a?VkApWI1MCE;(\2+N;69P?1c(Q+;
U"L;k0&jXYG0qp(Y+hQ/m5vlv7Qp2Q</.KG4&96>RXm?PGd?=GH),j3Zp5PO:ao]*
U"f2X2)q8djgihT)(mAj8U$<rViairZYAY&BL^%<FL2UkEm-8-0>O=QC<baw5U'56
U"&UE'hG'2tC[:m,]IysQ7Lfw,[IMcIzRfz#rq5.&$IZ+^U4dK'TLz2^i2:'^gahk
U")dZJ\W&sB3>A<nei*M1sO^8h5poTV4Ltn<B2Y'l)9*5Oo3_]FF+pg.6[N9Yc^cg
U":L+gmLl9UG5ujnpVD&D;8URRN_uMift9mQQ9.utfRBB8dFajRlgg_KI_EUm##t;
U"$_l1^c+7:zo=<gfL__sj2KY=X(X>RK.%D/;x9Hy9mtNh9LF[oNAIEY.ODLf'?C4
U"1a=3>7)o4gGe='UDI\=Ul9*kytlti8Owvo/8u6h,jMRUs?VjnE[43f$W1pEU,$j
U"dDUqIm*zgSK$z6i<-^%X5tj<GfgN6f't2d0ZN]Z?r#.L:\x/V-r0aNoThv<dX=c
U"(X63p2ocb:++E:B4PQg9:g8m]^c(AD8$75sD-Dd8U#Ispsp'U/3jbE4_V4Z.J+=
U"k_PqI*f^tZH+UL_W/apZX9dq2lm_kf64TVnTKYho9te7^.D(j,L)RdQ*Q8S.A-7
U"EG:Tt;hp51R7tQ?nIy0YQM#o0yJ/C3g1Kyq6B0k?q>jOwI>5Qs$2\'mt[?u66*O
U"''3i\)r<7u'9ar*6\3n>-5vg&?=7kx#JA,#=IvV9%)XZ9l+1r7zp%R<50x64;d=
U"k>a:aG.miUitGXjAuct[h.7r\\.PG<:SZdS_C+rHQUM#DN'\qy+\wcp+>V(')&j
U"(rnL'sp=eO*3>v)wRnrthu4:INeQY#nKQspFWC\YZN>,4'ifFTTuq\Mhw=rFx#?
U"G0?2&[4BddMF;;ZY=iX#hK2lRaQbX98k%B*7=inbs\n$jmZxn.8Rbk^s]q+4Ktu
U"1.q2lWV7988b0L,H(-n>ZWdx-OHmw>uXq8%_lRwBEoRt_mfBB$PkFg?tah+uD$L
U"kcN(u3qX*2LX,.Q4i>+aVWJLILDebq1N02^Jy$i<<B(Y?8cMcFv<psopdgXzgN=
U"i4J\tp2F*tCrSO*D\obJewk8TgZr7d[<Dw]X<h6kn]4+bAU#\>qYCwv0tjj_Z>%
U"e^cj-oaf;*uG[1xPH>K;v7TNO8s9g6v-eKUKj=(5TQ_GIh5CNtpmhp=\:6*j&]H
U"xq$kJ8DYN$A\Nk>^0lH9DDCUHoOCXAn2&j9F;-NPAp.zK1T2*QqoLEq/#*Ff1t(
U"\?W+QkM>Q_;<\vr*rr15;Np#URGnve2-LQDUK827di6P<(BAD\VH&?Vnk'a\p^d
U"2FF6b43[>zksG;x%B<X0.Q*2O:IV<qjrGuMc_v$irn\kG4ll^?>wCTVA1i$s%a7
U"P<3GFCLnuN)4ra3%H>U7#(ma,ugO0C,0tH6K-<&rEV2_7>.5bfQ]g'$Drj$rkzi
U"IibwOt4').ew&M<[m]QA^E<f-G)hZpFrQ[SB:$41Ti_i'\0RE04t,H/9=q7Rje5
U"X$%-Np*2^HY2hi_O;6d-G#g=H;x5:nP.p-H-vcmEZIb(f<hxfbP#vgbct-?nET5
U"5n_j6D.0Xk.$4'as2l5bf)XXYm=8h6r[l?oY9+)9J\_23cc#QhvRItEeFcd9[gk
U"RCm[S[#1qr(N&c;dQDK&U5*L[w%2QtVwj##/iXThyEb[2GqF[qavmHM/%RCsP.r
U"L$s7?GX^RRTgK$2'h/N/#MV_0.uhk+o.gC+FC+aj/#HXesLLD6:FuC:abtX1teg
U"mUSknx?L:jursbIKcFrsk-OPdthj$<lE;3/b\(UfcR78arg^6XLu;?MQ;;fMl9o
U"cUI)-%6H:TfOcf,$6Pc>32*>0sk4dus7D/JzE>fjig;7CTupz/cR*1\0yaB'dl'
U"2q8h;;CN&9g44i=3:Iv<L\NcvA1Frj[Hg*3y;IlVXPq\Qn*Q#S$i\/o'dIMJ8+3
U"Z$cl8_>cNqDr5H]%7\aEcTi)A=irHW%7R8?N*e+y;dX>w01\Lx,#VI0,=W7]qNl
U"MCe^+Dz\D<El<VsX^.gy*q'#btxrW=NkvEsO^(e^-=TAqbK[Or-6vQ_ZM^>OOn=
U"J,S10a(2TPLEM%XPe0.O*WBiB:.ub0'2aw\BehNEGOe,mFgOmHpCCajX:9(mB-C
U"3XMJrpuVhL^\hG^41osa,K\&9?$;XZ4M6:#'J0iogcG4%mpK0Br3)P\jC:]Ro^A
U",E#NRNqcm^J)\GBAf\XsktNY3+>sp4*An7EjA#5F6FO2^LkYsu;;l+B,A0;Y=3A
U"cUE%=Q>vi&JCfE89l])+JJtXQ'JOs)?&k7SDbc;1Ni9W(1'#n^iDnpe:XAWkvUC
U"[K02htc7bSmIBa;IX8x(ak^QNGu6in\Nn<.=y8qJ6hatkWgt7NSLNa.IT*>HhX4
U"-k<k*c$VKxx\N7zN,kY>UpN=;A'DQC3Z1j&1.bVX5q;,4*]Ilo,cB-6nfA$Y.P,
U"b3<gMMj%yakkTqheb&5Gl4PLG]]pGuLNljjKiuV]k:=#gdP:Q7s4JN#aNDe/mf[
U"loq.A,^,XnS'X.CVPCD88O5biN*\:gWWVc_C/NQTF.Usit;qz=ti=[;Ze30J)9>
U"ps*[j\:]%f=A3UI(R_A-vc&L[t&KUY&OtG&5\&NOs&;8h0g4X]4Fcovc>JP'#dI
U"tg<:_(n$9MfqddZ<OG<oao+w2;1#0.%wDPJ<d)5KGZbO.maPvbg<maOOOqXTn,^
U"qZ;Z:UL,-]'HE#9]<\#2JXY(\'K]*5ai/?BYy&585Z\nF0)BN9eST>REM.;jkaI
U"M>t'/Srob%+=;jZUKT'1ZJF:.3Fs-E;<AqhJjems]p+ae$k.;tteECDcMKS#+qw
U"<gVG(<h_<oUjT;;JUv6m\bz5*aaRBDR#1=.>J1xVHmnJ$[X<4,B#)HEmP'Lto0^
U"yfa.Y0.l2kkWppbKdX;&(:rrV>tepfM2nXRirT(8<$-OEVXf:8WR^m>=Qo/(C01
U"TKfAhaJ^61\i]MFBJw]anmK9R/$KzuZ5tuCd*U43I,fZsL.OO>B,^Q%]V&'n.yD
U"#gl&&R3?ToRUhw>Pc7voVmZaJ8i2D&(IS$On:3ArfwO#;f6165-*LYzOrhw&>&;
U"9(bI3;9ZDu&o)>(sf'-$Eh?lQm/O6rkBD&+SphLRyKJ.dMY_mjJiG>FMLLz-&a(
U"/Y>4$8*I3N+%:g_mN#8tNjNk>rD1>:L&up(u,04O(iBS;fVbJI-XzJK#FBjH<Zw
U"j\ect>t-=>[$SEPRHu2XN<^VTR^m.ob<-3NHi=tuDpUJ-W*D&QVy<)#qjPoFgFV
U"g'oH1gxHno#^]*csYrlBB+pUUqPSn#\&>XCu&KAHYj4ls:e+]IeuD#+I*d2;'g+
U"B>nQa7'H#Qxkh>u6lh2-Z0CWmKdrBGE-BV(;s6$8[2;No$R2^3v($[6c<3prDOO
U"0.nPOekBJ+[A(ROrXw=pL_PoShY]q$3pAT$,XBMr8pf,R2]8DDVKz'>=AWRJ[_q
U"MKMpNkoP/W;rd3=*.g2D]isGRd,ON/C.i;--s7=r;#y<\^K_N0m0?V^yb5aK\[c
U"-Or#BA\^6]-]E.J.S,(M]E,SoK*cKamq:;bCY=.0n;iDa=/kADC4k<dbNJl&1fg
U"[9J+^/yP;jJKQs+W(.TiMt=vntR0L#_z[*lIAkq_PZv-iq[;*Kq&wpD#'w>adIy
U"w:lbBB+Ss+mVRt>]4>3Z(>FM_*_b=7$Xl,_'EE=nS7MWzMlNQ'5/(B5H$p\BdP/
U"[,/'\OT0WN9+#z2P\rX_gdf9IuA<35&s<Z^&33,mw,E>?J7eoJqx[y[?,a'7G7#
U"><,gPn[(^3Q&,j?Yc\E^qYin-ghv+4&LwRqzr[UYH#Fe-u,=_(&dSNkua$wG;2E
U"\68bnfUL$v,]l\8<luCKIcG.umEY5XqB076<][Bn+yfFY'r,eBqW'k8&#99;ox]
END SUB
SUB V4
U"<Y/.Vj3c.BT?ffz=nu7SW;^ul;8;Mrb0.F3OBh=>ueVVWk7lug?Q5i_MXnT)fZQ
U"MWsT3g0N1m7L?-j[Q35dBYgC7Lf'V/qEZx3C,rwLd-FQ5LflwqY\i;H8Y2TegQA
U"L$<UEpi-#Vg(fIAZsPk?(IaWhs]FkQk\]#&L\kD8fc6ESJ0ptTl#1Ma[XBF6frj
U"a7syHK5r'i;G&K<E524]up\S>S0qx,A\RR#wBq\xK.iHM]U3tbID]d8[:sB36)5
U"ng5\m5G3Yu-I(&GPMRb/DyVR]ks-k(L[elscK?W:;;Jh6$mh)t<n\+3ofg$Tp.?
U"]j?US->0Z#QiLL8gby3ie&7\%)\yYFTIz*,,wGyd%Y$\sJ+b)wSu3<H*=UrU0s,
U"L[lvCRk)$<$];LH]3\k5s/qL%RbFJMkW:Z)UYu*\5UHkRy]I&)yplf,Y]U-L\z_
U"i]0tpkwNi3=clgcnWjfD<oJck0]].sl7P&Fb[bAT]srj)R#k:GXLh2epvD\YQc?
U"Nq7vK9t4amS*.Ha&D=QbM[IlkMA>5Bx$qB2.ex5e[RbH>;GpA5-/qnXP:G0E;&8
U"Aj+UJd>.TQPKTd$DVd&cY;dYGEOQ5rMWd<-YPha\X,$TPEU$(+qgkEczSofWuO<
U"YC3-9TXyBWL=?&:.7:BXVGitu?uhD^nvZPI)f'hR)LhjKr:7pWc3C$EpBFQ?U_[
U"&Uc+d+*kaUK\88eV_'FMr$1L=<Z9Yj3w9cj)1u:Fq'Rv>][paV0jJd1[gWB>ZnW
U"_m_]b?Q4&IA.]AnQ3jv3UCQSXb3C$qy$SU[:z-(BQsJB.\0FwpwYVSmGx<np,$C
U"4$7+F*:vLcypsEBf0cW=_Gl?S4H=jZz'RoyYuf&^pW:d'=;_wcgXW)C$.i9F2VM
U"lribiQa+Vrp[v.v,KvQ#(l]LIycm>zT(jEpFn><4jh$4xg>K^=QC'Qde5Aujcd(
U"nXSrW-OZ_b(Bx#t,qX+y)Dy$<M3)7D.82+c$39A]PA-1[ZMjLpFf\w(RSfCEeRo
U"'?lK<C5HhOLCK\=-^^\yECT<9lL66[r=PVdsv0U#s6V=v]Of+wgt'sIN)s3+O;1
U"mZ_bMAQ]4]iCR5sK0gGWbAdDt:gbmtL=#pn*,ci[[+(P2Un4F/9>9V\UA]<=z)q
U";S'^3mt'GCq'q2ALNDwDp5P;jCpey$o/gqk[soVY2Mt2)mhj=/P?^DjXbaL7ifT
U";4<hD4$3M<6(7t_mE<3OT04:UXaKpp8L#6p0%vq4%-.&iO0j+b-g[S,t=db1X?w
U"$nK('E;6'8%l1(?(B(uo)9Y[<;8&EO8'zijl:BQJdP5XK-tTn4&q+6yUT1bNIHW
U"O'#t;5w*UV)inS6x5r5cUm=-*h/p:$nuIh&mNJdxef;zn/GDGzbpq$42w,pmkhX
U"a<nXhyy;$*f,h^q<4Ak_Aaa+LDu38uWnU+8/(7*^\W4X$#GCePH\jv\XjY7<^,x
U"p4nq?(mKn[T'Dh2cFeE#.C,#5H(c4mMJO%Hj#.+rX0Z:ux*UbCzL:JmJX+#\,kK
U"7,bWH41^50;USD=Uow8Zt+Pg6+os3ayZ#h2&q3rqvod:-Jpu6G-.h?CsvdpHK:g
U"mdmMIK<2cVdHrL]q?R<q8SfvCuPXLbekhXYI>bP&GI0i&$Z4PEdso;gY-9]MaOg
U">cIOyqy2+kQP=/YszY_7q$&4)tz457JlfocXvUDnnY?Y-q9l>t%qjco<(1/U$2&
U"?=p,L#OSIl0WB<Zwp(MkLU[8Hs^aQ^.9bH>HN#R=&c\;tbs1>m5tQa_AeHD1(?S
U"T\gH2q%[i0NP:3+>+Gbg04l#V9Z.&&e4s\st>$-/ks_K;bF%^G+hm.*dqH3Y$fb
U"TR,Pu6-&OB??3F9E%4V$U.FlfPLc>jfFKWV^o%h5^u*jzv1?VFEVD=Lma-7hn1n
U"cfNEWX<X]?)-WwUQHsmv1im*0km0Xst.S3A=MV5MXQLmKhcOaW;:aApZ'=8>.nV
U"WDm$QR3rnC'G80qP^sRdRao?M>bCw.A:Z**3=]Kj[AHpoOnHQs/OgwKdZgY\Atg
U">6j<hkxbtu0xa%8J)=E;V4/s#V<?/p'kl9&8nZAXnAO(k]?c+Ivo[/?EM>-t$b3
U"%oe=>Em#/kVl.gbu'HFO0eO].vgO<>:#w;/5'dCT=gHg6dN+AoCM$0PvVCBEIap
U"'S=F6\N]cXI*>?T=[Za-?r%+XkR;eJX*WP10<3FpYoSVe>g71;]8>u]R/<&8sZi
U"E.FYFN-;)FSqxUa,99)-EJ0N460&V')m&wj1yPW45sj,Rh)V#'LsC,>kawQ6*h'
U"IJdGvI2PJd+lN7Y2tNB,/g:%rURsBg+rR&xl/HcipfKcSeb3K&,U?^U2%Xx:f+]
U"*gfKpL,/T)1E22=mJfZS>c&*=vl_GmBzl_[X_rFSj0j0#VcazdhyJf&j*_j[N5P
U"id\NEbsW..ma6n]<31.*[$D'pXuPtJqGl4\DP,_)IQ,gM-FR6jflO(e'ZKFhFHk
U"Y#m'nj,d<mkjl7g)u_5as#z0Hg:l)3Yv&0pvrBGXKb.10x'6gyuM89YIQ0/,vAR
U"/LeFYI>S-/6Ti8N_JHK'fnj%AVyT9/Rf;7Arc5]MuKhbOi<#jgdJ]mIURR\(EVi
U"AkZ8N)8d.c&a[irRvE.Iau]t&UGVxKxsZ4n$)i3*&o83RF?_=9UgM6UC*jRvTZe
U"P2.&]Nz<OTKDdMPT\NCC)&p.lKVO-2\\lvXp8;539#TSRN2\eQc;.RHk3V?)K&\
U">t]Xa[QZQwumtfgBQx\zTKKdwbjD9_C'Cq,\/#1E8-ljLEiMHl%eZP?P5\HL)6I
U"M\NeG%O2Bx2N-f^kk'8=qC(CMQVY)^_b]tD*$do?JIsZ3jG?4kx84IY$vaF+.XK
U"C=UqIfnrz#)oidgIVHr*?d?&';-kHNqnAs3>#$ckIpjGb:q[L89-:('e4AJaUr>
U"HfV0vi[2cV;h$](gEcpWx1Cc#Bk1\M*QE>g2I&,u=xh+r(\?wW4uC(m?,\pMDA_
U"RS0>\qthLOCc[[/,WjPq]MR1HuWkVK?VjC7%BnR1]+xUKDMC[JjfAUmCWuVUSH1
U"?SP/+T(06o4r#DieF]DM2Mpn;%n8[AqG>XYo>yV1s.HYW-[dQRdlig(BZN[6m67
U"_<1/xeR4:Q2d+\ih)\Cb2p3ONvjF'15XAUBtT\'dTi\f>Me49?g&^'=J5V=lbt%
U"3%s_/pZV-L-Pn9lHP9.l'm9Z3#lRVtDVr:DtJAZtX2aY(-h/T]NvM4DtCNV(?qw
U"kZG?dhSe]h=h_,j\ehA&#=8cBFB*__o2r+NboCcsSJZ,bMTt>o0VWWXL.lvroG<
U"$_Gl'sL_]cUt5$1RLPsE[)n&MsalR#x?>N^lq,&F)nI%ArZ.=u\R,5IkV:K[aM[
U"\Gp^k88#TCacmZ8YquRFJMz*6:/:x7*GLqHhtu<FLt?%S5#**LpYnpFwC#w/YAx
U"I6ekP^w2i>*,i(91t-m\GGTi+4WjMwHw#LDUl['dMYgfAG7nKBIF&L.e>XY^?<u
U"2NN73c2jZq-LJzLjvW+Z2vWB[hLkTlN/8TeNE[b*_fJLkcSaOPKpo5UF72ANBw%
U"oKR\lvaP\doqQ+Kva^u(&jmzirZayH%EShH6p>l8YIu&NL-h%zTX0iZdJOy]^j9
U"FF>lD'JgfF\:>S>nO%K1rImO%cgh*\jy48;=C;jshVqm[R<2TdS#Ad.kl-[^a?I
U"edW]17.WuvAE?Ah(5T:0ck/9.f0\LQ:jUa_]7iJ?BI+&?9]a0+u$;V3'+$a/(ji
U">C#BZn&GP.[$*Jz1QtlSY[5n/%C1^GgL7[VmAbQ9>piK3VCdhp=+)X%PkpA+MHV
U"9<Fpx*7.lx?#^[KpIkJxZArS^kjS:fo5sO;=.L/_(7y13[ESoT6A8vl6\9F\k8t
U"%aGc7E<_VSX;3fUn#uGMxY[^w4v4SQNedb<l>J65+#QXDjqJ^$[.qR*0HJ?p$As
U"Fu+PBRJXPQ07$yXng^(Kjn+1AKW<<.t]7e<UQq-#s8dQEHhJV9R8w(g5BYm.F^:
U";992jHI][M+J$[Mse\5B^G7bL4*F#wHcLK>>JMA5j%/(gNrK,[h]bwbJVMc]DdO
U"2wmAGGYh3e79dpo?Woq:zj&r6LI7:/RIr+JeXud.:Uo/rK-8q$?9)CkXJ%LvV1X
U"aZC<gEPxh.*1tnYhe5#;0P+5^:u2dkk&N\7\)\K+HWYVeRrEuE9sL<i4c-=q7Xm
U"u6l%B/;&Z\S=8W1tZF$t7b(LybXEg+sC6NGl$tlP5hu%W29DMk5rX:Z/?G(qvwD
U"d-H;u\i/j2Y#nf9wzs8A$SJp)+yCI,*u(O9w624QT4K<EPt1ql)TMFM,$_wV&%a
U"v$Y^'.lTdWa)y;U21ZU\$s\fuTQGpE=$U(%UTO==k(^(gZ4i+aCXvn2MW$AvsY+
U"8GU*_UX27dYuM_QYIC6<*qi0V)$2tOgsx/*v-j:bYkK-+v#93^D3$S_SME2SNRd
U"(YGh5n#/eoG%ZADcJov'eyLT$W]\x>AXzOzetm3d<0ut$OhJ,J=BRIgAX2R?4a0
U"qje=:t^,Wl'B3JQ]u0,1Y]Jzpcmpf+Pik$/Jjq-zaZVL;87bC*U5M->\9.:x5jh
U"&Pc36=orhBr[$[434K#OP9<JJl.cS08ITF3g1KI&F(MYE?J:lZS#[K\)&zWY6Nv
U"qEI.#O^u+q2;p?ISYJ;0o2zuGPSFPWZo46(\Q'#JBNF^mXIT5ry(aBlaS(mO(44
U"NJ0dVIYa,'\kKC#D5hrgfw1W_WJvB4uD,[:xp8NZLUcJ.T=Do#];fBWg2M*dCoq
U"KRO>y]<&*P/Z6f_>ii=)jS$>WM*VrgB+UHs^h\uQh9+RE]E(UD'trc6hvrzS)Eg
U"hUrF&A&=v?+\o6duWJ+oM'posbE^F5KsN_V#7>kGl&K*/gd^aw\%k/HJ8R5wjq,
U"Fb^0:H3L,b(-$'\iXJ7T#>WVn?.hlpQCAkeJDOfjLP.aGHpCNsP#lhf2,YsfHbp
U"gs$H8g7.,T2K.?13DCdunZ1PCWeo:It[zDs8)uZz]TVf?*J54IJ-DMfd]h(52gk
U"&Xm3sBtz743VUZ]ePoH/H0S4>-L6<,I(z6IabmDLakwoPLJUu$s\(DaJlC^YCA7
U"Q,3rPBta0;_?o\/r:PWT>Q6*2=3o'#Gv:hGpqKVqt7^Y(qU,GG?V;*(_uhBFj#C
U"6/o0w#unMQx)$v6]Xt.\3$Z4_k3i8k]DC,>=s1V34:$4oSw8rLdkrZ$XX=#de%3
U"hXkcH.k)zb5=CH-:-lli[YF8l8t>4s\gW-GJ<?fSJg#HSpH3yf>%]>2TUZ2PfcN
U"9u70_ehVcnDu(:hu8p35U(TyOHCPBsEhIL:<J(=d\8/ydDXt$r-?DltZlHHd$WP
U"_$F9WDvF.xXAl6l08x#btYZj4tQ%%p1:)qijHmgsi*A<=mMV;<>cc$Tbou6QIbo
U"1<LIw50pKbONtJjiFmcnmd,t\tc_IjH9KvXt7dFhIs*%nqhdqbi8-XQ?7taL%p7
U"D307[oYQ&8+k?q\XK4#.>2Qt$vXh*a='ijLJFF#t8N?q[-W^Z3jnbh=PdY,o\xI
U",[<n*qv^hu?6NjNCddbIoTDLoKR(SJ$VHHNDFFVXbr_irisXnjlp2RsP\ZIR^Fg
U"A<S*hTTlRw<u;i>vqjBtv?4ZP.,RWq2jqVDm$D*87Y(+mnrS>#%SdLu6WK:PMtG
U"pIR&nLaa?.iFcXjXf;Ml_NDi_$RhuwfsjL.(#Kpwlx:a4x^ZZ94\aVF*ok)MFgr
U"$lN3=Fb.uGn<gWZUzJ+%Es%Sgli]*mi:\Nf$TlYZtBP1HkVU'6EvX.*Y*x,7n4o
U"v>R^.mF)R5<:RP#O[t^fxS*,RLdaz.P7G0e#xNh&oV+d?zcciKP(\9P4a7_S$Q/
U"'HuE-6;26e9#=\<8k:1i[+(nh&k&i;1IkmdyPD'plhk^?sXVB#YXPHH_QV)?VlH
U":#jkkuQ_=q5EMWM1kto>SDN:D7XdIwY^?)Qtc,5pHRlOhjXuAB(V82#[lpO(mlf
U"UQK^?2m-9kenPjXp:Jr:7M\J&kP.HBvQ^qV32.Wfz-?26.,Hd\=^juN;^4D.tjC
U":0vb5fZqt$VZm?_U(2JMdwrVMfI?S]_oFgcisS$n0K[?gm8%;bCIEupZ/;&O[fs
U"hK4Ee+n-xOeuAYu>XW/7I5Uv)NR3%<9&5CJBf4[.;ZAqW8Y$'Y*[+AnvxDBh&df
U"*mS+d3XX=*vIyV,9mF0ey#ga1--nqo[t8-7B-JD-5%$yu&lIj1_?ec$1mc-Pn/O
U"rUc9iMC;r\F:06ZITu-5J'a1+_herLZd_6b2jLS\v45bpfcR8HN2:\gc5vqfErZ
U"flDX6iLl)4x%^VnZ'A)u_vonJR:dB/8A<mdr1WFiTn]kA2Xoe)2>Qm3C)vT-ksd
U"tcH0PW+O?1OYODQMC)73Ld(4>5HIMK:yS[FBbg/:q>4?X1LG<S[qrk1.Cae?M^W
U"+m[Aje>LDl.UE57;T']<D.bix4^.5ty41FNY6#wZV][y_D#PB'B3:[M&saMI-,$
U"A]XGs_tN*ln'IPqhbf.(z+KiV,:g-OFSzz_G:l.bdY8TAzraZc0G[DtrW*Xlp^[
U"qd07-kD_F_yjrqMY0H8S=g8YZja*0os3B,+(H'%.LYC7vrMuGfeA7<N]qav6l:$
U"4GpRRnBrHXJ\#f-yT])WFaYk[qPJ^f7$nQJr]^;iUx3Sd[3Zh>xcT.j(nSf-:.8
U"a(C$YMruS8j-#3Y;;KM9:.8i&Go5aq]0Q\AkMKOBex9P(i#W]hjJs'4rn94tE\E
U"xA9C$G8%U2B]haMuriN.#N'89\XrnGZx\hXLifTh0+'H$2L[#s'rC3$g+;j7xsC
U"xbgQ^)mxX/NR?b0h3Bpj_;BjTDh4$1j3UUMZ,BDmQzU>YAW>,OKITz:HZ4k6k,#
U"dF)xvy8:DwfAyuY2KFzs()B'h]P5Z<IbtRM(6qc'$:52fe=QEwPZ4_q04?$=efk
U"xmCJWZ,W]YM-WN9f$RHeXJyVIBurSB2qG-jUl<=8EaHCB<kHJ04,bpCMM-HCpH0
U"iOO]<NC9=//JoN$t>wakCW.:-$59%[11:+.bX=Qa;U47GZ1o,K=B,uBQ,E](1&]
U"((n3.dfTYO;MJ^=.T\A0NuXel?RKoHXKd?y>B?BGA'sCi</Qlo:[l6gk6>tCW+I
U"O'98ad'^3t+0O.scTx&:z5#O$Xi9lgl](vS9wsndy/KlBl/;SZuG*7cBSP-XDJi
U"2Tp_T^G_uxJsp/TrbW635fK[;hGif)>WR*5,T<,eLnB$DtZgvdEp8>Q4PE4dvZp
U"'TmfAHDU&=jmtSb5&=T;FbukKH7p9.LqHl=t;lCl$ZCjJv]%#vQ-TE]mSrlJYG>
U"5R>e2/OCYA5OCCmoUo\PBvz$trp?2>b[;KaD0W3%=g)F?J[1mA<O^GLHaIlQpvV
U"ePQSmVJiBKCw1&kP;oG&H0:rF&I;+^_mYnrHNhjUwi6r#W16t8WY5(Mc3/<BO)Y
U"BIxs55jjTIy06sZwa*$UVw46P3YYoJW>HP-S+k(29>?kMQHyzN/.jokz<&vR5MA
U"4cgu+PY:gg^lK$'+2T.]S_6l?4;p9OQr#AOlNC-JLD'OFKWf$k^CAiQgsV]JV^D
U"lspAgpzyWYf'tKvv^3\PwjM35-1Ohl0i%rauR2S#lqp[gGV1tJ]qlUHH?hsm?X*
U"AhVi#h^>9_Em_AN]r/lN>7WBTL-hnJ9s(vg<v.m<ZnhdncN83$l0nHsdg]>I?$a
U"x19$Qv7/LVkXumHdPQ9Rpn_rN>Gt8s>srN?w;rt<h1NYg/vrp.6Xulw4pr$UNWT
U"xYeVS2(uia1P1lr6Hh$E5NZ[olsoGui7$psUYt7mx'wbknNnf/&C?SV72Y9rhNn
U"8+?-Vm+/k>5k4b>*G'uRR%QhRHUQz6Z1hFUCsDqT9lNWm87sp?EqrD.p0t(=,QZ
U"dvR/F)NAn+CuhrYDcr<\m8Wcqt]q=E]'xl(+\#f6TIPr:n$UL)Nb\gr?T(M2[:L
U"t)ZUblVc\Hbs*\8a8K='Zf\B>rlMavdbAJlGJjZCf[IQK4W6m,1vTWlA=mGq&Iw
U"zM]JsO6KxKw=E[9j(Q6SbLb6.L\Zoc#=t1oK*i\RBHtZfp/;\C1:SScF)n+bb#B
U"6<VKlIi^wMCGR=9&'i\U<,cYt=Lud.V?Eq;3Cn0j(0,iU^]L=q6/VmI:DM^uLx2
U"Lt>W)1[B:=jqR]LVh>M7vs5LXnQcbU]GM/bgpKT7x6DUB.rle5&m*k?ENu#G66v
U"p62=u[Et<vm4zGHY2.VOnU_S*E%t/N(b%sJ'&.p7soNb^6E$HR$sfu5kn1f\c_l
U"QWvc)u0ZX&,MxzgqRqkR-L#dpcx[FMqGyZ=s4L0Xtx#:J]XB6FKTXvLr%Tm[4nb
U"Bs<4=8hjhslbZ4<'.Pjuh%-&Hyag[*fo]EBQePnp(-\ILHv4;GX0nJNXssss'xd
U"SfqF4&SJ4b7gS7h1F.nSnbwrh.[_wE$QW#-S2$4Tvz%fGZwW%1ULHfU,&ltr8Km
U"?1C9ZTDs&:J?veX^l[X5.8ErJ,HNF^N]w-pgl\-vSdl<;1C)mBAss8jSlF\67n5
U"&dq=u(YL_*^]:m7&VCc^(I]bb4o*:in7B<v^s5cF#=dZ6C[tG&gRw<;Ad>]^YC^
U">C&?vp*ro-V->Ojom(mV'bYq9eh>(>H8Y4?7c5G-f.l&r)vu/XZV;rIE*-Q=8p?
U"=mH^DDDAtNk(607xyncZdH;cYdxXmRswf5>NAj=#[6g9OOVUZyw7ovv$>N[e_U^
U";o6C8OV5H^tPmmF3.AdI'*%wbpcVM5xVkOX4xXAL)<9yKeP[U/rvw6*+#SeDzx$
U"]OzwyT)zT^/P(d>I3w?Lk*5d70O32\#ffg(K#tMDBqV\)YOS7<?jI5Z]#yMD,AD
U"-M++S&RXXH$>I?RlPhAO&'>FUkw8=/+>$b1Wjf/VZk+Df<<(n?xTA-o<I<:-'HU
U"t^RpBZ8nQFR^oFagHs$81:RhL*]PC3SkdQjhRkFdN(b6roSHg#[J=v$,9[\vmW7
U"l:YbEHjP*)/zG(n^(L?uTI&6]q0TXzT*jLa]Y;zMaD-C^5+uuIL'qTl;r][;?]<
U"4$brGLAm<EC2Qd6Xd0nue>Qo^-F,Lq#g?GcZ7c'4dnPYrDT&r&dG$3RxYX61rf5
U"2Z#MKGqoYcu<iv&+9]mj:%$3H826Or+$CmV2g3gIKsDq1W?k:;)mV'v(thXLN)^
U"t#b9n+2+Zm*xyXvLqRXd'RLoS4Lqqt3P-Lc'9XK[&3f7R,emTgDV']r)Pph\=+P
U"Iv^\d(2?2LgRkC%LX(^RL^,aM4Xw]oO9(Zif&85+[g7M;U5p<H,%CeJ)BCGKDy$
U"npc<LL\X4SQwZ4odzAte)pnQLtYpO%7Z.n^(:LtO=^?uupdKIG_x5W:#BkkZBnS
U".4)lNOR;]Lkl,#)'-0_8J>Xj-r+m(BCT-<lk3W<4PRDBb:hw#O_GDk[#d>&DIAs
U"u?9,X7XMcezG3#jp0(Ub9i_:SP>8vF:Mc:yuBq+vK#C:\p?[DAzsgFBEnW_t*aE
U"f;cSF0#E40$El?0(4*b-tP>>=\C&*sjAzDKQ5=7-2;nd&Gu[M*uq:M+e<'3*j->
U"9v\5?cAwBZja[;wtjl%l2&6lxME-EEu[nw>60QqcQUIU:*q2M286?cxoq[2x'3x
U"BlILe;%M+6<_(?i?S]Z$OFEpSxGPJ+]r0C)kj;Ka4GYckpjsfsFL6q&s0.r2f&9
U"pa?Rl=rX;=BPdy;SNY11W?mK%5U+ir0FuQM#urptr*\[h>M6vjsr,kSB(S6jUAB
U"fupeb'+4B^s>FMVqNc?1I?avaKCfU[80mzkfiaz>]3a]5f77sEv.fK03R.U(]k5
U"cgXbT[Di$oV%oIvVNVc_c4\*4vbJdYbH$*u=9\NmcG[duT'l#,gC7*'-q,h]?e'
U"&2VrneMLYHKusqfnATq8b'e*L;^woe2M'Br2h_zd/iCLXBLhqtlWTsx-[4<q<xF
U"\XDo\n^5Gd<,0vd*qQ\urMU2HlTftCdB->(gf8^:1;L7,PVtrgGBcEGN'MpZ:8O
U"u_V</.c'uPocny2KoT#_T]hh#Fa-qJdt;IbDTpUinfb$%]7+ES8?Cx8t,Yl)yXM
U"lVYVX'KmR0>$1Yz%GpJ;I'ib9\Gj_2#In?mXSjlk3VkpIoc(ODOGZq2&ca]Dl]k
U"<91][.F_n29&=/lRKklXA:[]g9reY7HEIjdsui?TOp5t?'bqk(1j7\DXsL#BdxF
U"iu=;vU5.)?#F:\q2\QH%*C^]8\GOdic[uebA>#\;FOmpr,[hFd<D5]lqNWuEUDr
U";j_1))9%'&;-FUC-H4;Az;lEhpX?]\^?l6;V9*aAD(bDe;G=hmsh9mrR*Ik*jUu
U"Ur'\9VB.mKZ(0+u6h5[3%DE$dT_,GsxG4huxFr6]loyNoX%:Gmd\dJ,_t6(Q1TA
U"e9w,v.^B[rvA#S.*UF:6310Sn4VSjoqk/T_oD)Q0drvBLdD*<(3g(3HKqs;)PF7
U">dqFgFF3mt&BuLEk?mGFfi*om-)_fPpTTEwu$qhzE-0o0WodDlN(jP#^^D.a)fI
U"oQ[56kU^UmfM6qOQJ8v]acJ\fOZ%.lTXj8V'6:jZ<Cxn7p5jqXc=eO*>9[xK)%+
U"raps;d4EaLl.9#qKVG.\muYB$T*KfJZDb:UMjEnOZ=_q9:dQYRi3[b7fU?KLpFm
U"xZX%TSmu6+X;T9-%2YnEFTPl9C<Ws7g_qCRPbjwg9U#XTD\;Fp0lZ4,ln2zn0iv
U"*].lC4h*_J,i$=Pv/Sbybb-Z+?RHS33q$=qc$F]I/kSLfEA5AP0]kOnKC]amV:k
U"SE/Gcq28W8>$NC'4^6RdjA6(%Y&++%):i^:UB;(a_eMn#o<Hrn\3?S&$]l<Y/i1
U"rW*E.F>Z4bos/l-oGI?2OmP?4knK?G].+fSKn*AdFGP^?%Ry,HOn$kp9PB$4U$6
U"a/0s#>l$(.C81k(DvZ,S2WM(Z>I)-<]LQqd6bF_ieO_uM[>e\vTYUYQe+-qH[Ae
U"Mv:gFH4Rw^mZ\I?dd%T:;X7-sjN8c+JM\YHTV/6-W-x5hFYOTN':,#av7(#,.]D
U"U3*p^6:0OXx;$Q^Xi5xWgXf]O<[QSLPL%+ZJ\r*W0)zhd$N>l$*i8/FCQx9,AOg
U"7UXG\e]v&Lh>D_O-D,Uf4V(E&z65h:SH-1_llE<i<wgVk7w<'fZ50fIwVTXJ$Vw
U"4kP/jqd23[m6whv4D2vllP2pXsJqN<rh'qgqD=ZUSr&r.G6tnJ9Ba?V4hdgr^^e
U"7sa_v.$ObtDJL.vZ9IT>4>P,f(/KME\&4=G6a:g+i-PTk7WKavV=L$N*Nhkf#PP
U".#&I*11e<o7F],&yOe.80]WQ/F+=H\7jtfisu&TXA<jI\Z>?#Ia_y,Kw'zXPfsS
U"BDvzdP::45U8j5_v:gaO^MRxFxZ?q;N8n\[C15yF_>&cedoTPg%?Ov%$?5LnHtA
U"GLRY*e'j$AD?2VCSuFG^Ea)TnPOy&tQ[4i(.-lq_G)cCLv+yldbTo;9UDy=zbpv
U"R=08$HfN?=V+J.m4#nWVutNN>TNQEG8oxo+*m9]%SaVZdgfA%v?N;,W[0JZn;&<
U"Xbt-_xNOCZw%SpaXbk81q<kr9MN?'43xFQ7rJfmw<X>2Sb468YR$TQCh=Q0'4vB
U"U%U\o'.E=QP%K,QP=,edz\M])ir/*gc),jh0\bLFf8$6IXUUS,t9Fv\N(]2rQ?'
U"2sBQaZLl-Z<VY-Zm.'hKvR]xZR[CxfC3NrQvf#p5aYTLo:,Ei&TnfQN2ukA#i_i
U"sC5KaOV9P+)XpM:b'q=/EBcMq3$-uE?qf1nIaDI0lQ^p95)>J,cznL5e9S>d-YT
U"0EHtL(mL8D[%(iPPYPYB>iac:/-0OtaV3votG>Q^-7RXEa_nl2ijGz)qY_#R8mF
U"vt9/2>B4oj>o]jvande(oBl-d,;(Z%6CFkXA04g'DiH/=G+#>[?^N1lwA1#tA#T
U"+_s#_=&7s,jue4<0U[[>tq''9l)aq6-1Q+D]T0qow'P'i+,XeiJ\1H7Ecp$ExIv
U".KFrwgoi]xdkNwnu+xK+4-T54y_yV.vCkCxCB\-PAAlgSjg#>EvHw?*990C>b$t
U"J0KKM;[%e*U0nQ=#*?U%H1vDs79,94G)LmM0u2I\MZ%=y6qfN7uNwuhOX$Fn2n<
U"O4EQA=Pq#dhOVKZ90ld6*M)bZi6=L5;uCI2DL<tJp>7(ML4XyU(auVZW9weY=cW
U"43]:k[X7(dvGRCfM0#Uw3N?uKFw_\2JA<0yQZtp\uMSd02Wu['=P<lZ4kZ'kLnZ
U"Jx9$m+gqJi,[qQsZ+Z/AVgF(k.XK0WpywJ>?3;b',P)j(?M=cc*ux3ccIPnc8Y,
U"ibGKd$OLrDYB^iy:ch+12NORGrdbn6$uHDFcorLrmsD%p*q:^%p<syn<^ozpH80
U"4-\sB74qd[))6T/>eAOytG4-.#G4CCpqGTUG((#.V[NO8=x.jocVlFRQW.p7eKs
U"J-m^DCcp?PNaj/RMfy1)soDPiELw5+VFT+)VFL$2Q*pw:,^3>#fa/3X0rd?qV^?
U"S:pnM(#Jad]?-4nv%oXX>,h)4Q#?sa'$5&cD/eN)&8X8UEmUWd8f9:CDG*V9t'+
U"/:5NELpW)$6fS1_FY5L6\Lr#LIJKkiB;gHO8#S3Ws[]k,xLB,2jC]oD1.V]+,pp
U"d+C5TDU5nqy%<m4y2YaN*<jw3J.BE_qIk\Ew*p4]7AI%aa?>3aKK$aLLLpLZ=Cc
U"kGdLTjhw#PPwC4z(9EF?71<JYp5&(3'B'^6ULMi9#UF5zA'h)Jri^C6n-H%AcF^
END SUB
SUB V5
U"^/nKCg6m/th=gL>a:a+no[?EusPGDnDmzDrl'YLE4O^nE6cjNq8wD/aRSEiiBOC
U"&nM^xK$P\u#jB0,/ktVR*jX(ONjJ'I*83maROp,GBvXO<63-XCMTcR4W:(p5P4B
U")Wz(K<cuo1h)I9(y787UqN1PmEo8WXQMEDG,6NC%%wAEN&5t>8=<P??]TcbpO/%
U"\7U/['-j6Pnsy*pWBU4bu16QF_AQwwiJN8tlOOurjY^N3vN2v%+h?,V-Bi[5yu;
U"(c'gw$fVH=\hi\E#+$0\'#Y0p/33o_;Xb5Y7(p2>Pw25G5455aRWIc/exm-awiW
U"]v_RiT%abl91IS[H1A\=5m?5N?K#FE5<vYY>#w/c%wJOsBq9++bo-3ji$3NH,d0
U"IE/80a/(6Nika'#/('dEcoC<];.hJo^UqQkZWuAWS6tlY.oEOVWMaO5B5(AWQ+$
U"S*4Z?d=f?QnS9>PD\:q^)YiXnCR24]>#&'B/<4.aK[p0fu8oBgd1NL-YZhP7vm7
U"RAQVy>8EM?t+v<Z#4F[58gmKC(CGXs%#:g?]6=sn/?&nn[h.??/bjqeR[0d:4jv
U"xbF+I14_G(bQC'b?U7P:iZY<3NQNTwwopD8w[(YViAlF'gAEic5bT(.]n)90:XF
U"$bCI,6>V=#fNJ^D?%YD$G)7bfFhVMs]7z9Z^qCz#;>cM%iGR?1c\0S87lnZs%SA
U"S/*#Y48hMf?A*fgt$M599bgnS9.c1$;Yh]c]xDA??alGuqE)3T3V9$uBD6-j/.n
U")E?W>c,PD#TbTw73x1Ugl6>/o#[iB)CE3=F%OgVaUd_O5l).HlePXQlXqp3AjjL
U"/LG)B'nh%ae2i94g9U.7tZHava>67]Zb.k)7>*9%d2+I-aB-7n\Q8]36^BI*,_s
U"A[mqfQAV##;mN\&TX+d4gexdT*o<9Rw/G_(NNAD:E.fX/+,s&VW+(hEM]I7RRtj
U"gj%XU8f0kWe?6+s3%+_R7*OKZn(RS*69LD;>cvQMMP8z6;;Q'<Xmj8WYdL5sirY
U"W(8T3a^C=Tb^'gC#I8ZSp3O7.-j)+]3[f+w\4RUkaOq-eS]NeRf'Wb20iCd,c'f
U"<o>45tjAf^3w,]Z5ZBh[G<%)&km<_XO8ka8)bIu#^<A8E(R\'58'*/JbbkRLK%)
U"CCwd$6M,VYEftk>8*wIhno?bsx>jd(SinA\PFO_G88uQ10&A3RgNK3(gcHOK,I-
U"B;6=Jp<Gp2wA]sQEo2DV9:>:e4r0*+sJM4DuZK_=kuxPy_:J4lLM8>iSIwrQlLI
U"U)cicU*]J0'e=f:I,<HIG5cH%<,>udE13D#_hRJr8^#R,[nTNLT<j9\s'BTLHQC
U"<D]Kc4mi'zfs4zP20JF5-Npgyd?T8C-mTW\aO)>'*^i1=/>7E:q2%%P+BK1dw1:
U"5-mQ,)KXFj$kwrfdfG,8o5u65:Bt%EYjCc622$of]\RW5X5gu.cM2dVTiVHk$fC
U"rIE$v$*_+a2$2.4sc\T(T0Y\\e$lWbj]jNX,%w87mjxOzD$1TP%VZ</fD<WW4OK
U"Hmbj^D)-VSJZ4Pm,uuP4FhS(YuYm68ukZY8[eXgm:i3tCb[$7<S.cK#TJe>*kkW
U"Hd,0f7Sj-Nk<r1T/Bp.SIgq>Pnf;8mc+fz]Y4C[npNKO/K]:OIDA;0fab8=b7qn
U"uP^pfa4M_*;,?-q2JNDe/ICm>o)*+KnFXKvEzcOP;TS-kWuuR(7+ZQsKaE;f;AQ
U"H7O[B6z9AT/JDmo0;7+uiR>AY3Ck+scp+f:JMbgsPpkDNO6.MNbdtZ\&EdLW%f&
U"hNB(B5IKHNbOLjwt#C&)gAa;T.6ke1Pl0]t>R%kvJa&HR]_fAM)60O&;Z7+QU)U
U"gKt9Eo/KrHO<[F:(QM;e*5-.2Z4Tf-R(qZEK>%cT[dlCp;%Z(WtqrMm$3L$2&gJ
U"quxD16>/4ERjtFr(qb;S9+c0)doR*qrK1dDa[dWwMt6oa*Ju9:]sW,&*[fRgjV8
U"r7lmkq>D7[,0oZwT[hTZ-.u7uC[247;tDTTAWrot>Da]dgaky^ZJ-1W+rSLW&vH
U"cQde5.51ngF&W[NM);ZqnLR/lA3Cj?+$2<WIGaf];df8(hFLeC0-&0?5+)55s0;
U"68e/_.UrG5/[t#7x]Q_YR[Y#__VtTD-1zPTMDxfRM?R;^0nfQ>[jhBuB=T8m798
U"1d,Qa;W6Qq$m*P;t,WpNum>+[I-z#v;R-B/)Il*c06pCp<3i\q'k5W-GJaATb2m
U"V9i17lr;4H.S+e;jT]GTLDzl5rC+%oQ:;6<#T<;)7<frgjYVc7;_JZnM^wmLJEV
U"3G,wFuXaCdD>:Y6RPMoTky#(CI3rH+5ak4dB/Vf.;LG1\50bnmO0B15eZ^<JHSk
U"m2?R2qf.?fZ6g.&?VU\eCiCMVgg*o3=%k=[X1Vo.NpoPLf;N)fuOUTm;(tDq?yi
U"Njga8=HS&pe2($fBop,KRefS(/WQYmE]I9C1Rf+4DdFu'-NAU*O-5ftqm'^vbp.
U"SWB_I;I:to*RqJ&]sL%L>\%78rGrcomUvssOe-tC=5lA7-SK'otbHF560RXq&-v
U"^Jg#-+^LX7F/&n8k(OwA/vk1*S./384h=5tg2ZG.SI#8;I)CL%BN=Q+c3]Z.ol6
U"2re^[TS/[nHS7kQ-fP^nW)K,^4puFs;[GT(a9+)sUXY5]A$-W36bQ5oy_K03$98
U"-9G(+-M*ac5kWm5mSr%5(-G6AovO)dYkR5c>HhDL;P\)0-=*M2o[':\0Qk9#*<T
U"JVhNwT1C0QZ9+S-bQH\P'4-1-O?g1x8tFj+^(p;TTQ<aO<H9QtxmASb*-5D;h#8
U"zSP447?VM/Hz'3J^2bKpd_[FOKM[umeDD=]TDp7lqCqAm]B9/K;C<s5N?s2w7rV
U"s?8%PW)xf%]^.=C>VW3lpbtCV\Y9jB,t8k&ai26r+8,;<)(6gDO1FJABOUPP*;X
U"aY#'2LQ?IPOuCymc#Noccx3,aaX'&%SE#q%CW'Cl=u:^-NeQ)a,1[sF=[.<;*,n
U"oR=Kl>H#Oh?z<BKlT?/$oo^OM6G]J2H(0d;C_9(M/$<03JbZ;CT,1BBBXp.GMot
U"TG$A#,pEu55nC6gM#jT<P7O7a<S1GKo94)Oe+'VLK2pGSmG:J0Ge3($$tn#Q1&-
U"tZj%EsmS6piq39WLjq4zqQlN1T$)ecmu\3jS7YY\mm2ddYj=t+:MqCQ^:,FRv/'
U"SYm=q8&aquL6R%aZO];6A0cfM)wSyl1L[>zK)U5O#a/g*Oaq^^5KUNp5ejZHIHH
U"6p7OW^NTd-dcK>p.XJkeK<UBVCb',K()A[^<X5&eGH:XtSNBNkf.IchrpKMq7%J
U"0IPqewA_N;'9OgHaCG:^;w<E6*W7?_dRzUqB<.[\T\8Z1\p66BGF()FoZ[P%a;j
U"SP)ATpJdyy<fBG:OGaP;*kVG++>;uaL/6S+VtMeAZrOs>cLI9L9c])5mR>Z^4WT
U"aPoL6owT:OEgUdP9W.pkRW%DWL(1ins/mpBd6Qc?:1I;Zdp,H%6-,enqo4&c:>v
U"7L*/lD<3/=]]e'bCYR5X:qiiNXc=PO#vCt)(l^CcWohZZ&nBc_>5qaVJ778T]DV
U"V<dlcZZ.HlpN&^E0Vi]x6Jf%l_*sOG,1)BJEV+OGMYbf-c4;7GMxb%Hdmlm\C#>
U"03HbCsFAul4m#3f\U,TW\C#0f3PO\N$U^-:aKmG+4ZzuKJg+1]]m4Y+rK_-7+Dj
U"89s?VFfC.sw(V?zmhcNn\'rh-D&\%anGc,)k9<v2pRhg;SrCFrZ08?N'UVw0Sr$
U"^c2cOv<U'll%ybRw#ptFAxE$<IXNVk>GLTZ,8\sT5t;]b<cd'(91M:=?1dBm9Gn
U">lleA&SGLr0Eg$UNZwIU6DFM/T(H<&rE=m.a+37rhoA\?kJFAF?5xd4.ocvl9a^
U"vu?m.+'>d#Fw*Pn6&'bi%g>(eh2[nl-(Jhg&((tD-)oCEMP,OOQlFC'D<*JOm$[
U"w\y9?xw4o/UEUGC$gTYIfdo7l[x5g<x3r:bUJUE+Sa>;GdplnOSsC$e):k)DCKF
U"r.DON,*p0DylWtUF\3:LC^4\PmcA%d]g,rAf1xR5rSk*#xT,wM2dw4mvf2U38FW
U"_z#i[3_u1]lUN4Jx0Q#JhF<qR.rIIwWJA^N(%8Vd?fOoX$iTa18TY8&(8x-i44d
U"/e=v#.*db.'lw-ZnRB(p-?SZ(>d8bB^\HfC9M>B0_OVY%\R(u2Ud),512pyNl-?
U"1%Wpm%T'-\O\Wr;iH)op.(&p(ea(OnCusow0G$Up-FsMFpMJ%rhujgl-xrIWZct
U"uPrle&GDlQd=Xb#KLrh%cXbXI[^4;'i8VCi44&^nc.sY)h8e#4mH9kkUNHbX2W-
U"]%e&U>]*]#8HQu1$c^6.8(3T/mEu6+uMCw+d]s.+<GB65JWQGQgd^n_O_&8rA.=
U"wufC9<et1zQ$kgg&iIuj)f,*mYvMQv]I#Hv2Nt0$oz3BrE-'rDd/(%wF):2vw_b
U"L?purrw[-wIgiLpY5v2WK?X&wC$t<Se):)&Cgzy7;68nSt6v%VH;*96_Dg$7YkP
U"g9oTFLjb.lT.tL_%W1s?J37k6?5*:qf4\q#&*K>twul=KyVUg6*qV?L;X?Y_/Zc
U"pJBGE5u?hW]nO&1Je%:'X[f+'iH\075F,5C7R(C)VonY$;SUd8d-VTmbPuU.RA\
U"yPmUf'Unqv5c-wib&T(f)X).C[r3PbYS7Rg#$sf9ois1c?ALZ?\=j\JISc/C$,P
U"+vc&I?Rk1Tqf6DV-jz%uVOfY*I$7.,_]s8pXaAi3WiJcHa<m^P9lV3I6)G&[=kq
U".IwW'<[([*9[J;k.96>5rdWn=a+[b[^H10jj^*RqjL*^Q%tAIi)qP]pJ+K)XWXW
U"tS(g7mT9KmoHGRA-AII^i[7J8B9/A+hn'_g4TCG.I.1FfbP9B\A70kRAHTr62T*
U"uiaoAmEtbl$A5kb6kCbIKNYtIqy.9#%:gT4v<wm(Oi?p)\vKv,xM1OMnIi)dqRt
U"wdqRvwOgRxD3MI9(W.Tsk<sYSp*vV_qIZu6xBDyPDGb3pD7xmLlP2OS70;YrZW*
U"iBi(NiarkP_HFRw2(HdrH7WiJKorayltFXcF0ib9F>Fa^FzFeDrV_ePkzN>8v-&
U"<S0Smff=<5)Eu[xPj(L)94i4qM*s,x8Lp4vNt$EZ;E^o#9fFf69f4S0oS$SX*-=
U"Rjc,-\f7p,J(0bmIQ1bPmgt6KlakTmBmkna&ac.-e8CpNe>kr8spZJtbRK-mnqQ
U"HIf7g<L^O#XKK_;X1?U'HUTV\>W3_b,_8_+p_EH4W#g_K_OBfbpRce(uE)#r>u)
U"lWR6Qfe'#*=E'4d0c0*LQkzeDok&/lfS5>($n-85K66_GRrm)[.lGd<(sT57oj_
U"YDGNdY&V^<rXaj+bUcakakdjKcebqYDhcOcILysPLfPsBMNcWcD$D_fCR3>j34_
U":*U*n*X.dm#dgDtgDr^PsLbLmu,nlnlHafbt&dXPlhM&cbzm2sbzsS690FQ5)9W
U"[IC#A1NsWu>)uVi&ZkcZ[Z/6hVFiEJkpFYhY>bjpOhblWzWj2W66LN2O#8gVK=D
U"<[XuC=v#64#l[0)\NW;7?B?wZ\t?^M\*\.^=F?DJ\,[VP[#[\N?n[&k\P\0_\,k
U"Cslh\hb2j>caXJL>D6]tPcH,cDqKet%roHL$M<nFLscirK;6fH&AnhcvqLMm2?e
U"l,tqV^[<)gKq>8uaL0_u&q(kjOhw>5sIy55S<_k835srFsf\?V#0tV/n:LjKphX
U"$$tc(6pr:DM6n\LZWhl#,n_c\WsCoH?Q#D\W9F1>t[h,7^PKB7Pt7jKl0rM\k*^
U"JLtfmlncd$<]a<_\EaTKTOM>e.PfX0M(uq6_pktXNul7l:itBtrrbVr4lZHoxb9
U"xoxZ9w3xwTxrw*uv8ixbvxcxlvwVvl8l>ic8$tolng:bO#WFCQXjLb?tGg$l(hq
U"7jTpL&Zhc7>ro,Xpcv7DpsbM0';>2X0tL(n6lJ0z(kfR7oIX,gR<Fp_F?_Z_]<l
U"3l9Wl+lnlE(hXgZN/wl;udrO#l0Bt\2:uYb2NKl#U8OZmlc6oe<QhhXM2sktmjX
U"6hrMPZs6J>jx8^sZfcp<l8SM$rs,b$$gv4i%0-1=#C58_^?_;i5C9n(9w7)clYV
U"O([(3*MC+K<?XVY$OB4&oOatx&va8stbXd(xnuslvxlSxlwk*tNJqN6x<<vNeTu
U"p8L8B,dZOOBI6OSHe=O8$(?2.mC_VP/wO6[+adY0F&]&7D2Qb*Yj&L%+Y1]g$o8
U"9%T(C3/o(L((RPt)9?)?*%K+s0.q0kBm]Tir39tPP[(p'XF.u]?hN/<Y;FPX,/-
U"3;295BqU8_3c8%9?96.YO7gCuIu-*IqEcn7zI3Do\f4jf4QwCBCQwaFagI<.ooE
U"%Jm<A%=A;aLGG;?h1?AiuEYUY?r:H*KxNGH?icY\bRX0WaC5$qudY<:'X*\*8.4
U"wR:=(5Qq5ZNk2s4cJN>a:h;>H?Ge'[*/k'/*wV<x/k<-k,Yq*M.-5*Q_&#FFF0[
U"FXh_\Ua8k51AzF2>U;2orG]X+F#hS,UuAWTE_Wit9F07q;LFsb&d+djLO<OOBON
U"(L4'^(ud%$%t&%0&UB%xP'v,3#p]=YEAP^(.s=qc990,7$cih(0a4Ubi?Y9\(K8
U"DGH,/#eW&c.21&LWYFmY\mb'I<gB&p#gdj4v6aZ7Ivp.lgN-T6;s*hw5_HOEdo$
U")Ra+rdBYFI:PRwWfAc7<ko&Rw=Vadf0X3y>'MUm?qCBIVdfBRm>0<;KkV^Sv^N;
U"jQus)p<cC<O<Gy;sV8,/4>rONi9H:<+va2G>u?mY81;M>i<)RF3SLDK=?QDY*R0
U"T,F4To.0SDVVlU1lV^2.t2nDTwqqn$;..$E<.0.+Bg-Ta2xMulli,Z'x/d98Mau
U"yWqhiBoZ<<(bTX.x+RUBs+2jBWS/mA_J0h1U0=2hWpIBAUFFH4H88mJ5N$_^V8c
U"4RdQ]Y_i[F2hGg3$VUa>KZ=CbS>9O?SNw54abh.L3l[pY<a,ahxYmMdp:Un=AsJ
U"]IRhxXVmdp/dh^1mbcmE*IBhT+36[Ylk?u+rJ$GA&w#V\7'l7V'KZWZ5Ef\E+^o
U"khZRr+nQDI6\18Mk5Jc=j'>jABoY1Y=pa8#tEtlqm=7<K7Wb#>itN=>ay)a]KJE
U"U?Jt1JNaadWZAcNaxbveMYD#]Mbxh4sfm?UaLn[YT,?sgZthL$$ut3E:3:Nuw:$
U"pT]srPhkA2S_\2TFf3V6RWV4t<qv;xXhQ-T6DYIZJZrs^TZnNnZfdJ%=f6O:IKQ
U"]0bu#/vTj<gH5$#:jiN=s&8u('FssUdT%N%&.5WH(*9H>U^H9(sE^l3?<&upS).
U"pV:,P*7lL[rXMw3MT4:Z8-VY*%%up(%)9%'#%-%x%)jN?TCVTN#&%%e%G%%1%%%
U"%u%fymk%nsiS[ifyf\ip3<[E1ip)dI8;hRiMg,N+CE12i^nAxyNz%Of4(6\:=lM
U"J;<Je+T'bBb0aN)anH.uj5HpS.2Qo2[X[)r#;]Y:MYB=K\YaBd''i=/mH77(1ND
U",Js<$O&Wnm7C+3qA%Kk..K=\va8c-h6jn&09e1IK+5j]o=D[k)eb[T>I[HvLq=v
U"FkrAGYfW'wI95h'iogIq.2NLCzkm&VV]QRC.+OtG'N<ca[$?Kcy0[*#$m7G)=I9
U"UYoe3fNXS-)3#e:aMnr7jw:_QB4mOd1URGI;RXlIi?<ZXB<a.1eb1=$ZibTB%ow
U"w-/\ipE_bzx7US-Vuui5M_6[SOy)$__[Aj):1p=I/;GOEH0eAoHfU9BE'g4QhDt
U"JH56J<0z=>-KFG<2pu5U.nk;'.NN=Oow_xN]GtX2LL;C=.BB=Nn+EgP?jLqgSac
U"U&R+JTQ.,?)?pID$gXig,<4Jlm]s?Ix4Cs&mt%rD#o6bTfrN=Tn'k+up%()9%%%
U"%-%%g+jNI0^aP%x&%%'f&%%%/%%%Lw403D<4SCMGCD$9:s]UU1Uh$9k37R6%-8*
U"ieT*0#Q'Yo0R>-E,h38hC7F7&&7Sa$ibWd1\_p9DTwdxNuOVlVufvLFKX2[kHZX
U"D*e7,&_r0%87g$),/N[0Zbo9jT/;)8NJSgx?$[73ER8u7%5%L=Xlq'FT72*P?*>
U"CTtCYGMcPVLQW6[Og[:eYxq-:D;qv5o6CWk(j5+p*uEtV;rJy6p1J*nm*5AGCVY
U"mpHi;:UI=W.,yYSY$>BcF2IX)b*k+5[;Du'+)>hiU8P$;r,4o[s#3hUZqTni=PQ
U"P)<]iUx?.',630:fLz&y$J8lARK%iv6**b(w,o[kZ5jF-F/E(Arrhe<rG7g-N\<
U"dBd\(TfAYPjx>7nWb5H2.kYc+HS,F+OQNUfMx(3m%b:=NjEMjK7.\FSsyu9JHOC
U"g\Bo-30Mwx5AZ,Mh'si<+l%,up&%'9%9%%'%-%%U(jON.$G-9p5%(%V$%%%1%%%
U"%%%%%%&%E4%/P%%%%%u%fymk%nsiS%gfxu%p&'9%%9%'%%-%Y%(jN7nRr:g\q%%
U"a'f%%1%%%%%%%%%%[%E%x&PF6%%%ufy%mkns#iSj'%jup&%'9%9%%'%-(%x)j7N
U"?CV*TN&%(%eG%%%1%%%%%%%%%&%E4%/P^'-%%u%fymk%nsiS%ifyu%p&'9%%9%%
U"%%-%g%+jN01^aPx[&%%f%&%%/%%%%%%%%%&[%E%/>P[.%I%w4023<4S2CGCu%p*
U"+%%%%%)[%)%_#%%%,'0%%%%%
END SUB
V2
V3
V4
V5
CLOSE:IF S=251AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
