'===========================================================================
' Subject: SMOOTH SIDE-SCROLLING GAME         Date: 10-11-98 (14:00)       
'  Author: Tsiplacov Sergey                   Code: QB, QBasic, PDS, PB    
'  Origin: qbasic.com                       Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ARCDEMO.ZIP",4^6:Z&=63731:?STRING$(50,177);
U"%up()%/%%%I%%LJfBGf5-iS4%%%%4%%%%,%%%%lw%VSxu%xEVW%YEEV%ZEEV%ZE
U"2/%up()%9%%%I-%LJBBGx61**G%.%%4)%%%,%%%%lw%VSxugwda:(2OU1a(xme9
U"I6k/)lNXiUDd);&2cvh>iY_a0_]^v^tg$%l-pxW.*m(&PQh7J)>Tpz\L&9)A>wS
U"C;cL7tJLT*lr5f'l-PIe]ZQ;L9>T#hjE+3c/SGIqc+v)PTaWnkCr<j?x:wi8-dM
U"[t8en592%&up(%)/%%#%%%iGJBGf?5iS4%%%%4%%%%,%%%%l%wWSx%uxEV%WYEE
U"%VZEE%VZE2%/up(%)9%%#%-%iGJBGY9Q+so#%%%4%)%%,%%%%l%wWSxRuw&a'*.
U"%V=1=sebEi-_YiHuj\TY[X6sM+Nt3ZAQe:UIlENk>tqVp-SUNwF2BM)DgLA^=>>
U"6Pxo-?C^u_?ukRb%-?q;&dv'%up()%/%%%#%%G7fCGf5-iS4%%%%4%%%%,%%%%l
U"w%XSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%#-%G7TCGT;6,<F%.%%Y)%%%,%%%
U"%lw%XSxu4w.a$+/9E5aiteg9Y6--PIwj([)7XEEe]jijjML5ivc)G?\hISY[[3*
U"?BDX\:Qf\#L%i4:M)F8Wi1^o><Uq/e.7=85$N1S*#?P6;gI4rCqg5HLK&4OiE^I
U"JA$QL^RSsw7+>Atf:.f=:%N\sBd=$m5s%up()%/%%%I%%04esGf5-iS4%%%%4%%
U"%%,%.%%&h%qSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%I-%04AsG$E)*q>%.%%4
U")%%%,%.%%&h%qSxu=wf=F%2%%%7'fHkd,G_8IBN?>(S\*%*i1up%()/%%%%%%79
U",4GE\+\9%4%%%%4%%%%-%%%%rVVq%Sxux%EV[Y%EEVZ%EEWU%E2/u%p()9%%%%-
U"[%9,4sG8,F)td%%%%++%%%-%%%%rVV%qSxu=w.Kf(/TU1s)I6YIBaQdY^fr>+Ks
U"<.3\sl9'U)i$pTxRo2<,cwY+&[h1[$L%U8)>Wj[?+1F8INlkmsa6+ebNLhB-Sd5
U"[Vn>Jg)_8[S6_CdV]h;I]F+]do=6R+X?O'R#S1HbOwRu+wl1;b]fuuMFA:\m6yI
U"?efLrx_:?K>#Ujbe$sgRv)FU?dk(k,V'^'up%()/%%%%%%:Yp.GE\+\9%4%%%%4
U"%%%%-%%%%rVWq%Sxux%EV[Y%EEVZ%EEWU%E2/u%p()9%%%%-d%Yp.FG(.f(8b%%
U"%%'+%%%-%%%%rVW%qSxu4w6cp(3OE1aipKWAPH-Xl;r>_SQ)cCP_(=i=5b53p1i
U"<e2*t'zPL6xzIizfY,o%f.GOkVR(.xuDA&.GV8/gehheogE77[jm0l?'1:8o(8(
U"8WTE-q$;0Jru(l9?GaJK#UpRj>I%JIupip+T3].MOv1O%xb];*+e<i(T[osmby9
U"%uwVu?V/hx]4VOJ(%up()%/%%%%%%#,T4G\+(\94%%%%4%%%%-%%%%rV%VwSx%u
U"xEV%[YEE%VZEE%WUE2%/up(%)9%%%%-%#a,4G:AI09g%%%%+%+%%-%%%%r%VVwS
U"[xuw6Acf3T[U-ip=KW:H,'kxa-xFqYcj\9S]:=\%SO,Lp?D3E8aB/qk$<?Um#(k
U"/cWS+h[-0NRC\sUZ=aq>i2-;8u%,5lr:Cra-SN-M1w*[?c&s.>T+\>y2Xd(U6Tm
U"Dpi5tyW1nd/?y?A;(=;i:/_^AH%zQcccrZEtA%Y<F5TFb9]=[1sj9IdV\is1aiT
U"W+DG3u%p()/%%%%%d%ip.4G\+\&94%%%%4%%%%-%%%%rVW%wSxu%xEV[%YEEV%Z
U"EEW%UE2/%up()%9%%%#-%ipo.G2X1%Y]%%%%'+%%%-%%%%rV%WwSxmuw>L0J2OE
U"R1)IN18F/)IFvgN%X8co#b3w1\\drM/It:2+lQ\p=N?7\Jt?(YDFK;rqK0=X)_w
U"S^#.no29S^NX-*$PX\E?;H\64<DsyMfe,T3.'=,H>;MdM]T-2Z2%MPu[i8CnB1E
U";2PR(6Zq?/L4oN:(rfkW>QE*$&R=]]w,F^)rChv9Eo?2%up()%/%%%R%%o3etGf
U"5-iS4%%%%4%%%%-%.%%&t%iVSx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%[%-%o_3
U"tG&<X:PR#%%%G%)%%-#%%%&%tiVS[xuwf,_:.%[%-'x%f$Yg0Gd,80mnQ'adwam
U"4G<<?R%vg(LaE8gM+XD&3wzv*%up()%/%%%#%%24etGf5-iS4%%%%4%%%%-%.%%
U"&t%iWSx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%%%-%2)4tGO>-DUW#%%%G%)%%-#
U"%%%&%tiWS[xuw^,_:.%[U-(x:*FA->5wbA\p5:-6v]fH7<]e-:f960:P^&ArO8s
U"gq:n*?>k8CT%%up(%)/%%[%%%ibp.G\/+\94%%%%4%%%%.%%%%r%VVqr%Sxux%E
U"V[Y%EEVZ%EEWU%E2/u%p()9%%%%-j%ip.pGmFu)S%%%(%#+%%%.%%%%rVV%qrSx
U"Ruw>c%V3%E.-(F8Hx98CQiv>B'O]uoV#0kIew&jD8I(c].0-UbdsRAOc\2xIZ'5
U"b'#(Gh$+K$d=kVY]]4=vNtG5c%zt72]Z7My4:-XG=t2'XO2%up()%/%%%#%%wpT
U".G\+(\94%%%%4%%%%.%%%%rV%WqrS%xuxE%V[YE%EVZE%EWUE%2/up%()9%%%%-
U"%:wp.G+=C]0&%%%%&D+%%%.%%%%rVWq%rSxuswFM4%2%E-s)IW=%BAf0r$nFW[E
U"D4IB_70HhPo<E)%ZO$s6sTOGs-Mfi0/?(kq_s,r*VDAUv;l#7gg#-ThAIU_RCMm
U"cTT:=X-eVv6AAXM)+5&u%p()/%%%%%j%tp.4G\+\&94%%%%4%%%%.%%%%rVV%wr
U"Sx%uxEV%[YEE%VZEE%WUE2%/up(%)9%%[%-%t,p.G/Nx*2%#%%%#%+%%.%%%%r%
U"VVwr%Sxuw*Fc$3%%E1gnF8hIsHM:lYnFV7N%Ont48kY7T&yD8JJ_AWknwSf7M?S
U"9SufE]a;^W[I*Wq04nZ4K)FyWchdOIr#dH2:/AFdUjEX>?L&tXN';+up%()/%%%
U"%%%;/p.GE\+\9%4%%%%4%%%%.%%%%rVWw%rSxu%xEV[%YEEV%ZEEW%UE2/%up()
U"%9%%%I-%/p9.GX%';Dv%.%%D+%%%.%%%%rV%WwrS[xuwV'MV/%[E-*I+ba3BW:U
U"GN-/_gqQ\xqeRthkSf-w*B^N_74\]o>\%Ul[ZBf;n?S<PISGr0r:,%nH9Iwn-Kq
U"P'HYi/&TIN:MLF1Nn1,%up()%/%%%I%%jmf6Gf5-iS4%%%%4%%%%-%%%%rf%sVS
U"x%uxEV%WYEE%VZEE%VZE2%/up(%)9%%#%-%jbm6G?'4nSf#%%%e%)%%-%%%%r%f
U"sVS[xuw^-K*/%[E-)IabiDuhSSohHx-kR>9j-fAf#DV1CFu+\T1rUnhU/pCnzBS
U"CzJYAc_E#r=xHZ:CJ%<o9Vt1%%up()%/%%%R%%#mf6Gf5-iS4%%%%4%%%%-%%%%
U"rf%sWSx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%[%-%#,m6Gj.=H:u[%%%/%)%%-%
U"%%%r%fsWS[xuw>'Kp/%[E-)I,LIBamggJrS^;Mq4GtWo)j(c,R>-YlRMUocL$([
U"\PL7:Wk%U1iB1Kr8#3cRTM?EH83B_]<CYyK\AV/<s#3?Tk([:;u%p()/%%%%%j%
U")]04G\+\&94%%%%4%%%%,%%%%yVw%Sxux%EV[Y%EEVZ%EEWU%E2/u%p()9%%%%-
U"j%)]0jGbV/*7Q%%%%)+%%%,%%%%yVw%Sxuw*Fc$3&OU1hnFIgIaH-U--$8>7_$O
U"?$jXIY>I/1MY\#m^&?D$Kk2gQL0JQo'4(Qw%wq$1+:$Ant\K6<HxAU-pr(JTF,p
U"69'n17VO=DV_.pkydG*=jO26$?fW49iebe$OY<?.NO;<87^_<g:->t2g'_hX3oh
U"NMn8[(&A%up%()/%%%%%%<2]0GE\+\9%4%%%%4%%%%,%%%%yVqS%xuxE%V[YE%E
U"VZE%EWUE%2/up%()9%%%%-%<2]0G6cfP3&O%%%%)+%%%,%%%%yVqS[xuwfBMb3O
U"[E1*YHV=$?C)Z(k*x53I=yDd4s?\[kL+UM8^NsR&fDD=MrH\K\55^9?2+muo(8#
U"G+8PrAvT%:XJ\w1?JD/\N$8BpcYd0?)7JUac\<aS1Z;ESYV2]o=-J;l1b*fGp5n
U"n#MerPrV6f22G04(Sb4N9Mu>'uY,u%p()/%%%%%j%-]04G\+\&94%%%%4%%%%-%
U"%%%yVw%rSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%%%R-%-]f0G^D(QIz%.%%g+%%
U"%-%%%%yV%wrSxRuwNc%V3%E.-(F8Hx98?Qiv>BD&XJ%eWpv[^fbO&7pRHz%HE0u
U"P,a83#L,H?#P%f%mUmP(((0jU8gIxnoq3/#/()I_*=-eunCQ1LPnx1x'QyBu%p(
U")/%%%%%j%6]04G\+\&94%%%%4%%%%-%%%%yVq%rSxu%xEV[%YEEV%ZEEW%UE2/%
U"up()%9%%%R-%6]00G\Z(Boz%.%%g+%%%-%%%%yV%qrSxRuwfc'*2%E.-)J8)F/)
U"QDkN[J7G6XL5)QKJAFo58V,9rhYgs%%=NPL=COGQ'&=f38G_3G:hj2Pkkl/l=HB
U"4^]/jca:<w19qH%$$0Y4Y64)=z&u%p()/%%%%%d%N[0pGf5i'S4%%%%4%%%%-%%
U"%%rwV%wSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%#-%N[f0GYX4]68%.%%p)%%%
U"-%%%%rw%VwSxmuw&J9J.9Em1)IxLgF?SJUGhN0-gN?N[hkxCdV-Hkg,,f1ag_#I
U"L$^t:3^tI%?BM9-uW5/mS<FZ<a83lUa'we5;hL2j?<BKi8k*:^<gv%pw/.'+\m<
U"K('oj2LS)HesPL/&-2m%u%p()/%%%%%g%g[0pGf5i'S4%%%%4%%%%-%%%%rwW%w
U"Sxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%I-%g[K0G*l5Qj6%.%%k)%%%-%%%%rw
U"%WwSxRuw>b7v/9U7-hx,K6h^oX1br^rO^:_2qoegSNgo$IlQ(vuW',;fpCQN6n5
U"Oz]X>9?A\zMeqo$T>/6::B[Hb\,[.%Pvrm4K7gp&ej*BwTq<hRxE;I,jT$9=eDT
U"XMgQ]BP<P&iup(%)/%%#%%%oG[0Gf?5iS4%%%%4%%%%-%%%%r%wVqS%xuxE%VWY
U"E%EVZE%EVZE%2/up%()9%%%%-%;o[0GX88a*&F%%%&p)%%%-%%%%rwVq%Sxuw?&
U"L:2&OE1*6I4X$1UQ\F0Edi,41uKoGpNpRSVct8(m&_4pMabt?g.mHPDRti9.V0w
U"HSBlQ1Hq7chavYGEp5yb1w(?M%Rk)3Uu-ZEk;5(YUc,^/bU2fSWX\JxfxJkJk'D
U"kl^SGL&nd^uaNw_CB,mj&u%p()/%%%%%g%w[0pGf5i'S4%%%%4%%%%-%%%%rwW%
U"qSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%I-%w[90GlT0m/>%.%%j)%%%-%%%%r
U"w%WqSxmuw.L/0/OEm1*Yx:fFi-h]GGw\rj5/rU%T+[d4ntAG(RS0+StCjfTd.+l
U"Lc_m'bSV%g-apV$tbt&.]M*t$f?wU>+*>4pe_oV\wHZPyL5]WVfBuX=q$qb1Buo
U"35+LDS)LWo*:6J:lwE'*%(up(%)/%%[%%%3G[0Gf?5iS4%%%%4%%%%.%%%%r%wV
U"wr%Sxux%EVWY%EEVZ%EEVZ%E2/u%p()9%%%%-j%3[04G2Tk&Gl%%+%I)%%%.%%%
U"%rwV%wrSxmuw^J'*2%Em-)9W'=B=fj0$nF/e'PL%5/#Oi1KGSbV_%_I7+9';-+O
U"Z6En)Zq/.Eujt/C<=;^Dm8yl9TI$%j?;2e'7%<up(%)/%%[%%%9G[0Gf?5iS4%%
U"%%4%%%%.%%%%r%wWwr%Sxux%EVWY%EEVZ%EEVZ%E2/u%p()9%%%%-j%9[01GM\9
U"%fg%%+%X)%%%.%%%%rwW%wrSxmuwNL%b/%E7-+Ib]a3C:kUGN/nEVKiqF#lreX-
U":<#AjPi22s'=u8'G39)w=NLzSt)OV::?bWP(MOER=M8i]Z&%up()%/%%%R%%&[f
U"0Gf5-iS4%%%%4%%%%.%%%%rw%VqrS%xuxE%VWYE%EVZE%EVZE%2/up%()9%%%%-
U"%<&[0G-$5G(%m%%%'I)%%%.%%%%rwVq%rSxu=w^MV%/%E-bTZbaI3CpUrGN/_6E
U"ZNI=]-5f]mh5-?2%0HLl'?#M^$[sIl=_q&jNw0,O7tx[X\;>b>hyYjzWR1SyK8p
U"%2up(%)/%%[%%%-G[0Gf?5iS4%%%%4%%%%.%%%%r%wWqr%Sxux%EVWY%EEVZ%EE
U"VZ%E2/u%p()9%%%%-j%-[0IGg/L'kq%%+%Y)%%%.%%%%rwW%qrSxRuwNb%f/%E7
U"-)hfGNi.EQav>ZI-_h;0^7,+BmUPYMqabcESx8rco3]N;agF(R#p2]\XY'S+RN(
U"D)F$DA3aE+]\QZSo&,vIM&,[up%()/%%%%%%:.n3Gtf5iS%4%%%%4%%%%,%%%%k
U"nwS%xuxE%VWYE%EVZE%EVZE%2/up%()9%%%%-%:.n3GW5ANH%V%%%&8)%%%,%%%
U"%knwS[xuwf-I*.%[e-hJ-w9BWtQ;:Fgdi,)'1S;;X[(u_3906>0:JAO/YW^qFo.
U"s;W5Mra%up()%/%%%#%%6nf3Gf5-iS4%%%%4%%%%-%%%%kn%wrSx%uxEV%WYEE%
U"VZEE%VZE2%/up(%)9%%%%-%6,n3G>38ZlH%%%%_%*%%-%%%%k%nwrS[xuwf*Ep2
U"%%%-)V+t;3dK;HgN#[A8oWAhCy8)>quXT55G'e%up%()9%%%%-%<eq.GpicW#%1
U"%%%%4%%%%.%%%%qzpV%qSxu%xxUW%Uv%7>/ED*%%up(%)9%%[%-%eGq.GhND4Zt
U"%%%%_%-%%.%%%%q%zpVq%Sxuw<fd*3&OU-inF8x:4t)\35Mxf^,Caj43g;&<81O
U"#(s)4fTf3]u1n]s%,*TEu$l[c^fL=Cdl0se_<dM/0(Ds]AX2t?<\05Mn:%%N0g_
U"0)yY(6xM3baqPW3Lb&*B.J/65'1kldoWA_^uKOob51;<MwK;[Ns5XbuU&1\g;.p
U"7aTMY?YnnrP*YlyrHn0Z7,s.a5kIYv'rgTZTf[\]2%&up(%)9%%[%-%K,q.Gi>c
U"W#1%%%%4%%%%.%%%%q%zpVw%Sxux%xUWU#v%7/-ED*%%up()%9%%%R-%KqT.G&U
U"4DYo%%%%_-%%%.%%%%qz%pVwS[xuwfCz*/O7U1t<l5<])s2viuIL8C7cRsmd+cv
U".W;'1Kymxsdk]<1Mn=jdMlT585WB/,ML8NomHkI.rTm]2wJ>AJ#HPzaOx6jB(sM
U"?6K7+QBib&kYcXA%.>X2>'W;fk;?Po.A%V)YGv]C?)P6:[,'(5JX*a0xc$rrP-J
U"M_$Jv]R4AW=OJFUH69:.e4r)GP=A+6.]x8go-Zk.u%p()9%%%%-j%iq.dGicW'#
U"1%%%%4%%%%/%%%%qzp%VqrS%xuxx%UWUvd%7/E'D*%u%p()9%%%%-j%iq.(G'rF
U")34%%(%$-%%%/%%%%qzp%VqrS[xuwf&dV3%[F-)t+pg4cg&ZJx6T'tu'+Q5Zu*R
U";9[s;V/Zw.p#YwqClQ?C,581ZjuV*UNo%Ng'r/qVw>plv?^,^>Hfsn1uvM*j6rA
U"Joi/O4(c?-YOzw.yD]fox8dm9c[s(%up()%9%%%R-%[qB.Gic-W#1%%%%4%%%%/
U"%%%%qz%pVwr%Sxux%xUWU#v%7/-ED*%%up()%9%%%R-%[q9.G]L.0F)%.%%$-%%
U"%/%%%%qz%pVwr%Sxuw<fc*2%eF-iJJ8F/I)RkN-/X>$*qV,9a[(U:2F+[WYfmo'
U")Q2hd9n?%]i_qcs*;)vY9VBi/+p.:6A$DhaCOoc3-w(.rnZP']23LIsa>M77edF
U"[t&i4up%()/%%%%%%<QKBGtf5iS%4%%%%4%%%%.%%%%hkts%VSxu%xEVW%YEEV%
U"ZEEV%ZE2/%up()%9%%%R-%QK'BGfT.p%V%.%%W)%%%.%%%%hk%tsVS#xuwl\av3
U"9[E-hx,fe3Cjfv$l<X;JJ7X[&U,NAAuEArNv9to&,*d0ap3vM]uZPmuiptR73p<
U"Rg5,eEQ9N8)C[T,bM/XZE:X77jTg$B[1LZ;-MpF$v(-PO#X)-uS1?C[9Z)N'8k;
U"k<]Ga1.Vw+mOrZQsO[\)HZ\L#0Ms=pkHSY'&V,up%()/%%%%%%9E%*Gtf5iS%4%
U"%%%4%%%%.%%%%hkts%WSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%7-%E%9*GDt.
U".q1%7%%*)%%%.%%%%hk%tsWS[xuw&&cf/e[F-ip+D3hlmM_xZTwSA5A;9\RG75k
U"t?safPSf^&a[YNgU#_*K0o>Wl1+P]a3H>oImFTQBhSK1sAevUr<pP*&WfYw8Q*#
U":0;Xo/[THKtm+^v9WrpJG$/'uup(%)/%%[%%%<GKBGf?5iS4%%%%4%%%%.%%%%h
U"%ktsX%Sxux%EVWY%EEVZ%EEVZ%E2/u%p()9%%%%-j%<KB.GVbV)y3%%(%;)%%%.
U"%%%%hkt%sXSxmuw&L.f/OeR-*IL]IBa;c-J^x$FQ;>uAPEXUk[BV]lN>+D>K^MU
U"7G#dK2c9B$(ZVO81Mp/.w/m$3)jA^N^cQ1<d%Ah52r%t+<G;Sh<ozGRGOEypnLC
U"wf^#t&maLc8%c&up%()/%%%%%%:?ADGtf5iS%4%%%%4%%%%.%%%%hkts%YSxu%x
U"EVW%YEEV%ZEEV%ZE2/%up()%9%%%#-%?ATDG4;3,:>%.%%4)%%%.%%%%hk%tsYS
U"#xuwdba:29[E1(x=me9-o5G_XE%>Q.&?d;OD$B[,YJFj_c3^=rMNZZ?E2g+7't2
U"yY=LXcc1.3/DCy[B/_AfrS&DywBKg-I$q06huis00geNlXY170&fGb1(nHTJHdM
U"bOtN]59a)f#7$>'A,up%()/%%%%%%:OADGtf5iS%4%%%%4%%%%.%%%%hkts%ZSx
U"u%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%#-%OA0DG'm1T01%.%%4)%%%.%%%%hk%t
U"sZS[xuw.,b:.%[F1)x4,o/.nH*dhle9VYH+jqe't)G_q3%fOTThD'k4/M2C;qgO
U"sDHS74>S$&DSwGT62RF?J693nal:QE1\TQ$FO3^P'CVNt,OBMM]IwM8f1NX,h>i
U"hc%*up(%)/%%%%%%VGADGf?5iS4%%%%4%%%%.%%%%h%kts[%Sxux%EVWY%EEVZ%
U"EEVZ%E2/u%p()9%%%%-d%VADaGGLu*D,%%(%4)%%%.%%%%hkt%s[SxRuw&b%V/%
U"Ed1(F:4dqSsYthxh&RE=G-M?Jh_Vr2P;0r0:f7(5o%AfMU*DU8o8#P1w+k:j/4T
U"w,.YTBVRI;/Y8CFFD6R9v)n1Qz;)8JiRUpL,*0gtog*-0R)u%p()/%%%%%d%fAD
U"pGf5i'S4%%%%4%%%%.%%%%hkt%s\Sx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%%%-
U"%fbADG=ME\m)#%%%4%)%%.%%%%h%kts\%Sxuw*&af/%%V-(Th0vRataNqEwnRt<
U")1Qp)j+gP[]=rEO=He+kQh*(bBBsB&-xuy:xG+pNkEXyD-'umaXKQCOya:&G]p\
U"dJa()b.7v^p#'e2R76j6L(+.up%()/%%%%%%;FADGtf5iS%4%%%%4%%%%.%%%%h
U"kts%]Sxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%I-%FAfDG/%.:0L%.%%4)%%%.%
U"%%%hk%ts]S#xuwtAcv/O[U1hx=*h)HoqVCGSNX:^%fDnR]s8oRM1aE]D:k,0cwa
U"&[N6v]'HsAzWG-&j,MJ/<w&(QQ,=27AQfO;y2j&/eLD6rxX.l;S/PscbYL/((Ln
U"\VSJ2E(cc#mxpRlQfEO4xa=)Q+#_:Gfn8Ql:?Bw9ox1&%up()%/%%%I%%YAfDGf
U"5-iS4%%%%4%%%%.%%%%hk%ts^S%xuxE%VWYE%EVZE%EVZE%2/up%()9%%%%-%;Y
U"ADG;We,F&1%%%&4)%%%.%%%%hkts%^Sxu4w>bf%/%F1a(h0w0:LGOtLxHo.K=au
U"Q/;-AEJXnxtBFjmXJg23B<Et8D2#od)dgq*f%LaE%o?eE#;w[14*vCh>0e.uipK
U"L92gx>S8Rpjb+/t1QpAKUorcYwn>l05u%p()/%%%%%d%p_04G\+\&94%%%%4%%%
U"%-%%%%ywV%wSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%%%#-%p_'0GG,310H%%%%&
U"+%%%-%%%%yw%VwSxRuwfa.f3OE71)hKEwPL'saQpx]E)8Ri'TcA,$D)Flg)sbsm
U"t/)(u#rnNJ=KPC)1ig/suj.8N;_<j'4/?HaL'KAm/_O;Of2>).pRyWHv;oK$^pG
U"Dyu[[YOSi:SHx9f8E:',u7bwf-rrZ0BvGF8>3A#2*l?(u%p()/%%%%%d%f_04G\
U"+\&94%%%%4%%%%-%%%%ywV%qSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%%%#-%f_0
U"0G^d0qkC%%%%&+%%%-%%%%yw%VqSxRuwfb.V7OEI1)J6'u(tEXw9tNS5<[#L.72
U"puFGIUL7Asklof,AB9=r#+Xuu]Uo$GAaz>cE^lb^pQi;3h-AY;q8RSM=U<ZewPY
U"Zpef_f*eqwMs3)W</aNwu%jCUHj%1/k?w(y2Y/fO,&ooi(wq%Usup%()/%%%%%%
U":v_0GE\+\9%4%%%%4%%%%.%%%%ywVw%rSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%
U"%%#-%v_K0G2C-USl%.%%c+%%%.%%%%yw%VwrS[xuwf&aV3%#E-(F=8x98Y?iv>_
U"Be]-AQ?8e&*op-PdOteb3k&nVAsGO-lO;Hjf3lmiHKUiYb9HUgTr9\RP%RMuG78
U"e%=,up%()/%%%%%%:k_0GE\+\9%4%%%%4%%%%.%%%%ywVq%rSxu%xEV[%YEEV%Z
U"EEW%UE2/%up()%9%%%#-%j_K0GZN,cGk%.%%c+%%%.%%%%yw%VqrS[xuwf,b*/%
U"[E-ip;oNi8t9at8(R?0A[sp];T^r$lkYC+K7#N#.\.n]?7'G53ujnjW:Amm<KYP
U"[7sw'Sgj#o/w$o1v2%&up(%)/%%#%%%xGe0Gf?5iS4%%%%4%%%%,%%%%g%qVSx%
U"uxEV%WYEE%VZEE%VZE2%/up(%)9%%#%-%x,e0GOTO0)1#%%%H%)%%,%%%%g%qVS
U"xRuw>b':.%F71)x,$PRJak$sJllZ<+Q_T;5u%)*BWq#<66$H\W7pXfVKbsTkp\(
U"3LS089S(=f<%X\+PE,\lE/NdRq<,E5O+YY#I4QSxgOh-oIXg$f1S[rACYB2>xc.
U"%up()%/%%%R%%Kef0Gf5-iS4%%%%4%%%%,%%%%gq%WSxu%xEVW%YEEV%ZEEV%ZE
U"2/%up()%9%%%R-%Ke90G6F.#DC%.%%Y)%%%,%%%%gq%WSxu1wtbv(3OU-ahxr5N
U"<]o56$8jVrw_g:4_v8k^'t*O5]/>&NGz],5GdI?/NJ&kALo,.t_?/M^uWAVI=)h
U"cC_Cd#C#$wx3>amdnHkDJW>;oU=OK$Q:jc\FK_K7$_E&ak=9OE9o$$u)\ix*k=,
U">u,&=up(%)/%%%%%%TGf0Gf?5iS4%%%%4%%%%,%%%%g%qXSx%uxEV%WYEE%VZEE
U"%VZE2%/up(%)9%%%%-%Tbf0G^AVsx<#%%%O%)%%,%%%%g%qXSxRuw.b9D29ER1h
U"hd]3(HIZClhUYIb$$ns9a>o[#T:qskO^>>Qo(5DGDR0k5VRgZzj0.bbh&icoCd$
U"I4[q82^I9Z<i2y2&uPtG+LX2Z?#eJ3eN]Ng/HZ%CTK)_t:2hP_a8iLY4bxf'j#:
U"u%p()/%%%%%j%%e0pGf5i'S4%%%%4%%%%-%%%%gqV%rSxu%xEVW%YEEV%ZEEV%Z
U"E2/%up()%9%%%R-%%eK0GW6%MSt%%%%.*%%%-%%%%gq%VrSxmuwFL%V/%ER1(9,
U"Ki4LQX37x<'gjqn+G19fGI-62Z'afrs_eEr/'kA$lHN7NRt7<p*gKjTqK$>V0Z_
U")3*uWUq3<R(kdQjoI-Hwcz%\up(%)/%%[%%%OGe0Gf?5iS4%%%%4%%%%-%%%%g%
U"qWrS%xuxE%VWYE%EVZE%EVZE%2/up%()9%%%%-%<Oe0G3w]S1&2%%%'c)%%%-%%
U"%%gqWr%Sxuw'&xf3]9E-4FTRDGm'$ev,>Tzn;&70p1Hwtyk[d]lTQUTSMY('9cu
U"2q^/5p,C>[#C8j%U0W?--E2mxC,AZOo#0RhgTeKe6E,6L$]NJxRMq$p8AnS;?_]
U"s$7;W&Enau%p()/%%%%%d%[f0pGf5i'S4%%%%4%%%%-%%%%gqX%rSxu%xEVW%YE
U"EV%ZEEV%ZE2/%up()%9%%%#-%[f00GPa1pi)%%%%)*%%%-%%%%gq%XrSx7uw>y%
U"f/%Ea-4,vT:LMpZp8&*I)R<qnC6,Q5;2s4Gx^h;XPYn%ObK&37-40TIMC5y#Rk0
U"aFTp]p.LnjaYA/;cQsjFUi<oq7I[A2&H\^b5[v16i:&gkq%up()%/%%%%%%a.f4
U"Gf5-iS4%%%%4%%%%,%%%%ir%VSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%%-%a.
END SUB
SUB V2
U"K4G:u6dl/%.%%F)%%%,%%%%ir%VSxu4w&aV+/9U1a(pgxS_L==YU5x6[JZi>;3a
U"5A$o_hAY86Vf_]p/_2Uqi,3Msaz)5Z4kTO8m,s:RPp*EBWL^ht]*T,[]z'r:nje
U"m7TBPy10(Hr)^E>t),vtPv1i%'up(%)/%%#%%%PF.4Gf?5iS4%%%%4%%%%,%%%%
U"i%rWSx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%#%-%Pa.4Gf#_d',#%%%K%)%%,%%
U"%%i%rWSxRuw&a9:29ER1(xdEQP6oXIlH%'.yr)*8md;dDsEeES9^_Nm#z8+Uwat
U"4FET=&3Q,AYS/3A>?xPnpy7-EO%EKG.=Kxwg^ZDoXI[/Ytn?K$:]'$Ug<ukS37<
U"+u%p()/%%%%%^%_.4pGf5i'S4%%%%4%%%%-%%%%irV%rSxu%xEVW%YEEV%ZEEV%
U"ZE2/%up()%9%%%.-%_.T4Gph,?u^%%%%2*%%%-%%%%ir%VrSxmuw^K'*.%eR-(9
U"-A?,lWtTlHo//Ne62c>SYnViF<FyA8CR1i/O$4fbK=f$fipLNYXP%Hly*ShDu%p
U"()/%%%%%^%e.4pGf5i'S4%%%%4%%%%-%%%%irW%rSxu%xEVW%YEEV%ZEEV%ZE2/
U"%up()%9%%%.-%e.o4GpM,vX]%%%%3*%%%-%%%%ir%WrSxmuwNK'*.%em-hJw'9B
U"AfhZjN/9d9=W[,n8)hHTKH3dE/#LZG$jdBEx3qHkaH3(9dJO7%=)&Ldup%()9%%
U"%%-%7BM4GpicW#%1%%%%4%%%%,%%%%irXS%xuxx%UWUvd%7/E'D*%u%p()9%%%%
U"-[%BM4LG*(g(SN%%%%--%%%,%%%%irX%Sxuw*6dp/&OU1iipQFis-?/$LdjoQLg
U"vXg[>\JVE]DKn+SdWt?;</dNk&#MU2tD,1^](h*ooHT)p\JU#VmkmYA6wdC+]?V
U"]k1r[*SHT\4FH#5^Q]xt2Q/A1o,.3)CuIRij<O%<SrX_MmJ)Ca&*2;mB2$B;mC6
U"uD+l1(u%p()9%%%%-[%GM4dGicW'#1%%%%4%%%%-%%%%irX%rSxu%xxUW%Uv%7>
U"/ED*%%up(%)9%%%%-%GFM4GQ-^;^z[%%%T%-%%-%%%%i%rXrS[xuwV&dp/%[E-i
U"p:fFi-Z/au6;ZEJ4R<^K;Rg-_p1XqcO.^f.2I&'xYeQsopoAfeAtAajGKs47_Kp
U"Y_<AkV2Q0vH^0'dY<&Z_^Tn5&pO?:cJR%%up()%/%%%.%%E#T6G\+(\94%%%%4%
U"%%%,%%%%ri%qSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%%%.-%E#06GKJ5woU%%%%
U"D+%%%,%%%%ri%qSxu4wFcv(/OE5jixRg'Y6oM-pu\0p9;U/JtARMp+(D#0]q0.Q
U"lm6(;Z=gh7g([8'O,=2C8i(W#-(yU>C7OAL.5O\kEX*BMcCRQ_XaWemIJf?coJ0
U"33UbJjO%]'=(?;EH\E'a_JOdSR,67BA/:;Ee7Cin/?4-.R[B5+L:z-gz-co&u%p
U"()/%%%%%^%L#64G\+\&94%%%%4%%%%,%%%%riw%Sxux%EV[Y%EEVZ%EEWU%E2/u
U"%p()9%%%%-^%L#6^GnAF(SO%%%%D+%%%,%%%%riw%Sxuw*.bv/&OE5irxRgY76w
U"Ia6xFQ)uVVKC_hMC[Q#5El?U_O*VV^ngpO_9%FvkJB\B<+[CE1ApI-q^oCz_af.
U"i$S<HP1h4QW$2yh>eXv;ldSP83:e;B*gY$7?FS#_R(xg;g18JD[f?%E<KBpqMRX
U"pdTtF\-IoC)+ADpA%up()%/%%%.%%S#T6G\+(\94%%%%4%%%%-%%%%ri%qrSx%u
U"xEV%[YEE%VZEE%WUE2%/up(%)9%%#%-%Sa#6GI,ZO6u#%%%o%+%%-%%%%r%iqrS
U"[xuwf'LV/%[E1(9G,i4LnQ37x)<=S23Q1)6/+_XlD2ccsMeV6*i<?]B-fZewh,<
U"\Z+-mQt.IcE3_.8.nX#q[4SH]0Kj63HH4<)pO(,SKu%p()/%%%%%^%W#64G\+\&
U"94%%%%4%%%%-%%%%riw%rSxu%xEV[%YEEV%ZEEW%UE2/%up()%9%%%.-%W#'6GU
U"7,Lmy%.%%o+%%%-%%%%ri%wrSxmuwVK%f3%5m1)949=Ds)=3Wx[2&$9Q'43S2gn
U"2C*BSQLAjRLAQJb3^ZVY]GD$(oGPRhdBfE]0TxKo]n5#\bogrx1#)5_ljY5/QJt
U"&1huv*)Eup%()/%%%%%%;I$6Gtf5iS%4%%%%4%%%%-%%%%frrV%Sxux%EVWY%EE
U"VZ%EEVZ%E2/u%p()9%%%%-g%I$6^G_Gs&T$%%(%d)%%%-%%%%frr%VSxu=wNKV%
U"/%E-bTZbi#3CfRHaulBD?8.Yj7W*7KjlGyJxY-KDkI>jg$o9WtN^+-_YDDad9*n
U"p+A\L%%up()%/%%%I%%w$f6Gf5-iS4%%%%4%%%%-%%%%fr%rWSx%uxEV%WYEE%V
U"ZEE%VZE2%/up(%)9%%#%-%w,$6GI8Je7V#%%%d%)%%-%%%%f%rrWS[xuwf-G*.%
U"[U-iJFcY3]\oF]xM9E%%[^me'YH^$ztx%8q-b>ovb+P[h8G\d3+P6G&%up()%/%
U"%%#%%saf6Gf5-iS4%%%%4%%%%-%%%%fr%rXSx%uxEV%WYEE%VZEE%VZE2%/up(%
U")9%%%%-%sGa6G.(Qy'h#%%%4%)%%-%%%%f%rrXS[xuwV&aV/%[U-(p=gxY8Z3bt
U"N)%?Qfhy#A2'BA7G4loi%D42/_=\t*&$m'1u1<*1z0Wl*c\9O;oh3Ze?=VIdA&Q
U"0up%()/%%%%%%:0z6Gtf5iS%4%%%%4%%%%-%%%%kfhj%Sxux%EVWY%EEVZ%EEVZ
U"%E2/u%p()9%%%%-d%0z6aG)uR&ml%%(%J)%%%-%%%%kfh%jSxu=w^KF%3%E-tTZ
U"g_.B]Q+>v$8><:oZ*AG]2e-8j2[\sms8bv/zx9m%Rj;v]13N;QB]+5F$6m=7fQT
U"fXRlkq(#m)<nl&%up()%/%%%R%%6-f;Gf5-iS4%%%%4%%%%.%%%%fr%rXrS%xux
U"E%VWYE%EVZE%EVZE%2/up%()9%%%%-%<6-;Gbu=As%a%%%%/*%%%.%%%%frrX%r
U"Sxu=w^KV%/%U-s(96Y1DKQ3tLxT32ZRt.4B+3aj.?B4(Rp1E#5ra+Hb1/rK-$F9
U"G#Mdl3BnpQd-_C*%aup(%)/%%[%%%pGADGf?5iS4%%%%4%%%%/%%%%h%ktsV%US
U"xu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%R-%pA0DGRe/J5;%.%%Q)%%%/%%%%hk%
U"tsVU%Sxuw*F$v/&OU1hox*h)pH;t*l$8hqE\;m<8k-w9W?aP_qe)O^^,2$#R#od
U"mQN82xA(6X'Q?760ao][W,C0gh&2Q,4A97?drPJS<6M_8<Q0U7+LM?879Ou+:[W
U"LgvdI.<_c/-tl0NB2,%up()%/%%%#%%9BfDGf5-iS4%%%%4%%%%/%%%%hk%tsVV
U"%Sxux%EVWY%EEVZ%EEVZ%E2/u%p()9%%%%-d%9BDUGIJ.)QX%%(%T)%%%/%%%%h
U"kt%sVVS#xuwl\bv/9[E1hx4,4RltwwQlWX;a/e1mylbva?L-kSJp3pd90oWg8_W
U"kLep6Eb#?2&VFJ:[RP[[pk;=](<R,BaCYw/U_'v)qwF9223g<_ut4f9bDi1masU
U"okvFoZahfk^bi?nP1sUV$K*EyPiCt'%9NsNBmFBi:9;#rn*\mYq7-Rj%%up()%/
U"%%%I%%]CfDGf5-iS4%%%%4%%%%/%%%%hk%tsVW%Sxux%EVWY%EEVZ%EEVZ%E2/u
U"%p()9%%%%-g%]CDFGl3X(A.%%+%.)%%%/%%%%hkt%sVWS[xuw&[xf397U-3T9bD
U"s*HLpd=MV,[DF/-<1a1:%f)+BaD;gTJRCw%2$WQxrjj$+a&nRDj[a?2iK?C(Nn*
U"Yw[Lb*OO#P)L)US\(jBan+Kg+WH^jPpYJR+Q-dY,r7up%()/%%%%%%<TCDGtf5i
U"S%4%%%%4%%%%/%%%%hkts%VXSx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%[%-%TGC
U"DGCG[=cK#%%%?%)%%/%%%%h%ktsV%XSxu(wdxf+39E-94TRDhGQ]p=dG<7nDrDc
U"etvxMdGiZt;YkIK<9E:hqO$Z%*p>I.76^hCMgUeK&J7evehfY)AO[*;b%G*kKvZ
U"TxgBtf>Mz&j&iclt>d$l\$T/TuHP<H<xB3VF95cxvUgU=DxKNd:GQVM\0B#nzq%
U"(up(%)/%%#%%%eGDDGf?5iS4%%%%4%%%%/%%%%h%ktsV%YSxu%xEVW%YEEV%ZEE
U"V%ZE2/%up()%9%%%I-%eDBDGQr3.%,%.%%n)%%%/%%%%hk%tsVY%Sxuw'&yf/]9
U"U-4a4s,8oIhjvIt#tf][AK:&ZEIK/uwB#Y^F.z-P^'k?GbxL]^yi2eQhik;C;RA
U".%PBiYav*(o3<]Rieihk%2mV/V>UTOH=RMoQIT]']xdgx%'up(%)/%%[%%%QGDD
U"Gf?5iS4%%%%4%%%%/%%%%h%ktsV%ZSxu%xEVW%YEEV%ZEEV%ZE2/%up()%9%%%R
U"-%PD]DG0m6:-B%.%%p)%%%/%%%%hk%tsVZ%Sxuw*&cv/&OU1hox*h)aPehcEr>[
U"UpD]k3,u[tv.q?a+ZTVG2j>viL3]F3cb^g$;7XKCV\7hj7]'<P8<\ZhDaUjF[(B
U";dpn)VAdK)aM,_A1[?4s5m7\8F8^R3w01huxx(8XuL0AltO'.%:MF+g9(u%p()/
U"%%%%%d%*EDpGf5i'S4%%%%4%%%%/%%%%hkt%sV[S%xuxE%VWYE%EVZE%EVZE%2/
U"up%()9%%%%-%:*EDG^i+'*%m%%%&<)%%%/%%%%hkts%V[SxRuwf_%V/%ER-jpo1
U"$GS7c:lD&/pf\QI#(fV>.uk:j?Maq^>KDb\*r;g2)-KM;t9IK0D^iWVr,\UDYkN
U"5At(tYK[b&1&1%up%()/%%%%%%;1EDGtf5iS%4%%%%4%%%%/%%%%hkts%V\Sx%u
U"xEV%WYEE%VZEE%VZE2%/up(%)9%%#%-%1GEDGMYaNq##%%%S%)%%/%%%%h%ktsV
U"%\Sxu4wNbf(/OU1O)hQN0a89-Yshxh7=icKl*MGj]+)Q\Q='tePDr>;,i%HB%N>
U"3&XW>b/Nm]7sp+9Wg$fIEA6bj/MoJ)1_?fApXEkw+0ekgl:k&<ZY]m:eE:(,OlX
U"b<?lO^nYoj#Yisf:q\N&?,up%()/%%%%%%;fjDGtf5iS%4%%%%4%%%%/%%%%hkt
U"s%V]Sx%uxEV%WYEE%VZEE%VZE2%/up(%)9%%#%-%fbjDG+AP9IB#%%%R%)%%/%%
U"%%h%ktsV%]Sxu=w6Kf(3OE1X)94XbNY.Iq_cpxHEa&eo.=-cA48SbNK<W0M,M]C
U"b3WhVA[yPXrT$ood4*]Uti(MF_7BU,$n6ZoJx+&'>r*AFu*m:4oDHZ3M75/.cf(
U"ttVc-i*0IScUP#C2\6Vb*^=:rcB)2M;#%up()%9%%%R-%S20JG1TE'e-[.%%?T%
U"&%0%%%%fw%hijr#tSj':js50e+8&o1]M6K%qg-&BMkeiFi=1YDltix,diuCb)&;
U":d,gL-t%TfP(zNVv*0:JQ'VG>oZpnfBo0P+f30z=pZ4-d2+PYuudN;sTLjw^QNN
U"X2L/O*cYKldFaU5?4^HH$d0QgUBno$cG23$mJS8Z0070(FSmKm?asc\\BY9xJ5V
U"uAt1Sqq,&Jo'xJ'N_7&2E-zF)I3K[AICZiRRMid?Cu?MEjJXR]HqtgNargwwaJq
U"wicDaGM0i?AaG(n5Tbc-*F/%EI0$s3Ps:\^0A<u'#HAc&&;\Tc2**F_DF[FpF-j
U"FZDn.Fn1,ibT_9dsK,C+:mFg%]O5KkU)ds6H[zmjyt7d)30%.9H7Or)Q]9WjmZ2
U"&Hi1s]F</v).hX,.nt\JhIsk\CFtu,YV]ZN^)rAxSYyI^pc4mig6[)j$+vPmK>K
U"WgWHPpDw1]#CCL?s2oSh[c7L;qcA)0.,0g\QTL;WdQZ&WRr(pi<\R]cLVKmt&Ki
U"BR-D-Jg[xo4e)x&eTYCMhPid&>bnrn)f)Os*)k[,**kS(,k]*M539ei.ZIkoq7y
U"e%rSY1/WoZM#&0w-jJ*6Dq0-fDM0JM7g^O)M7N+b9yH%$?Sj:cQ4NSXNz%V3p<I
U"Ps?<:QtDfr_PC'Z3Vjd<nV$EYFxTd;lt#zkSgdqGAV_Cm]AN6R6tU&'Sq3+snK>
U"h^3:vV-X]%jfHBmngZCiwrIj$EiV_i^)-LHcE][r&HR.4pJLF7n76zHk-tKuNOt
U"oK<EYTO3.2:mf)%deH%PJiG8NNouTi]\$*Ju]iU5AZI(i^)8I5qHRWj_Su0+FC*
U";1zpEmd;cgoW\R,9eCmKHXsu>kz^DiHk.0^K;YwsoLud]WST&bS(/Hcj9v:j3TR
U"'3Uc;2M0UY?KUqRI&0[4$)oH_K[^58JqIh-Oy-8>LnrevSdlj_PWQt2,S:XU&Q8
U"JHWip)(bK:Ky$?_>y->Dm-CUr$5u*jT\TrQaQhGA0S_E(_-mf[:LOdBF(UuP<jD
U"L$jVz1;n4q0a1Yc$Q-c8+E+5?votQ7k>G(CiIqM<ioLX=,h\YS/TCSPjhyYeCt=
U"027GawQML%ut3Y^]-Lrj+SfiqE&x%&s$%KwFnn5k?tN;uHvYoqz+XDj<Av'newY
U"(29N4LO<U)+]&;7DT^/8<MD>0D>z?Dl$\T07ynnTgg%D6qL+N.rq9V-lcA8FGCm
U"Yo-.]2aFY'8ie&4b2]s>y6#.zdV>ibVeYtNL2*VVriq,\*xW9Q<TbwGBTPN9+N#
U"Y<BMg/L;%1#gAE9bWuv,KHeX/l=zef5$.(aYPD'gl5xx^e\6Hjdaovj:s7=e%zo
U"c7=y&lKNUv1(vDAWNPf72=usq7B&CJPA:inb=o-*MKBuq\#hn8j*bn(?cFm0+]d
U"i);()<Y[6L8S.9Lqx;Vlg#%H:i4i&QhCE0I[1FrY.'Th[YGa-c<oyp<R-C0w(Q3
U"oNK;]/P_T<5$i*IJ+(K1O%XsIN,FIhFOb>W3&ovH=Va)IZn6pm)LWRteJ9P,.).
U"D6P%&l5Xp.jW4)PSm$ZR-d+)4k3OG9\$A,8GSKke)TCAs5M#;-/fYR;r4I*N\V(
U"Uf^iR%>a4._W0_%-&ta^Kw>[1YhW-J34=\\g/FJu[=gWH^UZ/Y\2$E&J3tegbmQ
U"NXTMT/)m21UM9Isa7.N&'Q6Beg7Ou?j97[%ZrUq-'TRs2-+*o*BO21i18_l'xVP
U";:A/l/3\#0DHz]OF6oe/^l;Bn[_AnSoc7O;$?-^a[Ai5lL7xqIG#)TS;MBHLn0>
U"nP>[lNkfcZ()c\0tjI/buIVT_CCIpy'eQnxiLh^R9<pKYlm[+4&yIrpNH,9j-hf
U"_V\,mjOnXc%o*a2vrV_)+baZJQ)XE2E?pdiZAmCI)A)y$PYbIl%*&^$?S&L%RrZ
U"3]1r3RuPkBeu_U8xB]5JN,qrep4qfs_#)KF;_=%lRM]Z[5PII&G8-kD<Z5u&86g
U"5/*.z(cD:W:$D:.M,I;Mn7[oqW#y-0f)(g6kIsEmA\,z(q%Aqu$BJwXmHVp1A^:
U"^<oo[f%=np6wMgOp2vs[Cn]tG692;Tj<+u6I_OC?/MTl(;OunmhN4thc%QrcT*F
U"&C35xFX6eE:D\V.WgaQfO9FC=pQTCaV^\:CP\J+.[kD'X>V+h-Nq9\URhn\Ta\h
U";'+'eD,usC^'_d-x$T_SF:Xfh?_FFpP-A^.3\h[:kQs6vXv\Ma,4N?8P_)_c.NC
U"8c2eEJxSgEP)Gd+BJJ4oOcuFu<L_qW<\L5FeG=W1Nl%$;<dkdiNum7YIs8]e<tW
U"xe#lCac,xRgr,MuHq0leh=DuP^+sHaUIH%4[_yxeoe&dCodFT[EL4ib6UTjfm;<
U"IQ#j7*8Vs4-h6.>MHYdA$uXlwL>jbNeVxchd^x(ry#H\xQ.Quvw8CoN6vAu%,,5
U"Z7n,ntlvX[-m<d_.FL0x?;x8WZw4XQ?(O4WOLovB-a:H4I?3u2P$lzh#n>)WB0/
U"5BOZS?o9EImyjRs)K*LVDlK#yw=R>vRx(xY65//J]vAy_,pb&[zK6voPCu0K94o
U"6p_ZpECe/l+'5CdDFKQ#T*N(DYm,::-K+5h,(>['m-N4;VoXAQqFPm]4E%M2jy/
U"&.QeuO&')06ux44_QgC=6M6J>J+TDrM5jAetP/2430RoaRe.kY=N$)0'Q[l86h6
U"aSl?x'YSCs:On27y'p.3Ya[h1'(=F(7fG&$LC^J%XTD1OASdCotrY>mTcp*/#ZX
U"1&T2LSv-8cFan]Cm%\]YJMmNff(].JJkW7j/8ZRUD+A,T;*x<Ml5]:B&/XKYN-N
U"\Nf_&'KHX']*<KO;P$H%YATX+jBlwtY,'M.A'n=(=4m5F#\2>R+ADPZHoa];;Z4
U"TggLt[lm8gRmElt=gMQ^_D.fB7_fW:=xbQExvU3#07mcc:00WgD>H;go*mTafGY
U"kWrI:Oo/jDeNOP;9Xf8JyI6Y7jf+kXR'kBh6.4GBz'mYV9(0;-JkkSu'Lwo_ITt
U"2P>3Io]iG++'#S8YCw9%T683-\psIv2dl#]KiQA$RtUWEC^T\Am+kg$,H7.A7ZP
U"3C0zisB(e=3X5i)E/n&1$1ZQPMI0S?g3ked&s?ESF5ZR&0hP&daw'CC%rSbsDQ[
U"0aM<d=)Cg6ofCZ]JC*38E6_f-J6<NddnY[&8EF1kpeXdsakUjz_4uFBHE\*WLlT
U"*JrBjCF,ogEEa)q2U)>(41L.#$W]B%3Gmo%6Yf^-tZ^N,eMYq=R:W,,x64g2gyM
U"bjFY]w7B?X_KwTHf-k(tENhJ=8lw+pjcV\DD12)Es&Js#:R;:Oc$Pcl_#T40;1)
U"ZfBn,[1Er5KDk+(D6?Pnt3SNp6.5t.oU+%LH'NsT'1._Q+^5>q4iDdP59AeJF1s
U"s]xhnbWPHwaA*T[ju=8A0:lSFr^gf_#<y<Tm3FN6?TIqM=n;.FH](<p+UY1dn_\
U"uWZ52xc/fir?mKd.Mm6/Nu^\H6KS92C5JI+rSG8:W_J&;2yVfpcGQ?R+lT=yH3E
U"k:N60SquZ-5]]f(9#2xn$6A^1g8)aGr-,fTUvKEHc)KsumGLi+zKF2BNPuD.3(1
U")p9''DY1m)d#VyR2#+ru-FC<f_-iPEfIj\RG\R5mECEPAu4uVb1=-h2,R3AQj6F
U"EpX%>$J1t_5O9lb\hot-g(()9P7=cg(dJu3xE.QvR8Ygj]0\8]iTIZ#)WuAD1l*
U"T\anm*?Pp0'=n3\c+bW=6jqzbC7UA=];k$U;clAm93y'p53CDnu*NBEhnzv<7$#
U"W^<i)Yr\R\(W,Tic/n>S5D$YL*W0P=pY?aHNPE9*%>jF5^<T4+WDliG2w+1VX*A
U"ic0I<Bc<m:<QbAn5Ne:j>ZD>Jyd&^\Ry8Y-N:#.S>15I)G\1\6laAR]_GO%:''%
U"R<n_o5HEVfw_t]F=l:gTZq-'&&;]RH+P<.X$5CJ[Q(M%JW'NpuZ[;AxabGa]Ppv
U"orolWK0&gZWdwfhT)YItk'IpiteBJUG,>bOuDHj-xZ=MdA/s[d[7RM6P'\f6ErT
U"<=GR0l+]^>$t4TekrPW\rupr+7L+R;6C^4H?6O9oc(7/'qF=*W0B*nQSUEYbN]T
U"5IpdHWH47h6\PK)+kR_&3pLZkFLJaSkr&9n;t#g;tm_az)JX?gNU<Q\.)/7]%E=
U"-Q41i*Bon7[rKJg%zeB-f\V[U(CF3<BuF,Z/oW3SePt/hA$P(gJ)D/H;Xf1sBMt
U"W;3w7.fK6;nL,b0L:oF1x$%BAg6%fp30pT;fj3pZoX)#.[etP%KVIt,#FkC%;6x
U"c9KID$4s&=_ZncXoO_Z3txw5+45:t*n:]<XROGRA.>aV<Wn78:K,7-M:(OBhs+p
U"hl64nA_eFf-[/uM0RYPiT[2Wl]0gt$f_T,2MkDi5se4nl35\6#$LeU;eAwL?.3(
U"zX[Vg/:Meshgqo4oj*rA\JErImu)&0VNRai'-34ywe_8'xAc4^g2Lx]>YhJ2N)B
U"e$)c+#D-8am:hAL>Hw[%7Ck,g4G]H-bQs.LTrmM)>o7BL9%qmZ45WKku+:hm+jU
U"YS$scI4Se5/6k9vv\,TYiUp&a0:hbD];*a7*7R9i%g4DZ3Pdd;mRf3mAmL/sXK_
U"+:['G;uaJG1:%#^,bv7dIqaH9cvU=8'6prQV:*:2jCDC%lwp%42:q)F]ZVqq%w]
U"%J2Qqi1j?0oih;L:Y6I?/8xJs]$Lnf96.<jPmLtF\WByKU>-sUR8p7$aut\M?pW
U"uJ]X,R,hTdKxb''Rq'Wgy[WKBSBAIqKFuwC^6ZpXT>g2otLT>V;&Cm7gz0P;H$h
U"WaoLqI=Dqm;mW)1Xm+F&%O%r0Qw%otUuG]+q_hgNQV9[KWF#9]$VnX+/xP:*'Az
U"EF=+:g^ivX)$*JeQ2X'vctbj-Ukbs8BEL1<L8jkt9\po7n5;N5ai9%?-8*V/['?
U"au,,J8L;d/<$i:%QB/^(k0-:5-9Tmb1TSX<Qrg<lYKO[e4X'/Pt\%JF(KSpEAlR
U"\AD2spVi:gYl#-,sA1eeG9dradMC3IUaU&-Q;93n9H=fF<78R?%Sk%Wsn9EF3nI
U"_A,-Fz=_oEdx;gEec<&nduT#=&mK'](HZ/+:Lm]=Nfk21Nm38LW1&>2,6C7W?eb
U"\Fq.qdxWGOyh3y)-0;yM>4yn22y-(hn\xWT>=QyN$g[E>P&wZr<%fkqINDi,7oh
U"MtBwUupJ^&E,+)-R?AGDi=P_Hjh=_?1#TX4y*d<Op/yr0V6St3Z3FCcyODK<jD9
U"iB3CXAR+b.x$o(UbX-L7]VS/0;rRLIx-%WXWVFoqFwQ[P_Vm*Qj_v2D;^s2s]#_
U"1e'GpUW'n_sLS]E^KSHXq(eR?q(%R-JeAw:;XlK5B5+yd+BJxh:0%_S,--EPYBW
U"U[-m-yp=/i)/>Lu=6F29X:_H0a;5jqXm%;bf^sfi'&oMUmrc,*kt.ETJA0oQhWj
U"hc<cEZyrYg9Ib;YEp'W[Sb6$=;J^LD9aT6tYI5Dd>%49%)N%Z,S75Bdw&>3[2q/
U"CmU1l9/fc5eg0,OmbC^^&-+mo=1MwmjVD%]%5.Sx*a+3:/pFY2./B3WFCWsg>6<
U"<4N2uU,y;.3pc40eGX9I-vQdw?acOd#[WLccP/>2[MtU)LRtGDGFDFbtGL>?kG^
U"Vej/34lhe&Gm+v]p;Y\\';w:^XUP5;pd)OgGQ[-zn5O[*Jmh5wGa1uXJ(;o)Xd>
U"R[::PLLu3tW,#,BJ$tw\q<;0wG^Q2hLJ'$FRo;O\;v#*'r'9#jg)]#00JdT?;#Q
U"QYf^p#TtIBVpt7LAfnW1PU=W8-[C*MNmvf/DX+l'A>$Vj4Oa\Fko<4RZk496iE3
U"5&TjjU*1UgcPndS'koJ_+>^*l\&26T021V3\_l7kj4%%^O7K(70#iSgJ0PlLs.;
U"6T-6NU-/Un:IVew;L52^[yz:4+[_(pGr9Pv%uql1r3nY**UKaj.7u)CDu9QHHIO
U".z;$P)&aEvowac$jv8eX8Lvhil^$<D&jn%#R2OZ$A$T6:+15D+D>X-PDtKS.XO_
U"kM5pj>v0nv\vJnjl\[WJ+j%Kz5d<Ip_r'?Ec;qKuQtF&Q(PG<[2k*u%96P\XW7G
U",mpH-tk;2EiSbwJs>&Fs(cAm?:13#j51w-:^fHQB6&:i4<FIY;B$2t6RP6[>j,+
U";LRkdbsZX59W5/:Q%n0;a^1Ptaufs$nOTb05:dR]ZnCTe(&GDD'h43Pq2bKB\2*
U"uN;LR1lNBqvY7Emm&tY;7%itv/b1ZGMj?2K?Cac)Id=*qrfrW.1^Apb,4CcUV_R
U"EvfjxbbJ3f).Aw2)7V7ke#IxKW)Ifi';z*jSKrk$Dihl9qQ]MU.cwramwh\&gC%
U"Q6/AjmC\)ul,Ao9SrPFZ\m5Q&I+FP1x>aFd]PY6A8*2sS.9>?X%SiVL*+\XeZH%
U"eD;:Sg,Ca,n:$WYa45wG+8:CQ:svO_IM3h5Za7=,IbV'WG&UL0hLkRiP*#m7ky.
U"8FzT5?nH)Trao3cW'=b)jo)uN*PGalxpnfEV-U).[Wa#>e)1JuN<8*5jVDu-;&B
U"&N$&?NTE08w#_oI>a[5<*O9+3iHq10V&/KfPLw:'dfgc;S&6?)c/fRMBolLuxzm
U"jhq_C:z]u7ho>WMbA$YJ(p_IqF?M?]AOSH&jTuGIYzh=VU9DL$'r19EruYYS\]r
U"l;_rR%^\92*cOpoVL<=v,G;KGN<PAL/j2ifJi_R]RPX0*W17//v*L.ZL4Sw+^ET
U"9.]z2&PMigi/l#YzbJ)gh<?d/3Q[bPRaQq?X$$3o4CkA9fuQgSAf$,A#GJV2-,/
U"0kbLSqrK[pqFz]XAlln_eBLZOv4WG2>f)6hGBr)A*K>Z*7h*?+6gr8x0(vZWXQD
U"PwiJBYnyk&<iplrh?RttP-wmxMse-o7\jP<+sN,kqxMr+T/GcSW\Ec^U+9IC3Bs
U"N9v_POcxGYB0#+05A:'b0KK'z8<'1n][qS$ugMRCNM?t<D)9]4/Zp\yKS1x$8cR
U"st5W)Vs)l\w81fpl_+#R9Z.fG,8^GaZmi7,WVT0.B9]UTSZ]So#B?HJ5*J^R,y+
U"gq<3jmwA2r7q.k'UL)_HO9Y4[nkV=p#1wo8'bl<P2AhnG9Y]sB-02mp>;tD#(eX
U"nmVlNAtK+eMo(+tZl(ec\,3[Cr.s[FOW]SvY>jVt>N,n:,o[yehQ2DL9b'FHIX.
U"]$5\6GpOgHH8?SHd.<WQ5U7cV)FhGXFt<NrX#XBvLt=9)?l\_;GOVVg<.=f*?n)
END SUB
SUB V3
U"a>0cvnb,OT<%Bk[Tudt^$&_Hdi*K2K5^E;f4fUaRl?RX,pDYD.q=HSsf=t[/1R*
U"[tQwq8>tGKe]+DFsY0Hs]0.h_sla;-8V+iH5<VXICp>S6.C^bO/lgD*k6,3/Ocj
U"76d,_B-xSItxY6a4Gat$YSD6pV2fmY:EwxE\CmpLw:4m$b'oq*Rv'^?Yq3]5?wk
U"cUc8u[Y'rIj=E6:o&d_]ia(VpA*8JD?p$pSi3)W#Mfa*FeJ[NjuC%>L7;)PKv8I
U"k3Hl6wBmtHq$?9H8tvi8q.N*(#H\9ZKVydVOEM5p3[0<aQj+B36cWR+z<7b'jbs
U",mmE4VPehf\_yTVPcUO5YLsFCPF3c-^DEXEdBKTN%x\N\#Jvw#'3FqnU6]sZ:\V
U"UCO.$A3+=<z/<knJ2sASDF5U0-?\nVUF]-H9m:]J#FIo8eZF_^hL%R:>30c6Qy&
U"wY32<Kordmjm\1FRp<E^rRohL&V)+D5AcuXqsotCB98W19uSQhA6I?sH/AKaKSy
U"'[=.pARU2?(Gvo-uckrOLQYL9:5c)s\ef;mgdZ9)<(OOR0upnCM]Lw8eQskk+I*
U"mE]S1_UyStrU2.Oxt7g31dO6j_IxAhwUz?%:W1FSvR#eU\t?&nu4wqTXlON>l7F
U"^fg>G?oUv,f%iZDGLLQhd,q4,YSar?ccTqo9U?[fdq'Q;3()Mn9qRx)bGeTQ*b[
U"R#Fc4>J[aL_TH1]xo+<u'2dALSHsH%L2-LU*SEr2-z&VUw]I?F))4xa^6=]nQ^D
U"TlT_R=/#6cDvq0ID<TZJ71VR/o7Sp-:2d/i0EAxXm2.jjQ4dK(*=<\K5Y^:HY37
U"iI7S33?_7G3jK(2Y;'mA=He.ST?\G#>-d;E*3+5BLgq+]C-=&eKJ=X,HOAh\'PY
U"62/I,\qcg+:kbV4g1T/zq'Xkw#6IpE6:wFmH=%c0-cU(.NGzju19.HdM2'VM8Zh
U"gPV0^m-;3(uE>3]$2Q[T,IXH$,ReFEJ.-^sUP0R<hP25*jDt+N:\S]PtVi]A;7P
U"eFBn$LA:LS'Qod]ZwNm-t*cqF:YUM_-tdK-+PZ0VrH2I)?cD1,]gGtKFJXsABll
U"R;n+6%RIfmqXm+P=',Gba-Kp#K^X1mWRJ/G_v0<Zpnmd+d'8Tkfgq.0OM?L2;FX
U"6(5sY94;./.(E(;'oKUeS<L,.+^.ul%M*o]/b3tDl+>A7.D1q#eDn:KSccotNgO
U"T0;*3q\;2yP)Ke(g<L>x'vJ3KMbrERB:&&FCQ%H/V;b1E;yBVz('h;ot:ZG8[I0
U"L60\UgYoB/e](8v/inGEEFZ-e1e/B2jFh42Xo($R^urT2i*NyfM0>w_I2hJP/96
U"9XB&K\m5zv>$9SvxDN2e2ODe0)5iDo''(tG_0I9+zYh3kHUB+l<'\&2eDn;P?/N
U"$N$D)#>[Yb5'JOMe>h0iT1XWPp.<Uqu<)9b8&JQjkev3']Kker,J7;aRq3GD,J<
U"YG<;W8]Tzv\?dE-ejX'33HwoRc^]HqWTd]h0t3fgN&YbgIcGTKE+gO;AICQ(H,>
U"(qqS<>bL':.;d]6]\eiaQx'5mh?TW4Uq$19e'$O2kKs&g2]XbO,;/VC99j>UOum
U"ou6]J?Yk$GV:+h30*0Y7<x]fz:WJM]/K?k/9p+\/iMEacF?[\ok/-0]R\6V^Muo
U"8/-Xm8)pBw,x+4p]R#EyeD?+MuS$b1RQ?d1:7eUeJ+P1qdD^([=7B+SW-Xy(%j#
U"8TO%'ObCT.l0Nph-Zb]dBg(U9\/AZ8?a<s>j4FLX0rSCsmjK+L=04E\pz2K'W.L
U"I6nG[$Xap1]AJY75aKa<bAS;eehF5x\6/;-\Y+Wdy17);/:Ak#ba?GRLdwBtf3)
U"(h,]n-fR?OqkQY<r+?MBLHe]'aP+m[B;2sl#Zsi'3(Nj5]z*q_VRZYUR:%dP=n]
U"prdo7d1'u#j)lW&$7:7W[y%TsRH&40(*k8v*'.6z7C],wmU30Ceu?7MJP3cO&B*
U"*x%_qat*2;Ew9>yVZEB5vKN/dA<+E1;f?A)'*;TSTI?UA/SH#?<pe7J5-Kv,/1c
U"GCu'2Tc:.g39-]i]TB=O[,4egRCoRq06iW1WE$M[1Y8oia)Zrhs?\)ak5W9k>.8
U"D6G(wrF87GYN/lCH^5<M0pPi,b4mMkBp22m5P9H9DFxo)x'ea0]Md6b;_dQNH.C
U",r'Rhw7+UX?U0(0QA_(yA>:DfG587DL5m>'N.>Tqh2-jl'FI\/8wQ+8:zfF4uAR
U"')$7C+F=Bg(F0bTSs8o?ua$>\)-)CH.ak'd4PH]9]PBG$g.8S.e=E*\?)(]sD#<
U"J&.6vI;/<xgtYiH9W[.x-dsH^RSuk^ZWm^&R<p.:+\Tr=Y:Xi//CSH]WeZmYJ,a
U"AGRPF/)Vh[M+.60A?-.AVeRgd;X3W3o_fGhp^0;>^\se,4n1'oGNEHD/.+$TQZj
U"9G\=JJCqRr*4LQjBb=&Z=?/GZCM6,6*^T=Q2RQ2;gJ)fXyNRpAM\dI^D)mPvKif
U"iaLDWO[b:[\qpiibAtY.]-F^rks:*IUb#9abR8*1ub#pyJ+Nr^ZBk?^\]&\?:n#
U"AOig^L&Tw]^&Pu#gC^FFMn(jIb3xy:eSe*w3CZO?*HHlGfm5$^(]4q?YO:J/lt%
U"H1hr+XlUU&Tm&826A:n/OFXTk+gadLZHr><h\)aS4X2;?uNLag5lIKiE*K_Ct-l
U")>'_UBt;<*p(C^Coc%zbGeMrqB_kl&]wOQT%I4YZxGV+LwHmbZH$1pNC5'x[qN%
U"R]0a1#G>oDjQ]Hb;:oA]YG*up()/vWM=DYRLaz:&ZZFKd3H^r9'jff87Wi3:U,-
U"CKeQ6(j5)J?I^40BxFkghdFmK^6O*]Z.7UW$Q)HL$JM7]hMr[88PHe&[BF#.r0y
U"4f1Q<DC7IGjm=e:%>HcRr%uj?Ux(J(8HC5hiuYdwQ<BNB492E2<aNdf/(-$/^sz
U"e6uSC,qSwX^S9nKPE)-RM]msqIcYu:jsMdU/an:UiGg[;;r#05x;FxY(1^tGe5J
U"#-.x[ihe5R6h>vMk<Mp\5:sIH(-SDBm9$^8Rml46LYK:1i3O)M5qapALy?XAea+
U"L<5hRZIBc*h0[N;o;idR:%(D#xqK.Rb*+NQD^Jl=*PC[iLs*M&W-J(rPf2HpfNM
U"0_=?C.hqbdP$'-VV$c-bKffVDE84X_)GCp$x7Q>B<-L3MH+uq)]YNj9my5?,<(G
U"J,$?+h0Zxsg=0d;V2ohlB:]S>8L\UklGut3kX&m:&Oe+.0cv9=QS:MoC]BV=nzT
U"RDKW)<&Q0V&Dpo]P+'NQx#('yy;_CyR'-+DQch\r<XEfG-&MsPYu,U:&u/<m:]C
U"SGa'-i9.HGv(l]>-[()U3VkQ5p5x92Qbr;\kr0RoQN-x7Mn?MI4uiiU3j<LR15?
U"V[1'*eM$L[%0R?--(JSe.BwQRgMgu4'DnajSjLU-R$YvhO-.6PfF[AT$rw3+*$)
U"ms0g=F[,H>:o:tSiB)TC+:Y\ZJ)5r7F[nQme_Db)(wugqGKA_9S%g.DEqI\K._M
U"mxo(eIco)?Q6k\o*wuZj7dB^0qd8OjaAqeXN376w2<1xm?gMTC(SAb.4Na.X$&B
U"qTj>j#iTx;tF1W1=EJK%uoJ3p>lbhu+L:_bw^(Hi(.<6$*(i-R$e7?ml;js\3=c
U")O^e+S?DuKB=Y)GS$SP'u*OJ*%u;CL2Q8=4*t0_g<Cw3O.E:oRm'ByQ>R$CPX>v
U"jF(#zE+:dQxg>y0sfddUGb&A&p:#yd6n[0OXeu7/7ROcaIBf7Qy3lgG#&(h3'V0
U"/N&,U%\48QX1?Dtgxr3iT*aQn[;H&AMffbY88eM$xo=I-otOb&q4lI3CiO-=iy2
U"HS*4z64Ca1T)S8i.LYC:2)NhLCykRS(8VIkpcQ<L#G'4JU/lEOb0X;BHRbAQ$fT
U"R%icZ$ILzaBWSL6$Hm6DTFI+D?^ZRY0hMLG[z[vh$Ym15SZgaAW3LSy9RZQ6qs&
U"(cz6>yHD,VX??8t/p[S%rX>F#<1Mf%VQcpeUy?=V_oD2/w[_&f94vDGAC^?f-M*
U"9=R9%g]>_ql^>Rm,%3RAl*A6?g*EH5wbu<s55T&m>8tzOJ=l>OD.gZ/<AX3B%4E
U"pPEXi;2eH,x=5XvB9qF=q%ZrK?01)pPKzDztv[ITtm]l2LC)3+gPbLX_wlu-%#H
U"_t=$tUFt)W-+Gq_+XI)/(=v3M;zX-PAk_q<A?3R*6nYhVamdU(C-PK^525Z6'i8
U"g4.q4V-q[&dL=GUc_[W&B,6ajhg5)0?0-p=$xJPgSRF/<5'XUdXliKiYpPn4IA*
U"lSgIu?^_.uG3MsD?)a9XrF&Y^l>:Q+g0f8Y-PZs';h-[&3g&OUQ7B.3CD#L)oRX
U"1_-:=K+j.xBlQkVc+Etd-ccaJtSReDBa+&'Ne8C*nKg9wN0x9pvV1z:.X3wozif
U"l;n7f15\Pt)O>6.uPCO<K9HAbc]ttDOp&p4n^*jQv_<gB:j=T.(cIKU2Qi0-NTP
U"bc:o0Z-G3=D7xF,l_L?=n02>J*1TpDGS1?TsP_-dp4.d26]VG4='vK=s4\rG%yI
U"#r1L,A$,O.Qb7-wuUEiff_ohN$>)R/f_1*&x&[S93uIl(Xc<i\RTfoSHE]]mZSc
U"gE<.%,F_=VQR9=$,N.phHX:x%yh^yB>#e[#cPtoqa0])nxp:usehq?&w;x&^yu?
U"J8]U$.S'Ouve5DD0tGH%hgeK[sh*JasjIa3$/7XhBP[leK\KFDP+j\'G+e>>&&s
U"</XSGC,RGE/.>tD01w0hG_dqTfCc1*[NnRn-ECNhcE+.W_=#4BX+u_.b6iO7Ji=
U"ZZ:gehf0U7U1b,i=j^Si-)Cmg_MLo1e&(a.rOc+D1xk9oZQ^w8ec]z92catM254
U"to4aOxqI&VrX?g2;Z3D9d.Q)EAlIzQ7k[86,^4neCI9Ds:w'k1I&,,1a<;)6*k9
U"M_D2/.bQF;42#e&#&mm^rS2:J6<)SYtQ<.J7&8Bf5(><LAGT?H9Go$?,IwRc(xh
U">V8_&aPNF?8*84+V2&e;ND>P),ePkg,TB.5''t;HktO8KdtfRmYC*'MObrHYvpA
U"V7:SWfWOX9v(h30;9'*C;rJDKtx8#$>SHL$SOGdxk>;Og,PQLm(wW2e4Y.K+mpd
U".J/d&6Gw_(s3*hi)AlWgb/#UdPq()wFv'oKUjmj4(u%>yS3xZYlh&%uK&QUc6_m
U"$F.(dtfScS/zBCC7)26)\R/IffQU-5dLig$l4_p;GeQTXn8(J*1SN#H'QomY04\
U"^X0[FQgQk<;BTmcZ[Qck;R(Zab,Z2leew5):%*Yg'_v(+1KcZBL_&A3(m82K>mO
U"e((%RmgNJ+(qlA$CIz%aBPS'(k/d9Mc)Z:m^X3[VxJ-*kanaN#xaEU+ZP)1$3jz
U"7Tls:-A'-d[^]1%C'q(Ex+H/$7Y5Yk(j=k)OZ\*ux^E[QC9o)LMY-ZNNU.hE%ze
U"tJ(e%)\+W<>:hdcE3N*k?bhK.98I&6$^:a&.N^mz$Uf.f)?mL+4(x'*Gi1XFpej
U"&]oV.ne$7B14Bha(KK['R<cX4%u,YZsf*98+^Bcae._6/6ra'WTZ$f3CR4ZpoJ:
U"&G:(^ewCs%A)IC?-)/yHD<$aURXOsp>X(FjTG6p;l0c-J;(H0Bi'=2QYK;.<)ao
U"Y7(7q+$PVm'mxg'XmHuE:aWm:\iivr94+IZ&smQ4X_Qr=A3n9x99-Hc\PVM?A81
U"_<uHu1T4QUCD.4U'noGtK]'k2xn]+pINH6dnNN:Hn$*N7_*b%<MkS%I'/Na)ppR
U"if3+j)a[DE_?AL*7)_G:(kcoC5jDVHGetV%lp&'+o=&FP.]QX5OKJ,[_GL2=B.V
U".a[J#3,4\9=MR0I[vTe0]%q5GTsHA'^rctjaml\-RI,VJX7K&8-J*nW?2'ouhJm
U"w=,v,j3Uk*5wm)q:glEpSAi;d75_Sqg_g$AR%V#^,W1$%>'l%TL$F?I2yB9?oq$
U"H1w^-PB7DwG/*gWpeKC'[fa#UOdyVd\gpVpT_]Q/3gFpT3C(:7JI+Mj:O+g9Gnm
U"AeE)<lJ-EDMy/I23$mt&0G2UHy)m<krO^sLZAjMk^_PH(/VtSFJTL:EJ9Aty39)
U"P9L&[nT=+:Hbv6g_Kq$bs7Uv)1k?lgj=+UuY5iC>K%/yBlT&phiqR^eTM.&n=fL
U"<Q?:Tb>1o?Rw>i8TkLRhJVEplF[Ra=W,$kEnBjL(feco<w04Ij&ILd[aZ0ZnZv*
U"r0zqei4cZpmZ^CJdP$$ee6G0aIf39[ms7bnztOVP.ZpK<uG\Rs#$FTn7.=lr(Nk
U"B-d5dc#q>?4QR1#r98aRDm.:qYMCBI1Y1[Ojg<L?jus[ndfPdL^,A64DiQ'.*hC
U"^sHP'0D&uj'&d(WKUf7N2>+^]P-Y[D>>2HT[t>neDqquDhggHwRIGr5?Ssr=g]n
U"idb2a$n8MIl8I4p5e0JYIA^Q^7<-M,/V9CV'&>>DLm$'k%=^/k?dO&PRC*#<8c[
U"?*&/zqqh)i+6:<U:peZ.[PH6\4Re2&3uoqeX>)]XtsISse.j>O7K9Od*SP\C+nt
U"uJqC_J1b&nXY(p)t^nsn]nR52#2Y<5U*(\Auar3(GMGZ-wsZYeMYPoG>-me;\Po
U"eohmWg(?Td)II+/8+yrH.ak?<CLscV*>ULOdl6^6TlO<7rWiX*7*ibc7LT6'.(A
U"ONbLj\svZ.s]\]>YB_&n4U?o4l>#7I'5cUuM*+q-/5LP?UwG0etvMfS77('X>(L
U"usd#&5Pgr(cfVRx*r/^3/v.ct0<u8YU&GDepRjPrrd&Zb8Zn?toxUTLuYnL8cWu
U")-oi.,WF,hoeI.GHf<8L_,26)5c&7SC(7LKgAVlNDI-lvc=h9azl<P6j799-8-D
U"bvhOQW0hbnbRBBE_<cG/vaL']n&Pb?_j\TYNTHY'0aBM.D\>bsKIJfRp1YVrtNv
U"xJ;nrdPr[p\TT'jXaeUH\:JD8cs+Xn7]#DT\E;>ApJ61DF#p#\]f956R:]Q(\D#
U"oaX\N6khp.-kpptqp*s)qPeL=<O.;H6(kW\\#rtX?ITGw,xO#HHZr:gKj;L_<S-
U"3J%w/=4j_eYKSsDTdkSvDt8EO^eI^7#]5DbVkc1:Xyx;bX'BL7d=v.r9BN_eZx;
U"=[u:qt$7<r\OT5X9fBW18/gIL[(c6sernfJYBfV&G,hf4^;t>MqqH[LUUG2i(YQ
U"o#vgl#Yn/5M/EI'8O7Tgc$b-5Pq\#Z#o#g3jf0a%&'UqakhUr_0h*Id;d+5O6qx
U"N5M<_j2=T&$G96erEqXAVZLqYc0F-\BJ.TTrcJm-]mqxWnR/K_7'uVHCLbm_Hle
U"uOmqr0EA+l<Veq72K\::JVk&Z+X]h.H2_(0c\???^V#^dJ96O&b[PPPV\P?P(pX
U"mY>?ah[UP-AOhJu:J]mTaCgn4s$8SZ\R2U2DZpdm:kriBLZNoocJ)<X:%[j#EVn
U"]MlEuOukr#JveITRkKlL.Cto5AV)KLbdjGh/kf;Q?TS=dxO8xKZ:9K04\t=Un]'
U"?R#\ioJ0fSsmhSY\eUYG0U&rT#,<rTt4<r<TRZV?q<u?^j.%ra>'\WE+8xie>Za
U"Z$Rj[Fak4kF:lHoKD]plHm2BF(eYNYkc:dS'-X1NWA#Xt:m1&Qu-m$+mdWwm>:W
U"YWKCJ>om:Y9w(>c5B,gl3\wtx.Dpk^wx.i$E[w_0M^sg>PV?'9h&]HRt1GmdHuP
U"7X+7\Bv%bapcHE\=ph2LqMOoqQtLf?X)o\BF4xDZM>3s0^qI5)]gnTVGjW4r.V'
U"&EWxgmUCeIDMp4\:x>p=mVEntL]A\Di2rj$IY+brD?'LdwE96TxmqI.d?]?LLXP
U"*7C>Htg>^9mVfZa)stw;[9(TbNsbrtt*qUiL.$x^Y-H^1n2m%qMMq_8gl&2j#l[
U"]XD4WvY;W-8DBOdvK&,HD6p3DkGn5/z'v_TfkI\Z6rA^A,c9KkBZ#1.j^[0Opr<
U"5hkH3G4vD;e<;c8u:bQT:\a$HYlBA6W$SZcuu'O4Nt\QSx0Hl04Jp(mJM?u9wVd
U"oclBX?4O&prmf$^/5&H5h*\HxFkOxHkJZf0bK[XSXBQ(/_$I)O(si9>AHTdW9e)
U"g_Q;X?(/$&M)=aK0M-trF?#$Cc8>NMq,oYU2hr'<+qlSLXt\IxExZOG=DULU?cA
U"fKd2cClbQ#)5tUt[mvtipv^UT_x.$8^8:mOP#2JcEUM1>+0-6-E<T;\Ei4'1S,r
U"eNQ](N/3C#q+$PQz3M&ECnM%n8Y,Km]80P2r/(WOA/trTJ0Fc?5Z9_;TfoSBv76
U"R;nF4uxk(0*%:-i+R67cK^s:JLt-;Fvv/KwvFk5.;<><g9t\rW.;NDSznf+]rkV
U"*wP6Q+pb,2Brn(?R-vMM4?x'/Qgx'9T%oDTpBc\-T\H&Xsx5QQjvh3[/Y,ie8Zc
U"ImKQm\rQ\=Z\k/S&KhS[rIuHm-S4tDEn'7pe?5m$)pr8u1hKSTf-pC98Eql>8Uq
U"MhcpkM*^3r>Lgq5)B,MffBqs1dCk^Q^6VB=?gZqt$hZ9e$lBbC:yB[30N$AtT(q
U"O::q:PoU5P]c6j0CHhDo+p;cx;)%RN[FmV-U_8+,xIDXAv)p=t(&+<^xRDlAL'2
U"7D13;Tp?BcmBD$6Uaody9'pIE,+X09,0lTYw=#-L72-XsZd^?M;foqcCBRqGLW:
U"Wdm?TsbX:nE+oMF(Jg>;0mDO1:*?Dok89ebajuw$d.tR\G:CsdWkTr#h=DRljQ7
U"d<)%eJlj:&a\mtg5\U348'dO;YVBr(BtN6cw(c]ne?Z_;/-_>IcLF#a=uWe1b\s
U"gj+Ut#xtvsfZcp/?_%h*2E[vjW0*7;KHs#6(8mc)AHZH&R]FtUz;Ry)O.aquR-u
U"PBl(xe5ef,Jt8>k8Yv6jI[ykE(>Rm_BsbV&r;n]B05lGLWsU>TLDGOMH?1ti5*^
U"]16ANM<#&,UIB3U_wA\bLU%ML2Vdi8v7gmYq)2if.J#,_s4ju[MC26wje$mQ?'B
U"^JrD15mPB*FK=FQB__E_;SJoLk*<:BnsX&ZhzYK0KY]#8r>(r]NHx.QsOH+*'si
U"kSAv[=;AJEJFBGl0w<W*V&IN\.7taw23VQmDKjw6z*i*U?NpZUB5i_mPTVZ[wP$
U"<Rk;I<4k:-rvPIY8LC]P7fy,qz7rO]jd2UuW99rll[P49+ao,ik-i1RMb5ouCH\
U"oLGVR+ghwO#gN3bQXDGdlS;07mnbCxq0t&klu^vPn#7cH;.l_MJ*Bf<^$AZ)/J?
U"Dh;_IS[][D?XRc;whWq$Inx;+>t:<gQEU5V6[8j]LDuerat6Fo)/OppFG+mx+'d
U"ZA$MD/g\ub0p(26;MZ=*];pmEU)l03OeoX+pLFcA_8yKacs5?kcs;?NkD'l\;HZ
U";ooOuq8#YeVcXvemtgnyfLoMml'BlDMv60Y/jFRn6#i_jsgI#K69Qep6=6-nyTe
U"GcJwbu03TkS:5)7WETi.L4eGohOi^sPKB\3x<tYGQ>&=0C,3,sY>LIm&2bisZ;r
U"w:NRl9&'H>PQdri#>5ba*1gk-8g/)GAGVc5Hf->X?(?<Bw2/.'rZqJNS%=y8+Jn
U"_sauL:RwFcK-5qQ>>;InGo2F.,j(=G9IOTUcJJ4ze7>CA+Odt#de-Ski[i24*OE
U"W-f&UR0j75si]XL%NjacUziiYJ?sItbK4,GIQg[/Suqvy$%za#Y,7_='r7Uw&Q[
U"gqf)VtDSyQd1s,n:?8S8^pJ=LCcu(a\/Z42VF5TTmbkj(fh07.&X01ZLxu3Z57d
U"9/bYFgnjcE;*Leo$1-p>e(bp0aQ.X;SlTg:9+*SS.XIMT*a$E1'.mX)Slc&)=sb
U"LT9.ci5jUYF5=p<]^lBSjd]\.$d[43L4+/l3:V=L_Fd&a]RLk>#)vAt=^dE'ikZ
U"fyKK?.)R'd>7;jt)=vm,Q2:gk$s7_;:Bq9M&PvbM)A*58*l9(##CrdEN3l?_xZa
U"An.3X3D#Bp3'HHBGFD$$L8=A:cUkYqcd#+gu%et<pVRL\QUa#B;vlFuakh)h$Mm
U"_8=k3w-^=i[oQh($1MH.w:3/c?_oZDlYnWPM1,cG<O<7FL+q=?&KTRw=DJOvs+[
U"I=;9'hH*Q2qQT5ogl)a/Pi?8&s/=$dn#9-$p?<-MUKpOaM[4;bh8xaT1]^[mR=P
U"eNu5pGFb/<JhHE.13J..c2Fm:mDOoUr*00>j'2PU7ZChV:11OO%ooSGpe^>YigR
U".6V9#+$^9ZX-?q^TcsUlYut*D&/B^-).p=&O'+*Rs:SK[w8MkcG#$dVon[)z7,<
U"*<)S](TC-x?7.>_mT_rdfGkg/KZkTl(A7X^bv;'m.<.?*KM<ZldDh.cW;[*.Osh
U"jBYzirxnHuD8BAz-hGac$ST8m*,'x_:4'<(92*0uUdq?M\r]ek&U>%E<E^*EcZ[
U"kqXx:<05vF-aC8_s9m$.^tZA8wXWM6[^cfgnfK-[k^?<e>AqI\\hOb'?FW1bAUM
U"]i:A2FUVh_38ApWDL*ct].?hBr+^Puo&fb9-.mBT._wm%C>rD3EQ;jzSg+oe+E'
U"SSodJFUiBK#5']]45QmI)_,.de09-/+Br).?b/WeWAwX]CZuD;3ApHG2;J+.=r]
U"Axq0]4'OvVr;snJ.EuP_q9jS]11Z<z;N5S88e4vhXk.n1hXyS0>QBItcBEqG.%a
U":PdmpZf[/EkWLtWa=\:9K=SFXeYZ/HS)Kj0C5JfnA;W:1\wc53DC(GbKSTj,kAX
U"pUUY64e-W0Cg=xPcmG_,T+PUbt)zCbw:CgaKP3fgHpLCr<c+?%H+BKex?Fe3N]z
U"ybn$xU*[j]$^yF_/>-'sY(Kzb#UbJ/.c$Gh*CFR^F_08uYW4r^:>=;+:R9*.SVA
U":gQ>OQg:C=H=.3[&?g#?9zHIA1OqZ5.SnN^UL1\ati3E^4#;m:IZmIU^kNivtPd
U"ecp9h9^?9QY$c=viuNG>ZYuKHeHoVEClIH/g;R_O*-N9,;X<l+4CX^$e_#edaI&
U"d+u>]_0<X78Ffp&W]ju1.'#R5HB6v:Apm/k]1I6N=SH0r5Kcn0+i:B[sfscP$e-
U"rhvA?Da/6n?tg67Md0$YP2VrMSVfV0H$7/Rt0q#szeWphqAPp7J%\P4%dBAFtRh
U"7;H5I+\t=It.Ek5ah./-q>>RY-m0)4e?G/W7Hw<MHa_8D^$$XDA'T?DK)3O\CUj
U"-5P(fmM7TWe7pRKb5^Uzer(M4p[DGMWo'+-P;;g:c,iUGH:Z0]\g$1'2+]o;=HQ
U"o;F>t^vM[1=u5sVH^#e5AWDi0kUa;pP&SEDps.Zl8)^PMRSM<g?ZrK*+^iA%*gf
U"yTXI22N-%u\YQLBLXeXI,_F<9HQaU^9DFIL:Jp.yu?rRI_=\Z2UZ'i1O'Pbo<91
U"5iOiiiL6uE(5YPaNPKkZ2rWJ$?)(P(&WjW?WT=jC*hN,iTJG(bpki(qpA1PRu^Q
U":SwQxri9cUVu=(5pQ-]q%/QFM3tR&XC6LWl/ma9E;n;Xuxc*:[F]t4x_T9+9Mgd
U"'TBCk_<SW1^5EA0^DX+o//apvSim\V;:Qo\s+FU,r0dMx7$<Vq;%J,hV8Yb.qid
U"aP4ruO$7$33t+G+*rQc>FzBF>Z:XOYuhBBW[*0dRoL&0bZ=hQu:ES(H=&/hqDTZ
U"(/,o_RHJ;)4\<i1&4/zwgM]qDxAh8O:BVPjJ2.g5yVX/L.=TX[sV'xbos?fA8l+
U"N2p5</_K#Ps$c,'Z^2KZRxgn8tIO/lJ.zvVJ8XG<:-v&VQ_&F;l.*(Au:1FQLBR
U"vnO&g:J80gtXPixok0iNbu9_62[cxs1iWlH45?fi:IPBLa,;dN#MAQ8GRst#iOz
U"lJi[(.<W*o,S,/jo0/-+c0QXkd=KK'0goayoI-#3$N?MDq7*KU5ndK>L,98l]I]
U"<FEXePr*5a1bGovXzl)lW%Xm)<uJ,[RhS1W7xwp1\gD::YdrUimuUM-rc9M;CLa
U"Z;SCOa=7M[P#N]SosLp]>Ynx+2O$f9[^3^6gBYci/Srx0AK.:J.pl>//pLf0X3h
U"tJUOhOm7F7OMYx'm9OlbEQAva6v..;oEm4eC34<_Tw/-^/<jxDRM+yT6<I>fJ#_
U"_[BY8'^ei++mz6ox1V#z(3Pq]n:<#)/LS6AzGDUNyW<c+K*U]lq?^D:Ciutn?p)
U";P194h555XeXKl1T1;;f*YOSZ/Rva%%#[/:Xo)g*+cr[wm20#wN2KDp;bm_CsKn
U"smF<7KdvvIQ..sB7g3U6mVnR3&mcMX8)x:0lVh&kceWQae]*?NF,CXnm9z)l:;x
U"<I#O$JKK_6=GW%V^=<<r]rJ3GeRlt<&2SoSU#R47Oo;mp.hWu)PBBKwUj>^)(Bn
U"DV%e1p^C6%gz[BQUVI81chaZk=#+15LNk618y-*]arioehie/qChUYh/3nO8k*0
U"qe%fZZJA;/F*]J([C7mD5lqZ5(H3<0^t2\40uWl_=,F[i:N/0q]e_m7tZWSb^lq
U"Zu9DCI;(hDAq:OQ1j2Xx;M)YX%M)ujL.[X#.]Vkp&b:mzh8k3rgg+Q,ZmUCbMU*
U"m(X8haS0_57W#=>5t-'HM4V6ul%O)Z'cy]g'<oh6IEy.el&SVxBrg6/^0%z\ilA
U"(g?7K\fcPW*l6WKzfa*P0re0uM+-U[m^ak:_,tDPj8N*B=g:ES;b]M'P:&JN(qb
U"e2+l=>1S?4?;lM%bn9;2+Z<)$D/z'S?$1obvh38<#CTy;mKLyGphXd/v2gOfaFb
U"l1PVwrYam_bY?,^4JsUSk:)Pn0pYw9]Bd_2ET.I,qucPj;Zph%x0AwR2odZ=Rh7
U"6%I^ee''l\aTXW8<i3ONY]i<)n9+rTOr*$pv/3B8hf<]A&k#+F;n'aWgf;7kgQq
END SUB
SUB V4
U"0QyQi_'NK%(GSLU.5s)\)R7EQB<ea8AL'SWa.l.TJydf-XJ&rx5Hr/p^^\9$hs5
U"1XMRsgghiTL,OmJciSh*7V[nVKnfJAKDS[9#t3_5RTAZ9zxY(DYQA)_NK5Z=RZ;
U"(?d0B3oq_r(OBpf8cTw)7%E)ZlLlgl;'-ZnkD=nm0Lx1tU^+MbQ/j7RFKu)d0+w
U"%TSjNAA8\r+DECoEfE[YDn]nBOH\(C=E)#_aCNVvq89APp](wzP7rG3c-HR-Sj1
U"R-=<A//33<&x?j'7Q:O(v1f^;-8JmZakIbFh?eB0Tr]EFuiCtHkWTtuPifdfsFP
U"BM-ZN/ia/ONHqjO;Ii+Ksm^DAZk##h4+,\/Z1tI[W$xHeHw.3*U)C6L:An,uoY_
U").oj17-2$CtnZQvWRHTJq.I\^W5.?VIybm&OHNOc6V1\6^P5UtO8X7:JT3YjP'*
U"NkBHXu^1dCk/MQPU)uP$j9o#tFO]:Ew_XFoed[Gl[xTwj$6-RcpwB4/$$PT]e:3
U"Wf[_y(njoha\99$A2sIV.FV<Ow8^d1uYws\0CUObsrhJHrR0*32s4?*Fc7Q>,i%
U"IZ[($:93>C\94GwbL9AsX'v<88SX,NU5somEQ+U8Fep8<<TS=+C?NmAtd76xxg$
U"a81KGHmjta'BI))+)>H5.59^EJD*8&i5yQ.ln9%:k)>=TqD:P.n,q9/Mw#8Zq0c
U"&Sr.Vo)l-'Yf(4*4)%jE-G#z.MQk'*/nM\rWoWZcun)F]IUt9p0nuxxuj82WhVH
U"X$bmYHH$ls=wKhkEB[:oqbkH=5QL]52iMt\5U?H<4Kp,CU=MS;F8o#391ayWGTR
U"Y[^%c,CnQv5E<9+MevY]\UWRFM(D7B8&w+/Q-PZN[JPv3'X*gTK9:QK<p?\&%NZ
U"6Q1(P'k[29z4KI]x/9/rr/HH2SJ30E)fIcRE[L_kExC*C5Nq0W162l?:45Ari/6
U"1\o<#Xjeu8%ikeeA'j_T#kE]_JmgP\4)M(d,'+hD#7#N9JG.tSs3G-lAr6>mN<0
U"3F:WTjWP9UUVaz-k1N15wUB$wi:PRUb/cXn^-a.'WUhVv'U>[g:&4kp_%Cx&MW2
U"P--Z4aEe>Den.NhC0u%<YhErsvK)Sdq^TXH-3JB<Ces;iSc8cVQEpW(0$\]s%88
U"mg$'*kIA3r_aquW-iIlm<oR;A>::lv_:fUE[#]R+U3MobLCl;oaQKw/o*VVo=u]
U"a[q8+#6w5:9K?eju*7oEgr4AB9)ME:Xqi\oeP]EaXb4Pen(7rp=gu$S,]%nU;AJ
U"99bar[^c5kHP%*gUI*R;G[^CP.JKcFIt=WL&l_yQSX2_i\L7\t+V%b^)3:_&72[
U"VDj1mdic9[<,Nn>o3HfIR-Nh/.c>S&<<#Sb0^?qF-P<iw;hn:RKaFHaJ=ZI3(iM
U"4ZAbFRjq_N\u-u,,[C=9^:5&r8iZ[bFIv8>>Kf3,DJ9+kSNq(N72E'/Zml'^C,]
U"/Dc&AtruriuV:Cd>=WFY8n4n+>rYFEJX6CZ?FOJ:D4vmCNIw5z=cs#0t2&7bpSQ
U"+V#t0Hjt3%IlbHLxsk]G2S56YAy$3LfH0b6/4gW[c1VAbf,VMVh(a6I9w%i':85
U"%_Iy*:,MbZUy7p;OwhI<F-m[A]3:Bt^7^#Z)oOvCJi?tIOC.n'*-c>-Fb1yv21J
U"3]D1Ky#&/7cu&Le&2ht+]X&/),cXIfeeAe.b8qRE'qTtW3/L+I.a^U[SHL/G*i(
U"ZISQuUAShh6\H3?^t'+1J,wRho:u:(xdPJ<Yb'[i^G?hVXRj9]%khXest8drb]O
U"3^r$#DNj:RnLlJ<Zua_ODYj?K:QBm78U<,/Of7f&3-_(C'%buNF1P^Ya98IB:ky
U"x3OVge6e%aG$o.#(L048J)rJflm'eaYCXNWh$v8aa,g'pspbAtbJzB:V>t9oyD\
U"EQ^c4VH^I%2Q)3l;\]rSR8QqDd937rOKqnA*3?xA0^/:Kl&NpOm-4P-Pj)Y3q\_
U"4CN#[pzBLs]+bUGV3=c:?J#w=q$%NJ98Zo%:Uo6[%:,-)lJJ6'ml[U+K-G?s_tV
U"S35mX2Wi6$1aVC+Jf2Sq_XC%bO6xTra.vvT\8wojvIv3<9Exo;vMac4UV&s(=NT
U"fD%N\IF3VB%U$<'0f[=,4201wsHsU1<G4D\<*e?At=fQl-?vQ2%qDIUS,=u06aw
U"59IrbNsBf.\\J1B,/iCCL<eVtU:W(]/GAZKI'.<T[H,54HH_UX:G-BDBGJr_kE%
U"la6edFiO=ImslDWQ*rJp-.-97i)1Ds*Bd\lTTK$GWG=60q[<Dg(p70v%>cA(.O2
U"1K>;XpCn#_5_TmDPQ?%OaS*[8]HK=*LuUH<J<AvH8>;mm1N9jS-^9m*3sF;T6$1
U"ku,>KcvMbltP6E/g4YW0$iEIkHawsZs*r[gTkmIT.WKs[c5:8Rd-x2>w2)EO$MR
U"m?Lom)kH;O26:VA]s=n#=sc:>k1V$lnY\ivVkvbZ:0>/qZrS9,Jd*/EWZ+\mbrn
U"v#&]ecbj/B]A&XXe6;V?J/<=Bll0]*8.HN.m+xsrQw_($/xd5iikmsY&bZ'RSLa
U"Wb9a-kq)aIXreok]r?QhB+vm=VDUFI^o#%\/=kz9]YD'1Dc1:kiG8C&/,rPP]wJ
U"8I9Y88mkB\xm2ZH.,J=E0/YZU70D.S^^CcXmqH7ljb++hQy*h+fiB;&D,kV8xDr
U"VNeNr\ftY:\<hBB/4*K:c-'L>6MXX-BS2j.whftQ[NEg1M#b'/'7k_GK%r%0qqs
U"N.v6(.1xsg1iIj't9RB]LY0TKGBLs\1=/wv9IoZKD1UM)NR]d$=Bh1/FdQo?R=-
U"$0N5N-xB98mmJ(xe$\1d8GXXYKV<PGK..-IEpNSowSd+n+Ho$UUxIOJJ:sK'[,+
U"M3nsJ;CN&^JthdoO[ofDN9b0+KIfj0YrV1o+pO33&<$8H.X#5pa1+3<D;jfZsHJ
U",4Qbwx6n\0AMa0?*K-M,qm_'TND_Rn#rdM.7flBmZEIlV71MJQ92)MU7/n<FlWn
U"ZTs853SG6>etKZS7)&#gL+:n3v8FNfJeuP^U\Vq&tA<<9[%sg\9Aa6+03\;GsGJ
U"\Zgg=Zmk41TZN3o(?U0Iz[QHW;S\mm1=.ZbZrQdM%\\u6U?O7%J5tQbcJb/Fv]G
U"Gx$#p#yGh+i-\P)jE.lUjgiVV?glb=/s0L>CZ1So:X'7lTgW;+.0NMuldbfd.VP
U"oU-&42YGibI(\SmUFTO8,?]_wQXX?DM,3#QMJ30aROQXw4UG_?)6_NKkyw+3dko
U";%5PjNC--p0x7?nS<Ywm%=#]c8u06HzVBs?<E3D)/JW#B1=a*f+w-D-R7m\-:wT
U"S$m1FN&H\gns#*DcHsW1^a\>D3R,)RLr&$saLF:;-KB]:0U(5n.oP94rEo2fB[<
U"DDU3.L7^:K';_abud)5S,rW5;$H=eJhoMDCf:1cTB;Ie$.\l<3Mn\W*>g$s&j*o
U"]KX2T(8]M;6)NIB80K%:A^.K[4O<T90)n'R6qTBi1S)W\T<D\NU*L<qd^:i30/7
U"09k;1'Osw6C4[2;^#LF6diUWYKM,vYL'<y0-g/wO)KS^-pk^2qg<Q/acn7gX(4&
U"fPI=k+Sd.<P/H^&O5)m/D'UayCT9cY^NX.S&0(5uiO3mF8u&*Hn<>7IkaBxzZ[e
U"sr'X_0Np$/v6x6nZ.mG2L?tkB]4f>lV0K0LPe#TlZLnh=L1[,L=m3&,z7VC?8Q]
U"27=z;ya[:#OP=W/N5N<Sc3V4N8XFdNWYEe;>fu#D>3MHIG?q'YG\UgHLs3c'LQ8
U"96gWNDhlpwK9tZHbN;P<U#%Woq>-*Iqf8OaP5O9jTe_SjH$JRKrYY.P'm[Gz7DF
U"gdh-F9UgT$b0M%w=#lbo&r#aD>xLB1/FaJ[W2insCNz>%m%gfluba5vmIqVUbV,
U"HMfC#d0e4<ope]Q+^hv04-*;7?7i(1z?RBdJ$dJ.Lv:hF325V>2=jA988sVwqnF
U"4GR$GYg8(3)yTSq/=LgFo'N7%=r6.EkXo1\dYQX4D8+;2U:C:C9V$I?g7GJeA_k
U"wPt<hjM?7^L-peI-'7%Utu-o7G%Z]Wo\yx+LC8h#+p)7Rb-_IyDW^?]E_.vYo3<
U"2w[.8Q6P;VBHdWo7#:#z56pCS,d'RpElc?<VvHutbsJQZa+f*wm5:?O'Sr%k74=
U"9Tq-#'kG7yN:xL_F/OW[n=KUASg?W]lNErh[]CSH&mt28o9;LIeVd&q/t>zb5-m
U"^\0>HyX+FMdcN%cL/>D0\MUYw<H'E4B%,yhmuZr#LvCq<K?$;<?]NXT%E;D\.j\
U"moI&C</95L[*Cm<^dX*kvC\Ll4j*?EgeXz49tQdM_>g=5R>uf^O7yah=\QN<plb
U")>WA=Gcos(hS;LKCeDjm;&V[VpJg(k9latOqZqPF=X1x_\G\g\0G)N]kJ?PpiGU
U"h*F=X1h31L+06+IP_AuGI$Yipye9/p22AV8kZm\1/YPHPXSpiSUJ;c$Y6CfO79;
U"^-KBH_-F28R&-FW4KqkW:'.8'9PKo==*u#dAG+$I\SLq^-7seg:qhcfj=/L;-RF
U"*A6F<5M:)H5y\lCc^MZR>8hFNF[cl^xGKh_:jub83)PACd\R;hb[Yk&4nss8UwS
U"HL,E6h58JPjVFLQxNoUG[a&=csnDaI8pnhQvdaX^LeiKh.;(-6v\OY-blT<42LR
U"ft-[q8*3-Cd>T0LX-QO*)6%pJw93jkJY$\k>+<,p:2DTAv7)P_N779d99XN%S%(
U"yxym8yZC#dP0c<pc4zVvQKRio78fQX-drU3]sG$M*ft5Q'\ALYy?3-lAsj/.Jtq
U"X>nbw(rr'kA\BZ1KM7fFV,%1SPV5tljCkAA$u__N;Y_=5dhm)AIlF.SKu$3N.ms
U"WNi]v_l^Ffh'eVYT-\Vml4b]W_kE&otU9&B/K?a9)bT:j:Z[lc6Zp:$uM9]dg0e
U",V5B+=fD;G\f<EFK5YKQQ1Ha<Na;&uk7TtM,c;e;cH^nm/+3m$FcAi8mG*o0g1)
U"KTrn'dNGfOT-^IV8qmhxkYYNhLW12pPogYnbN$%NE=38:Ur089[2$$GQ7p5\/n.
U"Dkn^j^werx8dR-Gpc0]q1#FreJt%$2De;KwCU]0r)$BLS0Sn.TU/eDEciRuXr5&
U"Bd-*unZN0Vl/rj[Y1-r,>G;6U=X&Y%Y$2MC1uQC(9\]X(WrhRa+NiD,Z=?Jb75&
U"0><ZZKM%]1a]3eJ;5Q:2\?Y4pSc\K<lgSq[Os4<mYstFT68gp\AD6%#2WHa^m<J
U"83kefFt%%kBBd]pXm&Nmdm-.2jvhR-_c+NNL9+oIWSPDFGC]jc=hRc22q6NaxSb
U"P>xO0pZkP2:<lh04=OJx1]AK1EPj)uu0Ft8LiO_5?2K$mtQ;n)tQ2W+8OS(>BHf
U"$_.ty3%3c1XRIKv_075FL\Z9-83F*K(OhC$x#5;7FJ*?-OoL5W0L2fBOXwNTX?5
U"opP?\d,n/26c[I8s19dT&g_[1=kN:k:^mMe1;#ia0ON,p9R9rgbYu+YQZ3Ym1s(
U":11*mdmi1Xm&f=n.TdDcv%*j_:q:)VHiW1%9Y?QKqJsK14G1,yQvaCmi$'ZODr3
U"h5M2huLRbfrw<wR6M*Y30,)P)):xSHSop[',zlaB:ptu5-U^l^2=t<rg*&2)i8^
U"G<B>aYEG%?fRuUvR<jw*d_&O&d$;+pP^q/x[Nvr*oB__F,f%WCCYD'qv0.M<*b,
U"A1OD%O[OSvCct*.QvfNCqKA^-R[X'+4;UetO.NA1.bl,s$x+MZ6av$CsOR03j*&
U"U>-T1lq>r:RT[H5nzQ%E<(S/$3a3'fLuB'd5:*ys1zbEdBWv4Be#bGl]nU:Pu<=
U"OS[)\k./.7Gw(zRpCe9*%.TWC:e;2nnB9qYniC'EQhiwe4/9-X^*h26x%#*7B4>
U"X,.V*^;a*%9wZ9+7M912ftu*i*oB:P_k/IU;KHv>]Z+q*o-<1,rIe=h>:/_%X]4
U"Y7V1gYW0%/%0XpxI4wE'[;M,d95+GyyqB9ROAcktu>H.dAk(7F&hFxF>QTp[N7x
U">noK\'%(Jfm\AGwE*keAq-pmlMha:,c00CS>wJnZ.IWkqHB^=rx%D.-J-.n8]H1
U"ghxnf\F1o64'%:rbeF)6nQ'V?b2X.S2KR4qha^ya4%Z)geFgSlrS*1qS>fj*_:/
U"n/B9xz3<747-I/v&M>x7RvNa2?p-p$0bR-<3u0._p4pX_R-J.7C%mzE0&U(,l=?
U"p'j[MJ*%rb^RWn\9b4bI7ouQ%m^tQlFUi2OJl.hON0d_u\Q1MCkI335ICi5EAC9
U"fS8s'Cd3mb<Q:pEtpsp&>+JV\tsg];LEdq#GmU%vcuFmN_1#r0[#TZkbW?GCg5w
U"-36&Ht6fYF;G?Su)&f(xY:NBV/bD/OmbWgw)y&>t4$KRxOnU^muZ#LkOt?T^232
U"Rku2msyNcw:33S$l%I$r8P]l?[[^Ia1a3mw,,M,V%X[m2J::SMQ+^4jqy%ho2MX
U"-NVzW5_hGlpi/Fg,o8rGRjP%+0yi;IXjD_d=vgOqrP:vU$:7igdOFj4^m9+j,4J
U"AQth(<f,rW,a4YMa;S#nI)X+=kYO7Q0J+*H3mjNUjKR]s]F5$M.O7DLNpW?o<vJ
U">_]f;6ua8ml0+BUS>1F^]^OU2<mQAG.0W02Wf,bXEIQGBp.'lLFjslKE=a33Lqy
U"ol>VTZufi73^)W*_'0D9FeJ5A_T]MY\-1P^Ga0R2;O6f,('/,Q6:7=-0:bl<\wX
U"r70J$D4#?_'MHFtmfguRf)BGGQ+jAIXV\B,P%:tkN6s*I'U)#xD71<;jfZ8#W$4
U"uC&6li.SkEh5L8a-FIA[%oo8fNfsN)v$'o^dhGXQ.:<U^3&[Y#[vLwadmk:srf0
U"f]M4+eR_\DCqHQhne,Z.5wGWQ#nT8I:xXfmE)-.D&)[D.]u+wA's>NI4DhC\sH7
U"KF6)KO;VpRB#6$nK44^cK/kI>SnU$s-LXQ.(^]NuBSHoJE#tm>,rGc>i+$u$[NO
U"tfO<6]V.\Q><4tb6h7I,SA7Um?;vqEAkqPLuT4HlQ]s7YG\?aVo;sPr$Z476$(7
U"nJ1)O^d;W:E9CIqGg3/4.btR<=p,H6S)EeFF0DDyfQTz14g4.JO18ewp5,Yx#G9
U"%nBx_sbcrZ+s:mQ,-4^=uSeiBC:K?g#sd\Jnt/2#gWsA%bjguD8&QI$&8M:tfDN
U"ZU=j_=7/,?/6uG.=<lp(h2pFk8r)Q_Ho0)2u1LRHGmTrAzz<*h:BpXLb^.yN&BV
U"j$C>edt-*3q(^u:44tkIzJB:ML73a=:$bTuRD,?[rRlr\)&5ZT+mW?DNi-rG4Hi
U"(_Ksl4Z'VN_5JbAkElm:aeB9]>jum)0DiFM[_[RN?1=;e-%qDjtoh+eabwhatSW
U"b4p_6pAnlib__#GQZ_GdsASsce8Nu.t:#'h0-6:+>gdDRZ^._Ze8j8n8/'O'UrD
U"C<HK-c(1.a,etVxg'u&I_$9S-_A6oE.PVVP#1)F7xPe88bHVEhltZ)?_+i)2?:[
U"+]<eeMgr9->3>)Y;FUeMXVG]Xg&b,;wvqgLR[rv4pa3>.bpm[&.&>a.I0;wtTdB
U"V1o,.^gns+9Hv(&A7KP8]P<6x*'/[/WDu'X:h7*H6ShN8w.On:&u<iT_59AI2;C
U"CoPiNCd<l*-Z&Y:/KpDvQ2I=S0W,[b>\'XYs$+f*fP5BUlZ./4ctRht:/[2,a:x
U":U*\[D%>Yt<Pu$hUR7lpX=Ch>q)rCUXT(5pt*/7<tuIFuWJBv\J=>%x<rA<Z%4z
U"0b#pkTe8s2FG_o9PF_5BjhKhR;I9Q;,pX5)McE/go83i?,qf3Se3Hs_muuaowau
U"Becb<&f$eWb<_3fRJ$VXLD(1[[1mg'?AEk,FDW<n56E/KQ]6Tcl9/$]:PAM:8%,
U"$qo50Q%K=LIsd6ow^Kl7k0qB,2C>=UfD6i>,cXnqpA3mU5)D0b\-:qYx?Dg\VJ\
U"bNrlfI-oA>9c[#J#?WlxQ&.ixGdaRxsm0:48&y(c&7>HC>TmZ[lb.Qr<*=:v*+)
U"6GrwOWtp'mR7[Q.A_SFE,L?oxu*#q'e$T4Bq.1h14B5,W9qPg*3dM6Sk<va]RmC
U"tne::7+<cFV)=.;U0HXJx)9U'otVQ2^\o>lx1LDj*rPh24wp0FpJ?g[80u8K7QH
U"_,iok%$]0l8\,^skSl<<x,84l,42Xsy6TqcS[DjsqhYtOX3C26sgC7THseEkC5e
U"nVRn[)Q0F#\Z\XDLM][]LSNDt]_OdZw*#+_QO]GuFf#BJb<6n&]uG3l\5s.UzFd
U"Z]LkI][DF,wNFtQQ,Pgv]zfd^KWYaE/+RtW7ScVN['5UPba9(4jG0T$%vm_fTtZ
U"_0i:oJYJ54kdGdkrPjV(m2;]G=pm0<E:X5&hJIk$';Sbw0s_fG=^7G..<368c=8
U"rHA;>_b/bVJn)/Xu.gh2h>:_-?Du842Xtj$U(CWG-qj47BN+xYdDOp\8qWdKKD:
U"ctppub-bsE&.,<ChADIhO:kMLZ]C\brmt0-:G,3FAH*Um^*ciB=GW]+oKI1MU#I
U"3:AhMTf:8)IKA]8agOPqt.j3O:Eae]g2L*dUlqd9r$/LNl*vM.HTVt9S>AL+3-u
U"WyJ*6eoP.=#t?:$,.Fi3Rm'_sfMju<t#n,li^d-K-k^PE/9:A9PHRUs0<k1sg9=
U"E$Cf7iw)TO^Y#/*NoHilXLE;LqV41]8T]337[RJe6TKf7B;UKHk?SCNlQa]j7vO
U"6T*\h0h_U%A<WSlYlPU^Ee^iFflJL=Jm<6<*7g#q<-Dk-Gt;6bm'Sy]3j=U%-NJ
U"b,<WEgUCuaF&S&jbfCS5\-yhk;9id;U4I]5I;c9s\FN^ZjVVBb;sK&ZF)/R?ItB
U"mch>whV(spKk9N.q]o#l+CjFV#GU=sXAeyTeMy6$9AWU5JTiX,A;:Kpb9h7h_?h
U",W<h/1u+''CclQP8K(Q02k>(%jw?\vm74d=4g-t,#rAUT]gS'LX5lK16FfUE9v)
U"6A]ieWud8E(MktF8p0<Bp>kKApqZgU]4YCo][/N[)oaP4'>ft;GW;:gtxF#?75U
U"SO>1d(#;)*7'M6xo]X[EbU$3R?=fN\Q&'7LHrWBa&G-khRXUbRvvmr&P3j=aJ(4
U"uIwWh$K4vZnwKStvO(:,,NeK4MO-j4TU^tp-/4)qDL)tU4\EziIH499Fx92LL/_
U"*%H88(:&x&MSs6F1AVL(fW3%%ESl04PN^K.CX2H&TG(gOhlr[[n+[I1N$,n:=,f
U"=[MVV=59$=f)Eh;03'l.J6bV%:-VRflJB#-_v9D\e>CFC+^=rWXgW%[[iWa<?7J
U">=&DmTRnh5ZaIb71t'6DQI3[?GG-Sb<Ci5$.EF;ylCg?#'p.3TKu'&K4D$pRq\t
U"h)IvM(jTpjAQ%Br_aq?7.p)xcOCmU9D[%g^dA]TC&#8UyJzFD#T,q11d,h\]&S/
U"aM*7e8paStmM_#0Y/-p*JIJb=h27#_y59'9;v1cg,OJC.?\<V?TJ[_dB&DcOK#b
U",*0Rok_I_iV23m3/.M2cSru<DE^KWqD'(7Ha[hXyiiA>W7L4r^'4P&vGhjb3SMy
U"v02Z5NS.ggGlW^Uv0oWC2QV$)pT6\OA>VRYM7H=ueVftXOs_lqO:?Ha?R*>*(ZQ
U"BJvI+hkSYVu+&nHbc%='c-jrcs^Fca64c'P\keUGV8U&Bk_M9VWU9N%E-J<IknK
U"e<6wro^:BUqShqVw?FfjrR)1j,J*W4jbJ)srI^sb_3e(BJPO=X7k'L)lnkIBPFk
U"MBk/H7*Bmr*,TaF*KR/Z0KY9d<xNH&()*<d*%uD$-B?NoJrcQ55\kk;2CL(g7NF
U"ICA:oK(#$74Ipj_Xn<%WSto]Ann<aO],<Ok\My2j/RMyJykvEwuOWa9(8)JVG>Z
U"7dBk>nmLr_lQZj:TtljM807HE0tfY<JV)>jMC\+H&UaVt24DJ3C0g:/eKx_a4;8
U"M=w,r[AT):2A_mW.SuujHXX5t]+dee0KF=8QkP]3d#+Eop<QOX#et7G%g8#<#0$
U"[#Z**a)K42e$-i=%TFQYKos#6IG[Yh<knr9'hJ*oqogD1MZL;=#23,OQ__p6pF_
U"lz9LiiJ3F[ZNBVPzu-gm,+5NqCB4r2AzDsJ3xq&Z-%BKL>nO3s?Tj]&P>5BcR-o
U"+lf>fQUGdVP_;&h22%D8pR\0\Jc%*UsCHsxu(o3tttRE9W4;PB^/I,7G8075kex
U"r%'X>9EjK:qkjiU0-Of>2N6RP7M>R\kGv;oN5C^^ZqcDb?JA0*YXo)wXI8oGh,e
U"uMo4SiOhoZ3crjct&1tfPJ+34sA6OCB0u0#F0nnujFq&[*a#*aiC,U.QVeq:gu*
U"7S*8A+M_LMJQ0K\#PGG0bpk2QZ(oZWNE'2d$S<BVrubx/;?0<$lk+(3VuKSva;X
U"GC+X:%z&*FwP*sBd'o^:=.'SI8NwAIld<1X#sl/3i2)L;TRBBjuJ$IgF[n&Uom2
U"=^GC%Z9dK9/D#39t(D#u;g=IlILrQH-/39xDg-E&):tvpYWUfcmbrBm2n-3#2_h
U"Mn)81jaz'R)QP'ZPPyN=U/kf(JT)kUYzn/R3.24:)gyITFb+q/$1:/oP1ocjPV_
U"[LA(tj?'Fbi76M=5.x531&in1e#8p7Q9#zL9qRGQ6W]+5'nu583YCH9,Bn&\Gae
U"WpB%4F4b>EK]=bg>NKx^5mZ?#xzeziitLZ'zjG;1X(8DGfofYT2(,OnbcO$o-Pu
U"G<Fi]nzG)e/gO7A^d=n(2,,s)K$RBDFImSLvBTW9QmN8+6&U#l0R%pKP4Zo&R#F
U"/fEaf5E-?vSIR9q/Z(HfMMvt4OhWO\U>W(s5P2(ertpVVr?Vr+Pm6$:(YS;($5g
U"0.67v>ekc51onPHEf(I[AL0JS>K%pneiXX/wTnWx-CNZ#lXZcqh<rrhfqheT6%5
U"d61%K:68:C'=<0Faj)W.JnawQX:w-ap/3vn:,^90oKgd(#^ri/.JAbNRa'ol?89
U"Utt5;TfH%+*vCrF>5XECl\:vyvIN1cd&jOIHNt#HZ&lP0=K:v702H8g9nH(Xon,
U"96S$fbzdKdMjj:[#_c(_y'A-m>QR'S>rf7i&f,o;=Z#6?W+B/K5TIF9]&b??7nS
U"[O[u[F1#=J8Q4ZoQT%?pl4<iOF_j,8hjXSbI2Ts-mA<tR2P=(ELI+K[5Tl*u_3;
U"H.UT]%DZG3K]nIWs&A\^EC[M+\hfQnSMA&Z:;5$GxO'Py';0r8YK'Y471_ED7<M
U"VoKb(Xw5up:H0Fd<rxJ8VW3xDG0d$+%TL1m?K'hCHxP)^qsonf&b889jnccG/uI
U"n(#i-nIc'lq4=3,qXYC,/Qq81w;T%1j+W\=_*ckkpVurBFKYzuav4/$6#9G\gq6
U"//)vf5r*:G,;LYQ*Jdj-2DM#;<U(n$/BusO]>JpV//9+DMAT=bp,-)dD(J7[#UE
U"l<3nnNTLy$6rj:j4rhvI1\:gYv4ZtV)F,'1KjPiBP,p+1\Pz]gu(mBkx8u^(^Pv
U"r(B7nHq,l2'_V,FNo<uqHn8Z\x/Nc586'5etN/>n#v<#)14G[JEIY/h%GINpC(-
U"A_L2T82Qs$n/+7*q=77GhLQ0\AT)=XAanWIY<8YLCD+>yh/mkY)qF.SVhMX79,)
U"ARNXDDE7bDl'c%Uxlc9[V;a=Sm)):+)vbcaZ$m,Gq4b_i.CRz>2YHu9pP_,j2/0
U"uzNVEQuIH?bs:;diLtpX1wGg?a.jWul$Yhp=(i7Ot9Dgi96=wHVYPZ)EbjPaFi>
U"oL/eJh4n+7:ioz1;0RP'qJ2k#$bQ1=qXSqc^?*%ZJHWU.2R+em\+zT1Bs76]\Em
U"KAS[(+#gr$R>$nv)t3,?D)N[=G,ObOm;XievW9s8QSf8.]GM&vjiclG#l7=#Fb*
U"DH=),d,RJr&$t(hP<43MtVZUVVfWQXV/L9)=eK^_Y7>.%):PyL,RAgYM'tk6hX9
U"58bW4N>D=/c9Z2N7don=RESLD7F/[GQQ^]Dx&RLanRf&Lcs]r]RRqF<+/\[#io^
U"lPV9Zlo<mbx&]UaJt0OFtf,u1'Sj5jjff&8SQ2GLA[0?Lg:&_D.9PKkTr(_'Ce<
U"cBhUfz^%lm?[z';i>/:oEt0RI:n6CV4KCSzjL)F56:tFdRcG6Ut_//1s&Oe#-8M
U"Vp,G'Eb1N,<ede%GMV$#SSR3iY5Uov\ds'L0;UXCa<*%u3NJ+Ou[#Y,X0>XX')>
U".NL)Wr*V7>bCuA=/-fu9cH#\9?wM&z0'N\O<P*s;6?<K0.LfF0=aE076gYioXNg
U"+S3SE-H%WruBGrHb7LrHBuVX,/u-(+(JrG$Tbu]a1B+^74E&U9)A%2u1FSUMY.+
U"L1,31.QN)6tB&ao7lOkZ\99n+28uO)En+9ccF%tn]iD0VeIB#X\)PVu^XnVIL.l
U"6n9\E7fo87Dm:.UF#QmN#7(XKX_)Fia$UL9I97C(EWg2T_(SX4i4-0mu3amO/Z4
U"R?[h/V=k#yWXth')>.eKEp4\#?eEc4op53$=(FFFrdM$RQI:E_PGtASo.m:OaUW
U"-]\F$?YXsfp^RipLaXECuQaAJ'Lkd\hIY3#&_(HGjkw:Q2m0dFO$QGT^()lWclR
U"V]1LH]9Z4:_%e1Om'4G)\eLqjtR[U:2bgAA0A9.F+ePn9+NjGi6u%(<hc]r=d]E
U"XM$SJ&BGkJmDQzBEwg?5*xk7?xtrFGk,lkp1=>U$+lBh>=Klf(]^#)XTtvUb.v2
U"pY4sJojaq5'SolO<<KzYeQ9vcj%TD>(F*MzQ/FEmSGp'6b/4q.=adb:eAu)HVu%
U"5XCq[0YZ-kP\d;KF;]*#lvjBI6\Wg-+Z;%%h/(b[nEq^A$M,-eZk;_Kgs[g=1kv
END SUB
SUB V5
U"3x;Ova+Rs0Ugp*j^He>/cMS(K#d5xXlJ=:Kk(KTK)ha<I7pIDJEBaraITJHarDa
U"Te;NX-4,kxCJD\ccp^Avu2GG21CWRpUxEUtArO=(GXe+ki^aV]d^YnB8d9xI4EV
U"zfVaQ.B33Jea&-(QFL,8$hBL6Aj39/(omHcdA#]Cba%z8CDr5;HWunTryr;Trgr
U"zrkdk0Z^hB:E]NLb0ByA0Tr^2j<u$EHhbt8KUts4sO\^Lxa-cJCCeLpl_q=xvF9
U";?<rp3ZCL[hgiJ>HmPuxH_\EpjrMux.Df80R]fp#MJEo340P4Y;N)%Hk/<X)eE;
U"ZM9'i7v($ZAfOw=ED<2U0G4Df;/dvFHQDpQ.\S$v8#6b]L_\rv-\aYi#T0S$U#<
U"QOkm2W7i0TmI.Y8[.qLR(%()BI':QI0lTMvi(kU(pGrj1coMW)VfoJl^i1UQ0D>
U"sDBLB<2l09N*(q*;f<pew0D\;=?<\7aYUFApkIP3lPw?5kClo4'':DSC2T&+Oev
U",*ovbaq9I?Y$+*8C20NmI5oYAE_;N2eK*b'*>./6kgf&>(b%IZTb:u*P.8b+C1b
U"+b^#<1+2S1ZO7\TyLbCa$Mt>vTQfSX#-x-dBX>B?iNr%n?'S]1OK0(lv:2iD&??
U"cqZ(^?:NQIk#Za,g5pSu/?$B[r.%qpG0;$GIvdO<%o$ab1.RnLd&*:q?APwcW:V
U"wHXM2H0*iNE6c'M8,/c7q%25OToMF1gY^uSfn5VnL>Kwp3*Tt7C^9YeNL7S,X_H
U"oOtzkRXKgWF&X;h:ta*V#w48_V?Nv?UmrgWpg)K>*adw?:,Jo#6)[OeT5*a7/Nt
U"hdYV<elhIgO&FrL8<Qoews'X.*2;0sngLX#Hn]JY\#rGK*9?+QY4HA;\FG\5$Jz
U"I;i*r3SupZF:x5YEu>aOFBV-LrwtH$tblDVJ]((TBTTUBdtP8nrl;pn:ip:r8'i
U"H;>E/1Q4P8>>.R/5vmcuDv/tq&S_lm_X+>dX*lI[Q.qfP5-OkCVv(dFeIAQhYFq
U"hNNqpk==0KQYZvAWq535w%+NQl'aUTe]+oOh9m>A.D8W,sc[>E7v$qZ)Z_1tDsn
U"B\=*G8SIEGiDh8]2\,\?pERYi,sv#Iv.Mv#HZBR%tt)X=rQh%VndQVLu2n=Hi*l
U"^q$qgtR$8u7gDl.?dWdrHNdKu-uZ8XimhdX0B-7$&pgk0u#W;fk3>K'QTxBhVt]
U"U0uX4ZAa4VqDQ%ZCpBgjkm1&B96(fg\kVfoYc<>pEPfA\ttwTj,<<mSC7r*8tMA
U"6Z1)n.mwb1*r/WI#^A(#eq^C1)5$D?\JDngsL:IVp+m(Y%]].?d[B>YX]Du_WtL
U"mB=<=2PRy0GKs]'v4>,AM*GymA$3tRBZjI[S_Q,N_V+0v,lnp#4QJqh+4?ZsZhT
U"x%Z(=w-50--fZ26#xw0Z6Cl&bZqD)HupUN*.RdwrE.fEYF:u47ad50<BGwI^6N;
U"D8N;lLO^qtlFGwI6$wmsYZ#luBJlMrb$\bG7s<Dp=YKK:.jS_bGiuhg8>g$d_KJ
U"YmNJ9u>MonEE(%?i]'bPhG__BpaX9K&uj4a8.Lt9aYqUDYq.H)uBgixpR8nvh=x
U"iIh>=luPHweP3c;$l2ju<P'wPngDdYTH9l2,lrHVSNFHnNXPQG67(WdtY^\0F(S
U"(P_>8<jVLlrtlf9^^WrFT$qxl\PX4eF>U?Wr\%(.lEEONVn70:mDcl$0siX]-^c
U"r4ju7hQx%l_hEiplYr4GlrSglx5oxofm?lq&YqBaQxBEY.bYf</XqPklrJYRUDn
U"U5ox<MVr\\VGZqx(9w9E4PFifZurZGu)hgDHEaN#i-?l$+Hm_P(:cTrg4EONV\n
U"0:mT8:qB4)v>h+2&Ad,.=dX4%lN?[e]'*lw0Yq6rGKHc_H7mf8:ti]u4iu;^'w;
U"uEx9:SnN_NHYEDXcrH/sNXYQGBwQ6NO6D.WHr,AKSZz=nc^ET.+'x>fZx&A36^q
U"-GnM%DPP/7fRn>9l6>krDVUd)INgPId$t&tm_t.l:u/zcSHX5d8g$HT/s>^rL*-
U"v0G>cHxg=uX#kp,1w<3,Mbb6fx06wVmJ9n=Oaxbhc#^\98K[L?)u0UBxZ,NW2gx
U"i^XNK_mt6mxpCi?l:lXqtc*u-EsD^Y4PWrrkrre49nnIaxObM?fo\\nhZFhg^<r
U",v.mlEOx'4Gc<aOad_mt5mxmSoZr8ViuGhe.WrSVAuhG1wF69wmEDXTax,X9=lb
U"FjuYeT8&lbCBKpZqWneE^T<&wpxQw0[Ex0#nnO[#H)u^g=dN:\GYrxl-rDVd=gI
U"x;TmOH&,YqcQ98D_POBu$1l7KhhYQrZQ-w0E>oHdL(+\xwdcE8-L^KJEOEx56nm
U"0:m84>q2**v>k>9FAxHO6x:eTx:_N-]YT<fldA_?H=uVGQw\rJ8aN$bWx_DV.Ur
U"Z(AK<V_N$XXSA,qpGQw\r&U$AdFe=440rFgDuYYh2+H[,]3l\gD=GaxBtc;l(tH
U"p_XZn?u5<)l+,b1v<l]2ufxLVNco*xFu5cHXL[Z$)u;uEX$Y_*iiutLGuK4KY^5
U"Hm8.hJi]MQhW>/r\:Vd:f:\Yrs.Gu^\gDQaJN8Id]$dJ[sl,ubPgxcRRdwENWCh
U"hQ]rh*vA>gWmZXfNj?h?kzAgT)1cv8R[hBpQwKX+Mo>ox0vN?<].OI[&G_0M^%a
U"FR(*<wZrjQGuhgmDEaxe<Y\$VvXqnQ)u<gtn_Y4kWr8G\KpHipZQwX.k2\ARdk=
U"^56rZVsd?:XoLM[#O]l\gThPaNmHoZr7cGwueeDWr7c3wqXVX#h7d7l,X0sXWVQ
U"Gwt?76r\$s1cc[p]'*cwX7j]2ufxJ>&NoYox0_ob;#xY)=H1lrX2w9P37vZExSh
U"T8AlLX)v8Tt-^r(5ZqXQq.Vr(a$qH>luPlr:SgXt6Ix*m-?lhjBu.QN4a_V_*qt
U"\jfuu6wqmj9p=7mxKuC1BjrhIo_Cp(cP]rgEO/NVn0a:mDlmb*v8qXujuRA6xsa
U"L_<<)Yqb5Qd8gn?\E0U$9F<mKxK9/a]7f=:t6r#sVXYYEh0iKSRXXWir=QwdXMT
U"$plZqlY(wlgsDfYHO9lrlBrHV.FJadRVQG7jeWdg^44=K\4,XAhi=FB_bfW%7=w
U"Ix#iACR\q&Gm_t.j9u$D?gOUCWn.-E$g*6v#KocIx#aUzmxXkW8Z^VNRrna]qH>
U"futkr(Sgt/$sN(BVGM5Wr8Q^8>Prj3_Mxj=q^F_h0*%.OHa8*48']wu^6NQD:DR
U"rhXBu^1fwu6w+qEL)Qv0o8OaxUJ2>Mj$i_*0$fDCWn>.E$ga*vl9uho\n*XQ?5c
U"#H7j<l'wvlEHAi'pE6diDh>=KuSmNC%p9mnnM[8Z#kxP$rX3w[qVdJ\hd7lU$Gw
U"KhSQGwR)6x(bex1_:t?iR9Pju.uGuKdr9>\rbF(HL)D]T:fjb(7+$_pB2KrgTbD
U"_T#nKPHxKa_Idr$neL;j.N,ZlH:h^'JEO/NVn0a:mDluhkuiodm?l9LjuBaQxXE
U":tFipr(XqbcGubPtOXEl*H,h>TP]wKF6x:eoxW_HPFifZlrllrRXV8XZ$d'pe8a
U"N)eWdQ^U,2w/a,XjEsDeE09u/ukXfx(p_U.^ws:0Wumk\E8a.o_ose%x8PYq+wP
U"oxgNXxIx.mv/HXFJ[D/frd/wIS,NuYg8DhRd7l>=-sxP=/[rPOiuF'Ww9E.lZY*
U"'GYqPkNrt&Pn^)v8/Yq&^Ew'6NO/DnSEr2BK_rgdObh8AlT(.sNs:6CliT+JlCN
U"et1f75Wn>.E$gs*v#uVzQw.IjWmnsL[x]kYrvY)K[b5NdNRWtn$EXTL%uI+fx#u
U"Rk(#Nst=X;okd=uopAu^k1wJGNuhgN=jIx+:Y\$dFP[T3lr*gx<%RhGo_ddEc0M
U"(x<+ox2hwpm\;JYq?kehZrSm3wmnI6XLqh>=uppQwPJr9m.ttcF8Yy;uI?Q?.,b
U"1v<l]2ufxOVxqoHxnMWc$h5jup+uVtg8<:c0uG[Wh?_fTw'u94fxNf_u.]wRPGw
U"*^QNJ_?8[Y#Q>u&kcrDV8XoIx.EIzaN_SWD:Hk<VN)SRdwoEDZEYF:uBYQwxQn3
U"a8Jnt\8Da*l$Y(Igb5-dx:6\n0:m9x/iPX)v8QjW'?u.(GMFuDH#uR(3wA4VxOX
U"GN_:=p\iLx^P7?HnNl=Xc9kd9EuFAK7<VxBk67tG?7*sWjk6RpsixZ#igERlID]
U"6:'vulB4O&Rb+vRT[prf=*ABS8EfGFd^<)FfkVq^d'/#?\T6SA.3oojddW1L)#I
U"?D.sZ\v6KHJk_=hNAk?]V<R']\[h#S8y77S=BS+;V=#0Tpv77RgB0([\sHnRjti
U"_\=Z?Ch.EwJXEwKy4kg?.$,6r,s?BqDdkZ94<E,Wuqr*u^dZZy8lEV%(#k<SB7$
U"w\YYfNacEV#v\q],_oO_#8y]MM0gMoYp[)oOZ:,9m:4^$rkxB[TtxIv?N(T%kdG
U"+61CT(0hSy>r8QBqH9-AHgAvrZRuFVEM7ON*rR?biB.M(mkFu^\-Z?;,.gwHFDE
U"]RMz?hnq7^8v,6D_wcALGjrwMFH/emaR6^x7x_MYphOrr9NkCs6-*\6uxG>Q^va
U"/rG[2>pLg:-mu4SPi4^sG_^gjzYfp7]u:k+j)VsqY5uE+Jg\&A&D'o0wxOkWr/9
U"XFpuCe^$:Qi2jkT4ZZ%23OvD'DuwhDoWhfIcmpu/vaJ5SwQ'+49nT,g8sSVV.l8
U",Cx4wtGoZP8OAOq;=Ulxptd;,ZcTOgb]KpQt4bbqiUxrPtte->#x][w$Lwad[a%
U"N+A9'J2=pV1eJ:CD=:x+,Rwz(eLk%$i<<<7f'fN#M#%C)6K)l2ej?kKlWB1dm1w
U"N4]GK$PKjh>+Hqa#B&x,N(UzRG&nRW5r98pJ838vK<jzx>>1NM^]r_Q>QHV,kzp
U"T'-V7g,j%=01e0Pe:Sbu*V<#a1><IB8SImI(DF.FmFNk7S:7_[L1?I&.TaObCo*
U"m0H07B=F=BL=A*Zyd*#6]m*SrY'F3F+S,5e$99Vv'YQ<PLAS[3Kp_y1aLO.=_D#
U"roW:3]w<-INOlGCiNzo+q/Rc&kaeW_Ss/:;R#]q&yIxjybL1TW<Un+yR,:qjye*
U"hAy_*1/C8_QG;/.+m:ZZO<bDkMQK+3QYQ)T_-xoiE]=(Fdo:I7jOJb4MV<[/%M:
U"vJDg[f[.dzpV1zX9Q%XA4]K_zpOeyi&t=%=>>LD-T3gzzQfM$V%pPelzKEe$Tl*
U"$y>ksP_lot'V$J-bl.W$Dn.Gd0ghlFM$a33$HQr,9aNZO,QMmCP-FBFY$3tbK2&
U"U*4k#42aEnlXn$n-GK,9Ib(F21q-CAvKYa)?gcxVU=z$Jy4L2cE1\WfHuAn_L4F
U"Ad^E]]^^Y;$eA7NfgT6$9EuO3P.zQJrBQiwNu_^/3#xEvT?42n2t\=/fb<59W/2
U"5j69mj=xm\YQ?4R>(=<G=JY#'>wZM<)9e0sBq-,XFMvA)/AS#,t60j9:f+q^HD(
U"C^===n$;6HPh87r>B9ZZ.ro,vG.?#8NHjoGpk7oMj6ASxl3KhoG*.kF&$dORFV5
U"(^K1&axPv]eHI(]gF^)6Kk]$-TTc+$BLOJ2tYVpbmMhk]g/0ZBG[G^=fkO/0m/e
U"AHBb\m\]=OIBUlIU(Xu87tr'))6fP2n%1*Lb0FEH7Jj=7LHQmYhrJ#l<?L,4lVI
U"7,t$:\ZY8K1bn(YrMQ&HG+B'>r?aDzNWr+V_z4.r36PIKIvzoUWx*4J$I^7_yW$
U"R^:^7;6H;h/bXzlPAw%=X^ZCie&cU][QQl<0DD-T<Uu6Eu2^%^:^&/&/H1aTSnj
U"XlYL1]q:CaXcJ:Vz'>bE#E?r.,Mfe6aLSIm/lQ*=x'>2F#EHr?>C?]E<Jl#m_uo
U"w>DHaS%>$q2_uO7>Yr62aLImJEb2H$NTZieK1a&kvJXLU4fEh.2-a\Pn/'coG(R
U"X7H^rYGIg6aH8gFHW98DjaoOMmIVmem4k_nC=SrnCnadxBSAt:i\Zc+BC#Mg#_^
U"_AS:hAIt_eF:%OFb2_cew8sZ2eZa-2f6fEkmWZ+i:3zUCR]^QCIz^S_a/V9]LCQ
U"Jx9:K's=I4.ShexU4fE</x-a4Ym+mpt',M#4Erzx-aFlmkM/V]fAxe&kAO/n%Vm
U"3c5Tgdc5++64KB*teUfAOc]nVmWV&YWLMS3=RCh_arcMkJB+?2c+EB2p$K]6aFi
U"m_Ks_s4=B,i8c+-BRLv6cBVphMtV].<s)Wk4%0e_2_ab=Icl-0BHImo'N*ujf?i
U"E7c+BjgJ7:B0<JB#UNQ]t:Je<w<OgoV:mM/)%2O6+t6RuY);+.G%pCc]DJvlA*C
U"ZRHLC*AAJZv)#?h]eOXks[V^4,4msmGL>&etJsuB:,VNXbq$W>wfS2-5(em]zoh
U"DTm$P%Wse[%tb]lUbv9>8mettSoxLT)H;_do#s\8r0wJ%(8e\->E5GsQG#fmUC^
U"HQ5\LK%Hlq8_61.9Fj%OmMQApSb<U?c(6.LqLf%uxr<\wu^-:?GEbsZ^q%;ZP4;
U"k*iA1a,\y%LurvN[Je0]xns7:RIqG\7f6s')-;V<W9[;gV/N_TtG-uDW*V1<PU7
U"M^gNPK.xMr-F*1bK/xYx-^j27ND3.zI0&-T:Kb:7HO6kl;PQ1%kVK'hG''-2SHK
U"Z1D5z2DH9QJd[&#*0$A.RK]*j]?*:9pTKE6zbw-S=R,jfI8LjsCfoOvs5'0Nkn[
U"?5A=d.0,?7>t76ZhT*#rr&DNh1r7\.*-3Y\Q(=jA?([=\\z^M4o4\H=Rt_Rs[tX
U"V'9oB5-AbHF(]8LF<Oqa=p:3fjcE9S/q8z/f#2Z4T3=v4r]NxdwkCg3QSgzv#M+
U"\1_fHCggcpyga7\BDA0HvWTrm>oq'ei<R0#Q\9q-1;iTUc#1?<QlEdR;_H.pDhv
U"iZY[XMD3V9qJu'w[RT-'K9>pBbt4)dB74;;R1ZRc,%SZ#/91J2h_9=llT&'Z/7F
U"]/<Ao\/%YxfTljTi$luMU/ao-'$:ufhH.f/%D]sh'xmSN$P8lrG2\WXniS,KmYs
U"ZqXx>OLUKk)zPAZK0<,?iUHwvotX+$g])LuBxjkc/KkMuYBT$<PHoUG3Q#C\4t$
U"QkmBlt^_eMw'%r)H'60\w[Y^Tr0E6oJ7]HhL*<P1W0tEX(^hpRHItTG-pa61FYr
U"'s7u7Vvo-a^m6d]lC=B\#;>[XQB,v[ER46,W>J]-OWE6]3aY&S&Gwc,V?aG+6Zb
U"7WJDeP/$cCsainV4.imVYg4h^npQXT#XuW*m5X1C1J4CJGFG1(v.gGaChkW'$=i
U"5IHL6:]pG(#iT3jf2M_q&__#Dhf^ImlM^bCUcso9m7G]bM8[TYsNI^9l]CaS(SM
U"b?T3te]/V#=Fq;vQ-d71VOLhuT]MSE)CdLDfv/F#R$l2?Za?wL#9JC4o4f-$FM+
U"wkn)K;soxv-]DwM%ND=NwVES8H2CaFdd,O.^f&\kB:roQ9*BYM?I^y7j:'V,Gx-
U"nu%%qe=h$\AW?jDLwb&Eh9\TtxH.h**GAj2fB0]-KhMO=yQ0rrSBJBt+'-2(7h)
U"$+L\Zx(ZwS<2LnjY<1VpP1?W\crGT:/te)T>l%ZT9+x1\<E6l0TB<3^T^lBn'uI
U"Tk%tZcW4E4k%EtRb03oU>2A(L&TQ5.,h-BHjWkC.vY(kAe8koBj8_Bmsx8P]v=:
U".3_$(\FTGeT0Y]o1DA/-#d(\'eGPX3tw_H8:.9/FT#NA#Bm3g%$[_O.TLKM1/VU
U"23G)Qp'e13YCFnaJ[CXe9S2xlT^'eeFidG7Et(-voP3*Jt?9NBZIW:B]ehR9^a/
U"T6)]ln6i,.\_Ii)Gh)]B'DfV>]%[,Y]Ywa<\Tgz\B;nxi]HJj)LWcG&;ogyoV6Z
U"I0iSKD_)H)+UZkAE:F]18Mj<i?P8/zLbsgPF$na]8Tb*6Bd)RJKc]Ug5/C)\_p'
U"tn;I(DKgjZ5qZNFUTar3bviAg3(8_WGWToWMXDmkjR8+F^o4FNmHsiEFekd/LTS
U"kt_;1GmH;]2TO2rg[id&LL<iTOwLR-nB8]Q_f5HRg(QlXeNXn)advFRGwlUG+bF
U"d,=ut8A</^0F2vdVvWx;mYHMWKDIAktVlRj:*PnLM=r_04%t$G+_:^3^DakxaEo
U"hGj+rmVf_)I>AkKt3rEqX,I_Q<a4V:EJ4\]NFM=G(I1V>o1<M%=0/LASKvY0hhL
U"4](/)U,&5B?;[phB+7kF1'r#3b-1Ek7uo_3f#5O^s=D=Th>OvXFo$'ts'I(/gf)
U"7O4\B3F\mFa$\Bhs]3:TQ8]V=L;#Bd5S.9I7%$bS_AKZp^[RctBha'fhmg*mG%;
U"%BgH4;#teuZ1j:Q:>reuj4f*E7#YWaoAt7(J?[\fj3SDV0^5yc-Afi_O&fE$.dA
U"KEb?4%=l-mRo8uPpEmo$1C-DbC[isYRu\38Ow;4Ver4,J1Qg$m?eq0NnA[6L3wu
U"&wYB)RW_M^qCfY9f(G*+]aEg4,w&WGRx(heu(7Dd&Lhhro_rftPxLW'nejzZ^xh
U"OO31Xeh*h\[)Z)OZ&C+YJd*:4D%y1r$,%'(1AY&h>m+uppTL.i.%)'G/'wNjv\S
U"&9/;2HsLtJKCUjbg%duRLORr,v7,_4DsfoRsTCtMh4h12>?+i$\[^X^lGhtF$62
U"uXtvWuHvp6WpMhF-IWz](kh9wXZXJT^>,j69jDfwBcWZjeqSkT'^Cv8lQ)lR;Tu
U"'g5R4iR-g;=Zr8j33LNPB2W5jk+3cC$vB.y%:YwxhC_*-1f6;8E7_vH_n+3GzrY
U"yu+Kik4p/<+bP3Une>lRobC_h&R%An0[Fx1$,Jb;;s+bWMS7Q5ml&uSFWC+qr^]
U"$SKmWCtQ&p)M9$<_4I]8Jk_eGsL)%no:jj-C=\1fLe?(J.Re#1M<RHr'4\uS1$g
U"vAXV>^pRrhV#(p:.h+g+Y>cY#Xq5RAl\#:*.(uI;iGj9xD#D:_7_\9b]SG5+rRZ
U"AdiW&n?dh9ef$YVb,';cs^JQU)P:$m\B1,PWPRU)$X]3Eiao-ah;guejaNP\L>(
U"DgVI#A^roi9scka35TMs&LM#gIYKhlTcewd<#ioEQZ9/U.bJPD%a(.;)]<Q]HWo
U"WDnL+=5?bjoM(fj=HGPldU2jCzjmP74pTt0TUuBSv4gvt05O_X?B^cq&l(&9f+S
U"CPu-xf?=(Fs$m9WMWq_ZS3LFja6h=LsCOdd.E_:O-jJuV0qI+d=%qLrbrdl1V<<
U"]E4KSLkGgTrLSbX[m.^JgD-;rlqjsPJW^K=>QJg;sF[X,&MylK-DM6M92Xf]ZPg
U"P%%8tBcbyB(7IJ.dlPu.U7ih7N.Zet4EfEk.P34wP;OkSS-n[VL;KvT&sm&cLT$
U"5GoG;p]Eh/0n$ul[i%hRZRmAkssdk0%/,W+sg<,h[;LrLjrO*L)71S)owcE'o_S
U"fK[z=Lqi=6WJQrq$i=5/G1^CtrCkZ4:EK9'kjT2Kk:leSMEgg8nJbdpP.F6Z4R0
U"hopLFQ]Oqz\YFxcE?dthZ&2hXRJdNBeiK54xJUCYiB4(>>_ZjV.X^YjE&)Xk[rL
U"GD_FrS_VhmrGw(MdQWu7t#qrTI?[fTl#$7v71B$/8dNt_9oQm'cS9X<AqIKR?)_
U"VJz8h1o;Hit;r+)??^-*Kn9lNC$q6o]8Bf$X6/9ooL-IZ(H7dgd%>C6pKzPb9el
U"8%tHV)q97.HYmvSlRu_jYd/A=3fGbdI7UQ[#iLu/1=Dc&Se.#Ux.2riw,cFfL&/
U"Pc'wqB'L9c8$U'#^qwN?=[(Vlq(&FHi80kRF$/?-(xD/4K(-LjE=yeJ_k4u'u5S
U"d^9Ca;XaiqsUVg5Y<MGQ#sZOcX=[[5kl;\5&>,Eek<5t*]KQeA^IE/_Dp,RBdW%
U"IRGBuf[i*fd%^,xlW^c(j+Cm(,j#I([,F.dxl0:,+x3#x3gtcDh<CfZw)xO$YI)
U"5vG5%A:)QDW0,H*ocl8K<ma.-3K'&l;J)riXCq2Y#^mRuKrJq+'AKypm27=EDsW
U"rwrK8vx:Jkx7sz[CDW7vp-PcK3Fc>KQZ^iibq[];AaY[Jjq3-&y*X_(>$==d\iq
U"<oLbZHptmWCU8Wa<o8k?XvQBHQZy8L+D<)%o'X.Nk&fblSpQv(]Id2*qxU5u$hH
U"e?tb+CnzZdbZti'LGTKadS6biKWx0hDCc^A/58x5T??f.4gy8.UWlb])nBf$ei:
U"xJeR(wIngZGdo]Q:bc^j.hn7eTPT_8_W^hv'S?\b2]'YPIquupUY<d2]a6is'z_
U"i\BWj4_6hFK4(&c>nssE',#VwZ&xM:F)Cy^$3Ig^D*^X\YrdjZ-VP(Pcg3w:LO>
U"F_lRnIsY3$XEjNvRxq?Th?a04adoN\4i;\,P(JzQ^ILZ:&_ZRv^EL:%Ny<L]NlG
U"DQyFOjNIzp3zc'C,+3^/yZqS?Ae7x,&&h$8>InMn=Lw0)ezl(ZY]^70f2sCQ>P1
U"'V<p5[c8;THsY7kV?*\?uq^5g99Z$e(szS(OoU=cJ'5?AzJ2D_QRcxvBCx^K&_z
U",Aq]JZt(3?jy.;\No3k2p&\Bpzf.P0\NDqpCCxA.:q-c\M(Q/WO\5_\ygUgsG+k
U"X=6;zZi;ooSr9bPuK+f:u]Nt$sQ=cD^otti1Dw>O$j\oH63m#J*/%+BGtlC5Z>?
U"C/NkI(\cKT:S:vI0'TdP'wCs,:'J)6CoJ9bOY]%-K(]xx(.$hT%N,odbK^sG&xI
U"xc/2S1xr\%VKsN?#:^(.XKEcnN(b4jnH2Mfl(%S=L0Ve<s=C[OA*</tYuF&#?js
U"[ps\?LP**I:0je0dG,41(<Jg-:5r/Y(4';xRdd\,i'wR?:eln*)q6BI#+EwDq]C
U"=y/U^g5IQx(Y'Y\S%L9)C,>H8U9C%mi4m,mV9q2-nxFWJ>cuB6vWGAas;l(WHAK
U"_akHnUV^xY5j#nTqBtd5YHRtY5JR:P8B2\3,6bm(qXdAvpyzunMxNJfsDa#.b4'
U"SYQ#shfg%a2iqcmaN*-h?bP^G#c\##OsE3t1fkeJ+v4CO;#)3n%43bFBdU(m4V5
U"FpaRXO<*[e;K?J(8a=86/bE6a8CU5Q%Q6aOCtuNXQnfY-YDwa7zobauQ\Tjc:Rw
U"UQ>[KKuR0bQnpw-*j]nfNp*cK0_OK:9p(t'TtDUv6qvj=(F]MvtT'07pHw3i#dK
U"c*WfPsa<=ySxSY#R9\$b^JqJ-npC$%XD#,/WE7inD25J<3BFg8XIBftHJMRP*9q
U";GQuqd.ne=F+nyR*=gCxZRW\;FOx7+n)gY%6fj,5JhJ718#knx+5BJ]t[>r9=(]
U"#b#ec^+GDUsDl=%*k\rj]APNsoGQ5aK]HSjPI.^RZ$pR1t3npLs%CwA<'>0mj=7
U"zQJk_Hrb&Pu&d7%bbTbsIJWcP\oSif/kqntCwP\k/-r6ZJ7%u3&a7b/LrDpQ-pG
U"r,LNrPZ4PQ/i9)V]IHh8E9(^i*gl$]t6UI>UKim%V5A/gCd?Ag\1Eb[TTWc.)Oo
U"v[M:*S:n:,kKb[lJ6'31CnG0PvbA[K?UOHZs)cA5WsMIDPV#Y3#e?ff&a8J#*4u
U":Z+gll\s;6LLIkwc6K)gN['K<br?y'HMBMd*[\9T>eNr]&RIEt^KPi##B#V2=HN
U"NjK%cj'JkiRc1nmC'84D&#:VX>>0SH\J?Xdaqo]^bU1HG-Vezi2EO)3jsSJaVZU
U"XBbmn6Yk9dIdXunX*>O%QH4q[VvwEIa^9mgA&M_np^XA=(?<S1J3f7Q0lWERktb
U"WhkV7[F&$TANwqku^MvNC7ajGXR$l]Feeu=Z%X7R0Ij^c1RnTQf3E;zI#80rA.=
U"TV./A](3YvAZR&A]z3&v6L$X<RG4c.DgSG4ZWA>\KVI?V\r#3wRX,ojqU%%a;RP
U"THIVtX-m9RhGMf+AiJ&$sJkhuMdc.B)mc'*#KCUy2;BujVMA$G>ak>m+yK<J]lk
U"Jp7kJtk+Jxk*L%rQO:vP9]4r:?wjqMldPf&N1ivGG=c7KK%d7R54q_4B,4/O;Fq
U">l)mG$mJ^*HiTQ.snn$hFp/Bq.4B0CqOjq*>58CJj]:1-S=j8I<-Ez__6R+X-d%
U"Tqq/,_55^'iXf7gRLJzB;LgP7,UJilSS1V#=-0]0>$dSJ/MkQ+BGu.m'J;6&(0O
U"rQyJzM3'h;EpQ#OcXPRJL]*(Q('._d:VL3tSxxo_a:K]CI&%f[B/GBH7wBgijL/
U"3RebN;s'l/DAAR1S+A]h(0ARX6FmbJ%\sQ9is-k$m)F6I,5DV(C1Q]*SPr3Z._5
U"Uhgjj?bih<Qlr)?%F,HqXBh'C/NCfP3mTNfW?[5)3<PU>Z5YtEV?RX-\SC^B<sX
U"v9(0-YBv,E\U%P/:SWP0C6x:EdD;1C0_jnnd6cH6C)'h(=;CX%)/G;H;sFnEdot
U"KJNT,'MocUO%NL,qAh;U4C3v1*C[Wx)caw08.M\U,4o2B5Mv;[3>.G;$nMx7'L4
U"ca.&IBm-G88gcFFC54&WWi>Aq1vU.MhcFKC54W#Wi>q.1vUM(hccMH<-x5sL###
U"6L#e1Z3X<%/'3:F4,c/$4YM^o1+Gbct_uw28BXWd%\d^$T4\wbEmRUb9WK*:kx,
U"OZHlZvgp,^9<Ei:mT'2U,wS/[EQ)h_1ndU(u<^h_-L&/Oa-(x/WIdeag91-b/G-
U"=:(U=&?<]T1DgRAJF;Ms*p9VI5(FP(%2F?6?97U*9lU/NgO$?a$U+00;T0)]U'\
U"<&?=+v8?8&t^2PmIW</;04&a70#LAG/qwcLx%&up(%)9%%[%-%PG2JGoGpVx+%5
U"%%h%j%%0%%%%f%whij%rtSgRfx.+rFA\1467zo(T_8oR$,TaRa'm6JBbyG3#i\P
END SUB
SUB V6
U"CXeHJ1wjkgYXMH'd9Ba/8tbe#T]VoakyVVC=F05hlIq<c(,qL#%t2&'-q3#e_Fr
U"&Ijs;WUQ=]MmV4Z)+UOfK#(7Upg+>5aK*l4kO?PRXw%Wrgd[Hf=>LIm_74rwKbl
U"5xKr>$U6D-ot\IS+s<4e'VoT[IqxkPv0f>g,>>X/MG(q,qq^I-dqNFb85-_S0gM
U"^sjVH_^NHq[b8[l]OJZ1#J0k:A,nGD<0w]MK)F0W29P;jF+sAMq+Xk7L%4ZEt)e
U"0=5aSeGmqHHd%bBn(IgABP[T=Gv4RecEb=YtGt<$2kcS]C$Z7U^NRXq<ANq+S8p
U"PHD?#eia$F#DNw\U1nKCigBGkVcI^aZx_VKor5'X8cpl.ljX+mdO:aFMGVu#L;B
U"pvr^aAjo_US^77T[]LZo,bkzjNFp?0^K3)NFd+=on9<q+54JRFh_hFSatO&bEp6
U"skYX^Of+0=A_8F%zw^rFDL/PbuP\0tnhB^4BrUxnaTX)d?n9=YnNA7n%S6xX]1d
U"ZKcaP3g,Pzd#tI-]4Im'/u,K;q[XtEO<3/=0IQp]*uNAsQjH0FvJJG.?TjrxVkJ
U"+%bd/0Ev:fFr4A+g51(o^73]rC-JU?p#DdRy\P%>)h-0_e'C1rS7_I5rR7Y(=DG
U"Od[4;L5<Zg6J>M-0(Yg3B;U<U\(q<l1n+K7SR^<K/+=5V*$7)Allk1$\T[5=#VV
U"T7ukJeH0aGA32*30m:*5E.e2=Um&/k8LT0):_4WEg8B?U18ai]=:(-\EwGWAVQ#
U"6?fs(4hpD(Ws497Ni_w'O1NP.j?$^RlT<rN#_%3oGNGi.9Xs>=v[c=$M)=Ke[M#
U"b4_M)=]K1sH#VGu:&0mX]#bL1hOU<i$(]VwyS*EO^N=xYqKS'$e7e4UA'jYEr8P
U"c1^S1EKeEB3d94W*-?k8C3[-Y=PRs-bB[]:V(5NKQ_e%QCAo';PR-]b-L_/_49R
U"+1b-L3$Sp>A:GBhK/A:%KDg_E+qT3mKTg_-%q$3m0#g_k+q43m0Pg_SFqHA_=X4
U"wG2,gm$FE$;a\ZI?'1uq0fg]goGuq<3bC;]LwdP)pO4v0_CJ3sVe;0VOg)I_^b(
U"xUbxa0bg_eEV(GZ>-iIH[o9(TGx-_D-[;]5$]d;eSY2-_?[I($-$;K>\J;6-Hjo
U"0=gS:JD?C097R1b,Gf:.2C-UYS4pZSZ761bm*YY>'R9Y-$SU)'w.Fe0h+#b,LB_
U"559.R18,jL$SZ9Ze36^i]>\Jd;SCDRf$H8pVeE$fW'P/aAoe#Al#P^P9-%h8E?%
U"d6]f?%%>o,K#?PBI24_0hE_=qXSVi$M=C_=oqSViM$=C_t=q'RQkJ;D)_5qAg$u
U"XVLVD_%cqG.oJB8[&s8cSG.vP-<o(LM.Smw4oDEBPYJ:jtEXnf_%49PiorfqSF9
U"&M'zkdS4./ZY1ob,dO.^0:<#s:M.+Xw4-EV#3:+7pP,p8:<#;?E.-W[O4rs?<D4
U"c1.QAn\k;qYl-Y=l*es.R?ZM=Pbf'ShITn4i0Io\d_hG[rrl45YEHWwhjUneAd\
U"m-[5OCSz.YB7D.Nes5ic,uw,aC)]24Q+K;'3+F_;/Q.FikpgCqsQXAcJvc%8j^v
U"Sk8BHmWt]L)a*ab.-/_K.O:<jU&3?b,'A,NCx8xt:Rd/zKSv8&)t6Ob+\uWNnMK
U"^G5c9h7kC-o[?B=,NCp3*b4nLYCFiI]WMgGY5K)_WsgNnql/P=iEM$H(S4k9^)C
U"BmUhU%E[^jhn5?_opXM5/>zCC9ylTNc0pI)+wC=eylUcVpp$I&;#:uu:Z^FuNYL
U"n5.tS[L?\A867Ea=H/BCh1T6#E6,\G&Gu9X2gMOR6st]\Ycv^bYD9SW^TU3(>6g
U"ZgzDmdk#pUnE<ko[$wEFdam3l^'(e)\]^Wt7\LnDiN4OLe<<lWDt$X^AKS[q'#,
U"tAbt:uV$hA7G3CJ&.o\'Q8c$hd9_dBsq6G7Zi-Z$*B1RXEjrq4UTHX.55+BHV#;
U"A:1k:d.;os>xgMwnk9Ws_n[MvA'EirIKFU=iNkLaOcNE7S-&mucjEr/CY30A8G/
U"4NfCo\<a1Rl;l65hjrm;5ujG__L=>2$3*S4jlxQ5ZuxQAZ'zh.$742:z1GiWNU;
U"fVVmo/dTbi9h*ll/RbS2G/pCCm)6Hlj&Ejs-<^\7Dh?A.7q;_d_-B.1Voo:=GKo
U"6:=sxI=PTcB?E^gyU7,.7Ya<^wPOM,P9#2e8geB6L=^n]IJ0&ker6>Su*bQtN+3
U"t)#+,eAN.D,H0:#fa>>ZKBN&1_xik2<=ti[OsO0mou\ufls_^vu85*d+q2Yju$n
U")KFaH(GCIJ/t=.r\1<NzSeAjAaz7UTPD4i7vt_d4ZL[;.tTXS:f[W:AZvFx2oA2
U"uA3jmtOuX-^F:V]glgn+P/w3ER7Jz3Y(dsapA%h^bAsB8/Mk<_ew)M#jk5c0nqW
U"E6erQYp1<DPS_YfIGjfa196%NE]R3eA4j]?GAx0\Tm_(?92.K((:&Xm_Y)Z9e*r
U"rsy*Y5idNAyi6Xz0%yCs%w>$v#+sC_Qj0j-G,1D$kDP2jdrkm2o:_'=Jhr6U'w_
U"]O5:4J*mJ+)>GQ--^o]QsSQnFov6hD-*k4oP?::t)(8sx%O^N(n,SpL\0s_%LUl
U"ubFs,Ulheg+2ay2m7+9hGG;(FLQuWV/MT:*2GmlsHTCSyv#mn2NW:fq>j:bFGqA
U"zUBL5#-Vu]4]F03gEY8eAP>0m]F0o\m:LM&A7_TasA^t#x-oZ=wc1NF:PsL5X.^
U"w;#dM\b*4Nrc()=c<M=x:k5;kcTfl>,R=$Yjn.fB&uY-1jjW0ULu[ODUIOsZjdT
U"$o\6>ffB?Ij[+TE3aGJ#056WAh4x$+&QP;6GZ^:eETn*9FVlPzcKh:nqd_UbM#8
U"u?B'kl'uI_BjN$)ql?Sd78EuWK'bu0o_r\m\8i'w'\r]c4-+F907_q2dT-%hha4
U"?KQ'/HM=RkI3S?iIy0kKQCQH%^:VcHD?&d&6t_Kq(;3g(srO9.+q?&Fn,kqoP2^
U"e*>.'U-aQ$_E4-:B6DkOua$0uxwliakG(2Ha:S*(+h5iZEM_)=+9jHf.YC2:QSf
U"XpEK6#.GzWl;:3=XYv$#%Oe2:v_A^4.K,TArh.vsxuj'(0Bn$.lLBRWY&aIuL/v
U"yl9J;hG4&*f+h$wMfaGx+j#2Y?yG9tT5K,&:DzP,d:Y1e](n]E\[tm#YEO&-I_I
U"%<TbBu(QF8Ia=O6ndA[&\&;,l7h9G0/WT^M3YH'I-6)].BC(3GY%^*W$K6$(.w$
U"reD(BI>H]>F_6U(hA2k_?AM-TK4.jH<j*ips2;)Jt#HMA4R]Z3SnP&)0V-Q)2[?
U"n(dr_Aw\Bn-[(c'GFcqElXK90ttIK\gx$M4Xf%m=lh-np4<o><_,V*jQOjwdNpT
U"*k3OFa_\<oW9;&[p#/c-mcS)EXBL$b(ZViMU3a4U=(Z_8xN'5BfH&MUe/:yM<j2
U"f&[9Q-Qnr$qWFEbSc'g9QP75*#4qMo=keqU:P.)%Vw<-s9FT39:W#Ds'tHW>Tbr
U">gTJ/ZqBh'NikrA+VNC_da-%44npExSU0,lnsj-2AR[ceu':]C4hb7cKv;]g3Ct
U"V1]3.tf2fc)P?wki9)m)\EZXL4Fk(FPke;:ms87+k<\HW2\qtI?BsNbG2eCR^5(
U"DKA1I.ZQ%cwjPr6H8MJc8uqw-rdTdQx4q^TaCv4r1OwBRz<GCgb;ztS;73pr'/p
U"Tqt<-bKJ3aD8HTTm5j5WdEY8+&,caTFf=bPfl[<1gJ<ACiZ\;)QCEuYeDVW^*nd
U"XWi0MmH,'5)Qb>W[\FAY,.%Tl)xm[LM19'sC6iBMt$m&\wU]'Pd8u:vJVvkvt3X
U"BN?\]4OQ,YtAg;mP$8vGPUYL*(2Tnomz%dI'pMkNHScctW']h_hy07Nm&zA5a,,
U"R*A[>mg^>:iEb?M,L'MvFl#,BD525g?45BAIfRI1(^7hnT'LYyv]tn^S+gbBh7&
U"GXCE2-=.1l9FOhK\(:C=k&(j&3OTM;3:A&,tmlpKCHzrCn\<XJj9ld+M*lm,NED
U"_-hYvjXac>hjy0g9-6Q)lBjwFRdmjJ\Ej'>Y*2t6FJR=C*MC0q&8\w07j7HnWKo
U"'tGL#B,#$CI-Tu3a;mMgx5:6WE+*Gh+0C%&IJV6]&B?%j,koKl?AqpL1)OB/wX_
U")dEE\nVoX],<=R9k&+\C=A+2vBRY0y7CPX1<N*^2e[>o[_y])EPW^)^iEohODA$
U"::/?#=_?^+e6)H&/t]6QhWd+SA6Mp1uhr0*,E_KwqVls87-B9=h%'E1Z8Mr5RiH
U"B)\CEOKl$Z0f<[cWBR&r22/)Oe:-tB$f9(s?u>DEHq=3FV9Av08/,dtPmaO'L]o
U"U6$F:uN2,Fb%:W;JMG;NJP4l-Dj-jUgY&-Fb:p=pN>jP'r7V%r6cA>^C-+1qoXA
U"nj/sSGRLEAUtHNl#P'O6C;ZNkm(Bs6B#K't?Ns)7l>RN]78tkUviKk&V9LD(x7*
U"c=CJnnjzO#6<-:To>$1/gZy[$c3#Zj2zN.28=NTp&0Ffs)A<<Y54F>.T1AG:$pY
U"IBMEGbusKr\?8Aq0d=:)JjtJ8^Iq2s)ah2ZLMlc(u_+E_52?R?xK'N[FfL,1dKE
U"-_/6I.Vb8Z/t3B2*J0Vt%8-\;%BT5ifEE)lDhyo&an[4_Y+R0X]O8u&Vj>CW]&1
U"Z+j#YV)RiX1*o*?kHd0XZN6s-6^9.HJ1[h%6kRQBt68LhlbV$r.KSwbLS.)epr)
U"Hc0?(N/_H7+dVUY..ATkNMppg[EJS;sRjq.rex=t&so-Dtr)KSryt=3ilfHe_<L
U"AjrSC1]4xA([f(xX28%EM?uHrJ,?D_\C&J[5\/Cm5+)dp+$GVPYSA81uiLVf?^t
U"wtX:4x>PW9z4gd_9Y(m;J/>y5^.&K]^EG,v'20AP>,_?^O7T&y<]\EiOq[7LW[M
U"u$6'Ih+&w(R'=i%nbGs/p4PFQ%LF\-2hTL5JsMg6'sn+IaVNrl:J&a=HTN^b7ka
U"KM#86ND>41HQWAThqycRK+Ha6$0?BICk<p;pP;[nYI^3=>hkI)NX5#9m63rTTR.
U"?[FjvmT(b1;*f#=KLd5>Z9uG03/27cF:E6SEpCT\<FxV8/F<U=:]/nr]K)nB*T>
U";[l^uh?jx8C1;#=n;#PEYFF#*G**fUhJC$5JrGPw\KcFBOWalm9D0tINEmatY;=
U"x&bx##ipq^/l+2=z$TI%CZ.=-Zd[iv.;EANaL>mhshp91d,ivhD3WGL/7QwoSNk
U"c'95Bo=<]V;pU:G7\mBDNK'Ft+xtV&N&up%()9%%%%-%;tGDGNIJbo%^'%%'Fs%
U"%%.%%%%ijrf.uS%nOwfi>,=<E1c>8tSLBESdiu8JwSbrSsG1.4;B#3nv?p^Bo(?
U"MVKm+h87]8cdwH]+gB_MgzCN<iMNn25J[W.i>0A=E.BL'=WZnM3g1aj2?Z7eG5=
U"5pMWs*VF]$S2*-;a+k-V7:f3#k#v5%l17Bv,6&YV0]([6)M3,BEB<%r7TH[v#*r
U"43IYcH:<WZA-=+<hmXZw%lC8M+s9jbW';lD.goW$c0/p6XUEiAdVBKMJefgh7Se
U"F9(o'K0SH*[4;[2P/vKltNvZWd)+w_p(e\DM[w6:bN^#jN7K.10shyJ+1:Ej9G,
U"W$)I]Ed6*&__9quAut,tNG5Q3ipNEY9E)iV7=%9]Og[SS2#ysZpf\$?u-V/T,#R
U"Z?k3.A%H;v.6iC^7w?*m*_lCn*^l8eRp9.k680DiLqNSuNY4'hE_6/&34YW&k95
U"CXyDtNM':5k3dzx#FiohZxEa*OlrpdJG6Y7puxiu_cfwg$bhRnLBaGpK$d)R;V7
U"SjpP;TJ#?A_Lqsr+eKhRWo:H1l^rXiXhmqwL$:a9:VCpUYUB<5oN#?cP46#)7,?
U"sO*+Y*Ms8?<YOwiBZ8ap(WM/g7T>CeL*c3_xWr]tdAv[RDLoNVI;Rm.jXZ[XW/e
U"gn9&lx9&(rBs#ABLKFYoiIFHE5>[1Rl1$3_fd+>6Eq&6CfBOB?:c8I_8.:>&9C/
U"Tgp%uM9//Tgpu#M9/T(gpuM.9/TgApuM>%Odup%&'9%%/%%%I%%LJfBGf5-iS4%
U"%%%4%%%%,%%%%%%%%%&%%E%%%%%%%%%lwVS%xuxu%p&'9%%9%%#%-%L,JBGxJ6*
U"*G#%%%4%)%%,%%%%%%%%%&%%E%%%%Y%%%%lwV%Sxuw%up&'%9%/%%%%%%;iJBGt
U"f5iS%4%%%%4%%%%,%%%%%%%%%&%E%7%%J%%%%lw%WSxu%xup&%'9%9%%%%-g%iJ
U"B:GYQ+'so%%(%4)%%%,%%%%%%%%%&%E%%%%*%&%%l%wWSx%uwup%&'9%%/%%%#%
U"%G7fCGf5-iS4%%%%4%%%%,%%%%%%%%%&%%E%%%&C&%%%lwXS%xuxu%p&'9%%9%%
U"%%-%Gb7CGTY;,<F#%%%Y%)%%,%%%%%%%%%&%%E%%(%w&%%%lwX%Sxuw%up&'%9%
U"/%%%%%%204sGtf5iS%4%%%%4%%%%,%%%%%%%%%&%E%%%%i'.%%&h%qSxu%xup&%
U"'9%9%%%%-L%04sIG$E*&q>%%(%4)%%%,%%%%%%%%%&%E#%%%G#'%%&%hqSx%uwu
U"p%&'9%%/%%%%%%9,T4G\+(\94%%%%4%%%%-%%%%%%%%%&%%E%%%'/'%%%rVVq%S
U"xux%up&'%9%9%%%%-%79,4GZ8,Ft&d%%%%++%%%-%%%%%%%%%&%E%7%%d'%%%rV
U"%VqSx%uwup%&'9%%/%%%#%%YpT.G\+(\94%%%%4%%%%-%%%%%%%%%&%%E%%%&u(
U"%%%rVWq%Sxux%up&'%9%9%%%%-%:Yp.G0(.f8&b%%%%'+%%%-%%%%%%%%%&%E%7
U"%%T(%%%rV%WqSx%uwup%&'9%%/%%%%%%#,T4G\+(\94%%%%4%%%%-%%%%%%%%%&
U"%%E%%%&c)%%%rVVw%Sxux%up&'%9%9%%%%-%7#,4G*:I09&g%%%%++%%%-%%%%%
U"%%%%&%E%7%%B)%%%rV%VwSx%uwup%&'9%%/%%%#%%ipT.G\+(\94%%%%4%%%%-%
U"%%%%%%%%&%%E%%%&V*%%%rVWw%Sxux%up&'%9%9%%%%-%:ip.GH2X%Y&]%%%%'+
U"%%%-%%%%%%%%%&%E%7%%5*%%%rV%WwSx%uwup%&'9%%/%%%R%%o3etGf5-iS4%%
U"%%4%%%%-%%%%%%%%%&%%E%%%&?+%%&&tiV%Sxux%up&'%9%9%%%%-%3o3tGl&X:
U"P%R%%%&G)%%%-%%%%%%%%%&%E%.%%t+.%%&t%iVSx%uwup%&'9%%/%%%#%%24et
U"Gf5-iS4%%%%4%%%%-%%%%%%%%%&%%E%%%'q+%%&&tiW%Sxux%up&'%9%9%%%%-%
U"124tGpO-DU%W%%%&G)%%%-%%%%%%%%%&%E%%%%R,.%%&t%iWSx%uwup%&'9%%/%
U"%%R%%ipT.G\+(\94%%%%4%%%%.%%%%%%%%%&%%E%%%&T,%%%rVVq%rSxu%xup&%
U"'9%9%%%%-j%ip.pGmFu)S%%%(%#+%%%.%%%%%%%%%&%E[%%%4%,%%r%VVqr%Sxu
U"w%up&'%9%/%%%%%%:wp.GE\+\9%4%%%%4%%%%.%%%%%%%%%&%E%%%%]-%%%rV%W
U"qrS%xuxu%p&'9%%9%%%%-%w,p.G=BC]0%#%%%D%+%%.%%%%%%%%%&%%E%%(%=-%
U"%%rVW%qrSx%uwup%&'9%%/%%%R%%tpT.G\+(\94%%%%4%%%%.%%%%%%%%%&%%E%
U"%%'d-%%%rVVw%rSxu%xup&%'9%9%%%%-j%tp.RG/x*)2%%%(%#+%%%.%%%%%%%%
U"%&%E%%%%F%.%%r%VVwr%Sxuw%up&'%9%/%%%%%%;/p.GE\+\9%4%%%%4%%%%.%%
U"%%%%%%%&%E%.%%m.%%%rV%WwrS%xuxu%p&'9%%9%%#%-%/bp.GX+%;Dv#%%%D%+
U"%%.%%%%%%%%%&%%E%%+%M.%%%rVW%wrSx%uwup%&'9%%/%%%I%%jmf6Gf5-iS4%
U"%%%4%%%%-%%%%%%%%%&%%E%%%%q/%%%rfsV%Sxux%up&'%9%9%%%%-%;jm6G-?4
U"nS%f%%%&e)%%%-%%%%%%%%%&%E%.%%P/%%%rf%sVSx%uwup%&'9%%/%%%R%%#mf
U"6Gf5-iS4%%%%4%%%%-%%%%%%%%%&%%E%%%'a/%%%rfsW%Sxux%up&'%9%9%%%%-
U"%<#m6G#j=H:%u%%%'/)%%%-%%%%%%%%%&%E%%%%B0%%%rf%sWSx%uwup%&'9%%/
U"%%%R%%)]T0G\+(\94%%%%4%%%%,%%%%%%%%%&%%E%%%&b0%%%yVwS%xuxu%p&'9
U"%%9%%[%-%)b]0GbYV/7Q%%%%)%+%%,%%%%%%%%%&%%E%%+%#0%%%yVw%Sxuw%up
U"&'%9%/%%%%%%<2]0GE\+\9%4%%%%4%%%%,%%%%%%%%%&%E%.%%=1%%%yV%qSxu%
U"xup&%'9%9%%%%-j%2]0XGcfP(3O%%%%)+%%%,%%%%%%%%%&%E#%%%q%1%%y%VqS
U"x%uwup%&'9%%/%%%R%%-]T0G\+(\94%%%%4%%%%-%%%%%%%%%&%%E%%%%l2%%%y
U"Vwr%Sxux%up&'%9%9%%%%-%<-]0GG^DQI%z%%%&g+%%%-%%%%%%%%%&%E%.%%K2
U"%%%yV%wrSx%uwup%&'9%%/%%%R%%6]T0G\+(\94%%%%4%%%%-%%%%%%%%%&%%E%
U"%%'p2%%%yVqr%Sxux%up&'%9%9%%%%-%<6]0GA\ZBo%z%%%&g+%%%-%%%%%%%%%
U"&%E%%%%Q3%%%yV%qrSx%uwup%&'9%%/%%%#%%N[f0Gf5-iS4%%%%4%%%%-%%%%%
U"%%%%&%%E%%%&v3%%%rwVw%Sxux%up&'%9%9%%%%-%:N[0GbYX]6&8%%%&p)%%%-
U"%%%%%%%%%&%E%7%%U3%%%rw%VwSx%uwup%&'9%%/%%%I%%g[f0Gf5-iS4%%%%4%
U"%%%-%%%%%%%%%&%%E%%%&:4%%%rwWw%Sxux%up&'%9%9%%%%-%;g[0Gh*lQj&6%
U"%%&k)%%%-%%%%%%%%%&%E%.%%o4%%%rw%WwSx%uwup%&'9%%/%%%I%%o[f0Gf5-
U"iS4%%%%4%%%%-%%%%%%%%%&%%E%%%%R5%%%rwVq%Sxux%up&'%9%9%%%%-%;o[0
U"GX88a*&F%%%&p)%%%-%%%%%%%%%&%E%.%%15%%%rw%VqSx%uwup%&'9%%/%%%I%
U"%w[f0Gf5-iS4%%%%4%%%%-%%%%%%%%%&%%E%%%'x5%%%rwWq%Sxux%up&'%9%9%
U"%%%-%;w[0G9lTm/&>%%%&j)%%%-%%%%%%%%%&%E%%%%Y6%%%rw%WqSx%uwup%&'
U"9%%/%%%R%%3[f0Gf5-iS4%%%%4%%%%.%%%%%%%%%&%%E%%%'B6%%%rwVw%rSxu%
U"xup&%'9%9%%%%-j%3[04G2Tk&Gl%%+%I)%%%.%%%%%%%%%&%E[%%%x%6%%r%wVw
U"r%Sxuw%up&'%9%/%%%%%%<9[0Gtf5iS%4%%%%4%%%%.%%%%%%%%%&%E%.%%<7%%
U"%rw%WwrS%xuxu%p&'9%%9%%[%-%9G[0GM&\9fg[%%%X%)%%.%%%%%%%%%&%%E%%
U"(%r7%%%rwW%wrSx%uwup%&'9%%/%%%R%%&[f0Gf5-iS4%%%%4%%%%.%%%%%%%%%
U"&%%E%%%%18%%%rwVq%rSxu%xup&%'9%9%%%%-j%&[0=G$5G%(m%%+%I)%%%.%%%
U"%%%%%%&%E%%%%g%8%%r%wVqr%Sxuw%up&'%9%/%%%%%%<-[0Gtf5iS%4%%%%4%%
U"%%.%%%%%%%%%&%E%7%%*8%%%rw%WqrS%xuxu%p&'9%%9%%[%-%-,[0Gg;/Lkq[%
U"%%Y%)%%.%%%%%%%%%&%%E%%+%$8%%%rwW%qrSx%uwup%&'9%%/%%%#%%.nf3Gf5
U"-iS4%%%%4%%%%,%%%%%%%%%&%%E%%%&)9%%%knwS%xuxu%p&'9%%9%%%%-%.bn3
U"G55ANHV#%%%8%)%%,%%%%%%%%%&%%E%%(%]9%%%knw%Sxuw%up&'%9%/%%%%%%:
U"6n3Gtf5iS%4%%%%4%%%%-%%%%%%%%%&%E%7%%]9%%%kn%wrSx%uxup%&'9%%9%%
U"%#-%6n]3G>8)ZlH%%%%_*%%%-%%%%%%%%%&%%E%%%%>:%%%knwr%Sxuw%up&'%9
U"%9%%%%-%<eq.GpicW#%1%%%%4%%%%.%%%%%%%%%&%E%.%%1:%%%qz%pVqS%xuxu
U"%p&'9%%9%%[%-%eGq.GhND4Zt%%%%_%-%%.%%%%%%%%%&%%E%%(%d:%%%qzp%Vq
U"Sx%uwup%&'9%%9%%%R-%KqB.Gic-W#1%%%%4%%%%.%%%%%%%%%&%%E%%%&0;%%%
U"qzpV%wSxu%xup&%'9%9%%%%-j%Kq.4G&UD*Yo%%%%_-%%%.%%%%%%%%%&%E#%%%
U"c%;%%q%zpVw%Sxuw%up&'%9%9%%%%-%<iq.GpicW#%1%%%%4%%%%/%%%%%%%%%&
U"%E%.%%*<%%%qz%pVqr%Sxux%up&'%9%9%%%%-%<iq.GA'rF3&4%%%&$-%%%/%%%
U"%%%%%%&%E%.%%^<%%%qz%pVqr%Sxuw%up&'%9%9%%%%-%<[q.GpicW#%1%%%%4%
U"%%%/%%%%%%%%%&%E%%%%A=%%%qz%pVwr%Sxux%up&'%9%9%%%%-%<[q.G']L0F&
U")%%%&$-%%%/%%%%%%%%%&%E%%%%u=%%%qz%pVwr%Sxuw%up&'%9%/%%%%%%<QKB
U"Gtf5iS%4%%%%4%%%%.%%%%%%%%%&%E%7%%K=%%%hk%tsVS%xuxu%p&'9%%9%%[%
U"-%Q,KBGf#Tp%V#%%%W%)%%.%%%%%%%%%&%%E%%%%->%%%hkt%sVSx%uwup%&'9%
U"%/%%%7%%E%f*Gf5-iS4%%%%4%%%%.%%%%%%%%%&%%E%%%'/>%%%hkts%WSxu%xu
U"p&%'9%9%%%%-a%E%*+GDt.(q1%%+%*)%%%.%%%%%%%%%&%E[%%%e%>%%h%ktsW%
U"Sxuw%up&'%9%/%%%%%%<<KBGtf5iS%4%%%%4%%%%.%%%%%%%%%&%E%.%%D?%%%h
U"k%tsXS%xuxu%p&'9%%9%%[%-%<,KBGVJbVy3#%%%;%)%%.%%%%%%%%%&%%E%%(%
U"z?%%%hkt%sXSx%uwup%&'9%%/%%%#%%?AfDGf5-iS4%%%%4%%%%.%%%%%%%%%&%
U"%E%%%%[#%%%hkts%YSxu%xup&%'9%9%%%%-d%?ADjG4;,):>%%(%4)%%%.%%%%%
U"%%%%&%E#%%%;%#%%h%ktsY%Sxuw%up&'%9%/%%%%%%:OADGtf5iS%4%%%%4%%%%
U".%%%%%%%%%&%E%%%%'A%%%hk%tsZS%xuxu%p&'9%%9%%%%-%OGADG'ImT01#%%%
U"4%)%%.%%%%%%%%%&%%E%%%%]A%%%hkt%sZSx%uwup%&'9%%/%%%#%%VAfDGf5-i
U"S4%%%%4%%%%.%%%%%%%%%&%%E%%%':A%%%hkts%[Sxu%xup&%'9%9%%%%-d%VAD
U"aGGLu*D,%%(%4)%%%.%%%%%%%%%&%E[%%%p%A%%h%kts[%Sxuw%up&'%9%/%%%%
U"%%:fADGtf5iS%4%%%%4%%%%.%%%%%%%%%&%E%.%%JB%%%hk%ts\S%xuxu%p&'9%
U"%9%%%%-%fbADG=ME\m)#%%%4%)%%.%%%%%%%%%&%%E%%+%*B%%%hkt%s\Sx%uwu
U"p%&'9%%/%%%I%%FAfDGf5-iS4%%%%4%%%%.%%%%%%%%%&%%E%%%%WC%%%hkts%]
U"Sxu%xup&%'9%9%%%%-g%FAD:G/%:(0L%%(%4)%%%.%%%%%%%%%&%E#%%%7%C%%h
U"%kts]%Sxuw%up&'%9%/%%%%%%;YADGtf5iS%4%%%%4%%%%.%%%%%%%%%&%E%%%%
U"1D%%%hk%ts^S%xuxu%p&'9%%9%%#%-%YGADGWGe,F1#%%%4%)%%.%%%%%%%%%&%
U"%E%%%%gD%%%hkt%s^Sx%uwup%&'9%%/%%%#%%p_T0G\+(\94%%%%4%%%%-%%%%%
U"%%%%&%%E%%%'DD%%%ywVw%Sxux%up&'%9%9%%%%-%:p_0GRG,10&H%%%%&+%%%-
U"%%%%%%%%%&%E%%%%%E%%%yw%VwSx%uwup%&'9%%/%%%#%%f_T0G\+(\94%%%%4%
U"%%%-%%%%%%%%%&%%E%%%&nE%%%ywVq%Sxux%up&'%9%9%%%%-%:f_0G8^dqk&C%
U"%%%&+%%%-%%%%%%%%%&%E%7%%ME%%%yw%VqSx%uwup%&'9%%/%%%#%%v_T0G\+(
U"\94%%%%4%%%%.%%%%%%%%%&%%E%%%&=F%%%ywVw%rSxu%xup&%'9%9%%%%-d%v_
U"0gG2CU'Sl%%(%c+%%%.%%%%%%%%%&%E#%%%s%F%%y%wVwr%Sxuw%up&'%9%/%%%
U"%%%:k_0GE\+\9%4%%%%4%%%%.%%%%%%%%%&%E%%%%7G%%%yw%VqrS%xuxu%p&'9
U"%%9%%%%-%jG_0GZ;NcGk#%%%c%+%%.%%%%%%%%%&%%E%%%%mG%%%ywV%qrSx%uw
U"up%&'9%%/%%%I%%xef0Gf5-iS4%%%%4%%%%,%%%%%%%%%&%%E%%%'.G%%%gqVS%
U"xuxu%p&'9%%9%%#%-%x,e0GOTO0)1#%%%H%)%%,%%%%%%%%%&%%E%%+%bG%%%gq
U"V%Sxuw%up&'%9%/%%%%%%<Ke0Gtf5iS%4%%%%4%%%%,%%%%%%%%%&%E%.%%?H%%
U"%gq%WSxu%xup&%'9%9%%%%-j%Ke0+G6F#(DC%%(%Y)%%%,%%%%%%%%%&%E#%%%s
END SUB
SUB V7
U"%H%%g%qWSx%uwup%&'9%%/%%%#%%Tff0Gf5-iS4%%%%4%%%%,%%%%%%%%%&%%E%
U"%%%bI%%%gqXS%xuxu%p&'9%%9%%%%-%Tbf0G^AVsx<#%%%O%)%%,%%%%%%%%%&%
U"%E%%(%#I%%%gqX%Sxuw%up&'%9%/%%%%%%<%e0Gtf5iS%4%%%%4%%%%-%%%%%%%
U"%%&%E%%%%(J%%%gq%VrSx%uxup%&'9%%9%%%R-%%eK0GW6%MSt%%%%.*%%%-%%%
U"%%%%%%&%%E%%%%]J%%%gqVr%Sxuw%up&'%9%/%%%%%%<Oe0Gtf5iS%4%%%%4%%%
U"%-%%%%%%%%%&%E%7%%&J%%%gq%WrSx%uxup%&'9%%9%%%R-%OeT0Gw]/S12%7%%
U"c)%%%-%%%%%%%%%&%%E%%%'[J%%%gqWr%Sxuw%up&'%9%/%%%%%%:[f0Gtf5iS%
U"4%%%%4%%%%-%%%%%%%%%&%E%.%%:K%%%gq%XrSx%uxup%&'9%%9%%%#-%[f00GP
U"a1pi)%%%%)*%%%-%%%%%%%%%&%%E%%%&oK%%%gqXr%Sxuw%up&'%9%/%%%%%%7a
U".4Gtf5iS%4%%%%4%%%%,%%%%%%%%%&%E%%%%EL%%%ir%VSxu%xup&%'9%9%%%%-
U"[%a.4gG:ud*l/%%(%F)%%%,%%%%%%%%%&%E%%%%y%L%%i%rVSx%uwup%&'9%%/%
U"%%.%%P.f4Gf5-iS4%%%%4%%%%,%%%%%%%%%&%%E%%%'RL%%%irWS%xuxu%p&'9%
U"%9%%#%-%Pa.4Gf#_d',#%%%K%)%%,%%%%%%%%%&%%E%%%%2M%%%irW%Sxuw%up&
U"'%9%/%%%%%%8_.4Gtf5iS%4%%%%4%%%%-%%%%%%%%%&%E%.%%^M%%%ir%VrSx%u
U"xup%&'9%%9%%%.-%_.T4Gph,?u^%%%%2*%%%-%%%%%%%%%&%%E%%%'=M%%%irVr
U"%Sxuw%up&'%9%/%%%%%%8e.4Gtf5iS%4%%%%4%%%%-%%%%%%%%%&%E%%%%HN%%%
U"ir%WrSx%uxup%&'9%%9%%%.-%e.o4GpM,vX]%%%%3*%%%-%%%%%%%%%&%%E%%%&
U"'N%%%irWr%Sxuw%up&'%9%9%%%%-%7BM4GpicW#%1%%%%4%%%%,%%%%%%%%%&%E
U"%7%%/N%%%ir%XSxu%xup&%'9%9%%%%-[%BM4LG*(g(SN%%%%--%%%,%%%%%%%%%
U"&%E[%%%$%N%%i%rXSx%uwup%&'9%%9%%%%-%GMB4Gic-W#1%%%%4%%%%-%%%%%%
U"%%%&%%E%%%&ZO%%%irXr%Sxux%up&'%9%9%%%%-%7GM4G>Q^;^%z%%%'T-%%%-%
U"%%%%%%%%&%E%7%%6O%%%ir%XrSx%uwup%&'9%%/%%%.%%E#T6G\+(\94%%%%4%%
U"%%,%%%%%%%%%&%%E%%%%]P%%%riqS%xuxu%p&'9%%9%%#%-%EF#6GKUJwoU%%%%
U"D%+%%,%%%%%%%%%&%%E%%(%;P%%%riq%Sxuw%up&'%9%/%%%%%%8L#6GE\+\9%4
U"%%%%4%%%%,%%%%%%%%%&%E%%%%<Q%%%ri%wSxu%xup&%'9%9%%%%-^%L#6^GnAF
U"(SO%%%%D+%%%,%%%%%%%%%&%E%%%%p%Q%%r%iwSx%uwup%&'9%%/%%%.%%S#T6G
U"\+(\94%%%%4%%%%-%%%%%%%%%&%%E%%%'iQ%%%riqr%Sxux%up&'%9%9%%%%-%8
U"S#6G<IZO6%u%%%&o+%%%-%%%%%%%%%&%E%%%%JR%%%ri%qrSx%uwup%&'9%%/%%
U"%.%%W#T6G\+(\94%%%%4%%%%-%%%%%%%%%&%%E%%%&jR%%%riwr%Sxux%up&'%9
U"%9%%%%-%8W#6GdU7Lm%y%%%&o+%%%-%%%%%%%%%&%E%7%%IR%%%ri%wrSx%uwup
U"%&'9%%/%%%I%%I$f6Gf5-iS4%%%%4%%%%-%%%%%%%%%&%%E%%%%oS%%%frrV%Sx
U"ux%up&'%9%9%%%%-%;I$6GS_GsT%$%%%&d)%%%-%%%%%%%%%&%E%.%%NS%%%fr%
U"rVSx%uwup%&'9%%/%%%I%%w$f6Gf5-iS4%%%%4%%%%-%%%%%%%%%&%%E%%%'YS%
U"%%frrW%Sxux%up&'%9%9%%%%-%;w$6G^IJe7%V%%%&d)%%%-%%%%%%%%%&%E%%%
U"%:T%%%fr%rWSx%uwup%&'9%%/%%%#%%saf6Gf5-iS4%%%%4%%%%-%%%%%%%%%&%
U"%E%%%&;T%%%frrX%Sxux%up&'%9%9%%%%-%:sa6G/.Qy'%h%%%&4)%%%-%%%%%%
U"%%%&%E%.%%pT%%%fr%rXSx%uwup%&'9%%/%%%#%%0zf6Gf5-iS4%%%%4%%%%-%%
U"%%%%%%%&%%E%%%%/U%%%kfhj%Sxux%up&'%9%9%%%%-%:0z6GT)uRm%l%%%&J)%
U"%%-%%%%%%%%%&%E%%%%dU%%%kf%hjSx%uwup%&'9%%/%%%R%%6-f;Gf5-iS4%%%
U"%4%%%%.%%%%%%%%%&%%E%%%'%U%%%frrX%rSxu%xup&%'9%9%%%%-j%6-;:Gu=A
U"'sa%%%%/*%%%.%%%%%%%%%&%E[%%%[%U%%f%rrXr%Sxuw%up&'%9%/%%%%%%<pA
U"DGtf5iS%4%%%%4%%%%/%%%%%%%%%&%E%%%%jV%%%hk%tsVU%Sxux%up&'%9%9%%
U"%%-%<pADG/ReJ5&;%%%&Q)%%%/%%%%%%%%%&%E%.%%KV%%%hk%tsVU%Sxuw%up&
U"'%9%/%%%%%%:9BDGtf5iS%4%%%%4%%%%/%%%%%%%%%&%E%%%%5W%%%hk%tsVV%S
U"xux%up&'%9%9%%%%-%:9BDGPIJ.Q&X%%%&T)%%%/%%%%%%%%%&%E%%%%lW%%%hk
U"%tsVV%Sxuw%up&'%9%/%%%%%%;]CDGtf5iS%4%%%%4%%%%/%%%%%%%%%&%E%7%%
U"qW%%%hk%tsVW%Sxux%up&'%9%9%%%%-%;]CDG0l3XA&.%%%'.)%%%/%%%%%%%%%
U"&%E%%%%TX%%%hk%tsVW%Sxuw%up&'%9%/%%%%%%<TCDGtf5iS%4%%%%4%%%%/%%
U"%%%%%%%&%E%7%%/X%%%hk%tsVX%Sxux%up&'%9%9%%%%-%<TCDG;C[=c&K%%%&?
U")%%%/%%%%%%%%%&%E%7%%fX%%%hk%tsVX%Sxuw%up&'%9%/%%%%%%;eDDGtf5iS
U"%4%%%%4%%%%/%%%%%%%%%&%E%.%%$Y%%%hk%tsVY%Sxux%up&'%9%9%%%%-%;eD
U"DGUQr.%&,%%%&n)%%%/%%%%%%%%%&%E%7%%AY%%%hk%tsVY%Sxuw%up&'%9%/%%
U"%%%%<QDDGtf5iS%4%%%%4%%%%/%%%%%%%%%&%E%%%%rZ%%%hk%tsVZ%Sxux%up&
U"'%9%9%%%%-%<PDDGs0m:-&B%%%&p)%%%/%%%%%%%%%&%E%.%%SZ%%%hk%tsVZ%S
U"xuw%up&'%9%/%%%%%%:*EDGtf5iS%4%%%%4%%%%/%%%%%%%%%&%E%%%%D[%%%hk
U"%tsV[%Sxux%up&'%9%9%%%%-%:*EDG^i+'*%m%%%&<)%%%/%%%%%%%%%&%E%.%%
U"%[%%%hk%tsV[%Sxuw%up&'%9%/%%%%%%;1EDGtf5iS%4%%%%4%%%%/%%%%%%%%%
U"&%E%7%%?[%%%hk%tsV\%Sxux%up&'%9%9%%%%-%;1EDGqMaNq&#%%%&S)%%%/%%
U"%%%%%%%&%E%7%%v[%%%hk%tsV\%Sxuw%up&'%9%/%%%%%%;fjDGtf5iS%4%%%%4
U"%%%%/%%%%%%%%%&%E%.%%e\%%%hk%tsV]%Sxux%up&'%9%9%%%%-%;fjDG*+P9I
U"&B%%%&R)%%%/%%%%%%%%%&%E%7%%F\%%%hk%tsV]%Sxuw%up&'%9%9%%%%-%<S2
U"JGS1T'e(-[%%&?T&%%0%%%%%%%%%%%E%.%%7]%%%fw%hijr#tSj'%jup&%'9%9%
U"%%%-j%P2JgGopV(x+5%%%hj%%%0%%%%%%%%%&%E#%%%h'=%%f%whij%rtSg%fxu
U"p%&'9%%9%%%I-%tGTDGIJ)bo^'7%%Fs%%%.%%%%%%%%%&%%E%%%+CN%%%ijrf.u
U"S%n%wup*%+%%%C%l%l(%.F%:%MP%%%%%
END SUB
V2
V3
V4
V5
V6
V7
CLOSE:IF S=83AND 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
