'===========================================================================
' Subject: WALTZ REVENGE                      Date: 01-19-97 (02:57)       
'  Author: Jeremy Grounds                     Code: QB, QBasic, PDS        
'  Origin: alt255@cris.com                  Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WALTZ.ZIP",4^6:Z&=54890:?STRING$(50,177);
U"%up()%9%'%R-%#1#QGQ>+E9n%%%%-'%%%-%I%%;E#^^SC)GCpOoCqGO^nqcBTD*
U"ZcRIK^sZc]^fDO#o9J#[kR#z%SW/1/%:<aQa=r>S]uWUQKafMGQ3pU[#d(5qA)L
U"ZP3L6Q<QK&$*%u%p()9%%'%-1%o1QaG:2<%[b%%+%\&%%%-%%1%;E^I]SCG\CpO
U"CsqGOB9BtGssRKBD%TF?hf.IPm3lAPidwwZ,#Fin1%wsOW%8n%#:&$?Y&$yaaLq
U"O1-o'Ic=%2%up%()9%%'%-%(f1QGN+TRQ%W%%%%('%%%-%%%);E^\LSCGCcDBtG
U"msRKB]DT&\IA-fi[9T<ArYcM[h;la=)sky-(85F6C=1%hPGA9uRfqYW%C%up%()
U"9%%'%-%(:1QGW9H0G%R%%%'t&%%%-%%%);E^[LSCGCcDBtGmsRKBJpKdf8.'?5#
U"ST<[%tQsn4RGU5meCbSk$i_N1q=/84tjA&%%up(%)9%'[%-%_\0QGD=ud?U%%%%
U"'%'%%-#%%%;&E^ZShCGCD9BtGs=RKBFXq^^f_O#3J%_E9T%<qL_[snRG.kG?M6<
U"&n-Ca3Zb=?C]w*5+%u%p()9%%'%-4%F0Q(Gm0.%$H%%%%('%%%-%%1%;E^IYSCG
U">CDBt]GsRK$BpZ>NDdf.&qhKC2hiX-iTsqE*];Mn,E=%%%up()%9%'%I-%h0.QG
U"GP,U#V%7%%u&%%%-%I%%;E#^XSCqGCDB+tGsR?KB:hQ^^fOJ#30t0QM-S8g&A]+
U"J.]#5X9u)>Y*dLd74(F(y\'A'j'%u%p()9%%'%-1%c8Q:G[u.'3_%%%%+'%%%-%
U"%1%;E^IWSCG>CDBt]GsRKcB:h^N^fO#g30tQCM-Sg+&A]JB.]#XE9u)Y-*dL7KL
U"nB01k91sIn+d<mLX9B&WF%u%p()9%%'%-.%V0Q1G>la'Q]%%+%X&%%%-%%1%;E^
U"IVSCG\CpOCsqGOB9BtGssRKBD%TF?hf.IPm*lAJFL#ba)&krS&7Y?FY[wA*>0MU
U"P1=rM-c8X_j'%%up(%)9%'%%-%BA6QGb(xbJe%%%%/%'%%-#%%%;&E^US2CGCpa
U"OCqG0OnqccBD*Zbs^I_tuc]^>fY>JAXn^xs_Br2C*tJx1j?09&be'N,x>)>Eag[
U"U__PNJ)]1dr&q0%u%p()9%%'%-.%S4QmGu\0&fm%%+%m&%%%,%%1%;E^LSCGC7p
U"OCquGOBD#TF?fRIK^sFgBI_;=-'IJa2P0Sw&]7=rGHR%MRnRH;f-Ws#ZcI+2AnQ
U"hUYa]UJk_09j<=9:?_]*%>9(%%up()%9%'%I-%)2mQGC>%u4m%%%%2'%%%-%I%%
U";E#]^SC)GCpOoCqGO^nqcBoD*Z]r^fY=pNx>R/g'8^5X2xU4hi8lIV'bPi[[a=D
U"skyY7rFFJ1U[1i2AM=fJ8n9$a3Jc<A91r1%1%up%()9%%'%-%(&2QGml\5W%W%%
U"%'j&%%%-%%%);E]]LSCGC7pOCquGOBB+tGsR?KBDT[F?h.pIPml\AJ2)mVuED1j
U"Uuff_:;?oYG*bN#zRf%0%up%()9%%'%-%*K2QGng+LP%Z%%%%&'%%%-%%%);E]\
U"LSCGC7pOCqHGOnq=cBD*ZZ]^fF5=JX.n^xM1G'\m%nRkZ#4h%v16s8j0;yC(dVF
U"PP:%i=7%%up(%)9%'%%-%)&4QGYRWvV*%%%%4%'%%-#%%%;&E][S2CGCpaOCqG9
U"On;pQ_^fOA#769':IT<JSxag_cb/PD]]v4p0ZDl\ZwufhQhRD^)K=>qOcM[q;l]
U"uWUQKa'MGGAbRLEUJPhsJ*ITXw(8BoWJWYZO#xMKH'2%up%()9%%'%-%*.3QGeP
U"M0^%a%%%'r&%%%-%%%);E]ZLSCGC7pOCqHGOnqXcBDd2f.q(0;JXn(^x_UICcka
U"D)k25MohO[Ejjk[7.i2'qZM[u%f2<e.VT&7*f1,%%up()%9%'%#-%X9mQGh?*?H
U"T%7%%t&%%%-%I%%;E#]YSC)GCpOoCqGO^nqcBNDdf.2qR[p17bAw,X[fVSy6=:j
U"lZ03AR)qDLt_;N=7f[,%%up(%)9%'%%-%a&3QGD14vcg%%%%/%'%%-#%%%;&E]X
U"S2CGCpaOCqGBOn'bGHrJ/)kSIk=;BD*oZI$$L;cesF;:rUWZa=s&ky1v#Y1XT87
U"2q1#E(H:,Vt)4DRMSq=&BD*%%up(%)9%'[%-%1&/QGC-PO7e%%%%,%'%%-#%%%;
U"&E]WS2CGCpaOCqG0OnqccBD*Z=I$$;2ces;Zb]^fF5=Nx6>R?3&YV)z,2<u8GWK
U"(fFEW2SHF;UQ;ob*O.eVQK&#*%u%p()9%%'%-1%P/Q+Ga'N%LM%%+%$&%%%-%%1
U"%;E]IVSCG\CpOCsqGOB9BtGssRKBD%TF?hf.IPm*lAJ2^O2mJDXU,j2&w31%%up
U"(%)9%'%%-%z&/QGy18D3J[%%%v%&%%-#%%%;&E]US2CGCpaOCqG0OnqccBD*ZQ]
U"^f_2[82e(n1ws%O3C3(aGaf&b='%%up()%9%'%7-%)h[QGqf,j?U%7%%>&%%%,%
U"I%%;EI]SCG\CpOCsqGOB'DTF>gLPCkMA$rdO/SPGc9ekKMma)k#rSva2gcb/]jm
U"7R9*%O3%%up(%)9%'%%-%8A6QG=8:pOW[%%%p%&%%-#%%%;&E\^S2CGCpaOCqG0
U"Onq7Mh-c'A+1FHB2EgH]rJiZ5cM19r>cd#tv3)1Fa8MTK?3o];Mi=2%%up(%)9%
U"'#%-%'[pQGk&j?rK[%%%\%&%%-#%%%;&E\]S2CGCpaOCqG9On;fQ_^f/0YIK_PG
U"2?:LISx4I%^)p&GU]d,XSV'%%up(%)9%'[%-%9\-QGE.hS*P#%%%J%'%%-#%%%;
U"&E\\S2CGCpaOCqG0OnqcQBDd-hc'+%gh,A)7?2j]sSR5u+7S=q#h\h\gsq,s%%%
U"up%()9%%'%-%**-QG7HiI\%C%%%&L'%%%-%%%);E\[LSCGC7pOCqHGOnqXcBDdM
U"-c'+B%h(A3M7I?8li49%'%up%()9%%'%-%)x-QG7HiI\%C%%%&L'%%%-%%%);E\
U"ZLSCGC7pOCqHGOnqXcBDdM-c'+B%h(A3M7I?8li49%'%up%()9%%'%-%)k-QG7H
U"iI\%C%%%&L'%%%-%%%);E\YLSCGC7pOCqHGOnqXcBDdM-c'+B%h(A3M7I?8li49
U"%'%up%()9%%'%-%)c-QG7HiI\%C%%%&L'%%%-%%%);E\XLSCGC7pOCqHGOnqXcB
U"DdM-c'+B%h(A3M7I?8li49%'%up%()9%%'%-%(K4QGpa:d%%U%%%&O'%%%-%%%)
U";E\WLSCGC7pOCqHGOnq=cBD**Zs<J#;<xfVsRJT1>xX^%J>]:+<_I;&v;2gYVLI
U"7&iI7%%up()%9%'%I-%P,%QGq8*C8O%7%%j&%%%-%I%%;E#\VSC)GCpOoCqGOcB
U"BtGmsRKB'DTF?Fh.IP6mlAJe\?RL/gYW^^uYw$(u9/%%up()%9%'%I-%D,dQGlq
U"%Vtm%%%%4'%%%-%I%%;E#\USC)GCpOoCqGO^nqcBoD*Z]N^fO#Cn5syIsk91#sn
U"+SMlb'kJ))0uT^I_upgg>^'rjN5#KqL=i\W4Y(YT9aKi+sp/geb]%(%up%()9%%
U"'%-%&ihQG(4_9x%E%%%'x&%%%,%%%);E\ShCGCD9BtGssRKBD7T&\A1-fi9RT<E
U"?sWiAMgqR'9%6Z%u%p()9%%'%-%%$pQFG#-w&9I%%%%:'%%%-%%1%;E[I^SCG\C
U"pOC=qGOnnqcBDO*Zssp;6d]i^f_:X=__O6q]/9b6II_%%up(%)9%'[%-%j%oQGk
U"+w&)N[%%%o%&%%-#%%%;&E[]S2CGCpaOCqG9On;fQ_^f/0YIK_GG2Ektku]eoMG
U"%sM#0weLv2?2&y^)%%up()%9%'%7-%PmmQGs\*Uv[%7%%r&%%%-%I%%;E#[\SC)
U"GCpOoCqGO^nqcBNDdf.8q(;JAXn^xj_QHQ#Ui*i1Fs1/W-2.n[ytuaR+Ifc0=)Y
U"v,w*(%%up()%9%'%.-%_mRQG0C-riY%7%%r&%%%-%I%%;E#[[SC)GCpOoCqGO^n
U"qcBNDdf.2qR]p17bAw,X[&V7T<=aA;+6Pb0SVEaJN%+%bejt39Sw;%$%up%()9%
U"%'%-%*j5QGUk+v,%c%%%%)'%%%-%%%);E[ZLSCGC7pOCqHGOnqXcBDd2f.qhXK_
U"^QJgyagDcboaD5W3wI0EU_'\+9(l)4q1+a8Mj%LHZVJvIR=(spni%&%up%()9%%
U"'%-%'FrQGlHU<8%Y%%%'r&%%%-%%%);E[YLSCGC7pOCqHGOnqXcBDd2f.qxMagc
U"b/y(16<[0:57Hm:-:H$Ue13uY<,w\+o81'>M-MQ&%%up()%9%'%.-%hidQGdj%w
U"$R%7%%x&%%%-%I%%;E#[XSC)GCpOoCqGO^nqcBoD*Z]N^fO#(n1wsFObag(Vwom
U"Z9agodu$TWDoaPw%;l%u%p()9%%'%-1%_HL(Gkt3&G$%%(%E'%%%-%%1%;E[IWS
U"CG\CpOC=qGOnnqcBDa*ZI$K$;ceSs;JRM$f.Q3<A_1LS+ag2cbYFao3^Q#URrpj
U"ni0.\a77>:eg*%%up()%9%'%%-%\r7QG/*&8fJ%7%%e&%%%-%I%%;E#[VSC)GCp
U"OoCqGOcBBtGmsRKB'DTF?Fh.IP6mlAJe\?RLd=wCK'MF%u%p()9%%'%-(%*rQ+G
U"2#z%*X%%%%&'%%%-%%1%;E[IUSCG\CpOC=qGOnnqcBDs*Z]^2f_[v%1Mnq0CnTp
U"Dts;6<\/YZ2T16E=pIL67e1Ls)b''%%up()%9%'%.-%Ih[QGxp&q7?%%%%*'%%%
U",%I%%;EI[SCG>CDBt]GsRK$BpZ>NDdf.&qhKChhiBa%;Z%u%p()9%%'%-(%xoQC
U"GuFB'TW%%%%)'%%%-%%1%;EZI^SCG\CpOC=qGOnnqcBDs*Z]^>fY>NYx>R':=GF
U"M7nqCn^J7WFAlf1U.?e[wD1keb&W'%u%p()9%%'%-(%IoQ^GOc_%IL%%+%L&%%%
U"-%%1%;EZI]SCG\CpOCsqGOB9BtGssRKBD%TF?hf.IPmNlA$qbBM)%DgfPX(_#&%
U"%up()%9%'%7-%Nn#QGsp,dIK%7%%n&%%%-%I%%;E#Z\SCqGCDB+tGsRHKBFb7oO
U"CquGOBD.T&2-%4j*T.<qa1[aWZ$'Iao%%up()%9%'%%-%9n[QG^&+R]Q%7%%q&%
U"%%-%I%%;E#Z[SCqGCDB+tGsR?KBDT+&\A-.<Ddy2chkr\[g->BD*Xj%1aWZ&22r
U"721Wgm%&%up%()9%%'%-%&TkQGZb9hN%N%%%%('%%%-%%%);EZZLSCGCcDBtGms
U"RKB%FqJ:/4K6hKBAqDdfM-'-5u7BsWjAMCq95b4pjA&%%up(%)9%'#%-%Z[jQGB
U"0o?mG[%%%r%&%%-#%%%;&EZYShCGCD9BtGsXRKBp>[CDTL&2;aE5+U(sWiAMUqK
U"Ya4pjA&%%up(%)9%'%%-%;[iQGj>fhgM[%%%q%&%%-#%%%;&EZXShCGCD9BtGss
U"RKBDRT&\sYqE];/lAWE.zM-SkgR3Y)$x>Z^=0wM&\9%u%p()9%%'%-.%sJL#G5(
U"'&2O%%+%j&%%%-%%1%;EZIWSCG>CDBt]GsRK3Bp[oaOCqG?OBDT(&2-4jqkA:=)
U"B9HmxX/)/sQ-u'[(%u%p()9%%'%-4%c+O4GXR[%nU%%+%K&%%%-%%1%;EZIVSCG
U"\CpOCsqGOB9BtGssRKBD%TF?hf.IPmElAJ$\:19l2A$p.hphAd,V-.55\Iw%%%u
U"p(%)9%'%%-%;\,OGw1H1QS%%%%&%'%%-#%%%;&EZUS2CGCpaOCqG0OnqccBD*ZQ
U"]^f_&[V1mmnR?>kOZa=DskyC>baf-_Q5u]:-i=7%%up(%)9%'#%-%5#hQGb9BrI
U"Q[%%%v%&%%,#%%%;AEZSCqGCDB+tGsR?KB:hQ^^fOJ#30t0QM-Seg&3YD$x>.Ao
U"K:4(K6hn(W2)C%V%up%()9%%'%-%(m6QGcW\-#%d%%%%1'%%%-%%%);EY^LSCGC
U"7pOCqHGOnq=cBD*ZZ]^f3ass;,b:eV7KL*]B.-Qk2$igx/a&57;R8Z=t1f?[73g
U"Co17bAw1.JSK%6+%u%p()9%%'%-%%8oQXGr?v'oJ%%+%e&%%%-%%1%;EYI]SCG\
U"CpOCsqGOB9BtGssRKBD%TF?hf.IPmElAJ\I?hL22og93%&%up%()9%%'%-%&cnQ
U"GHeTp(%Y%%%'p&%%%-%%%);EY\LSCGC7pOCq-GOnG>ZEDT(&21>/-Sg9-*1IV#N
U"L:0F=b+or1TcSs6G<HGq'Pa^MW#5%IT<%%up()%9%'%%-%sn.QGH)-&D^%7%%q&
U"%%%-%I%%;E#Y[SC)GCpOoCqGO[ngGl9kp9]I.hU7_af0N%M=snFRGKQ=(=AK\cI
U"K^/sw7+SHS:6.'6go$S8ek&A&%u%p()9%%'%-.%z6Q^GFQ8%)\%%+%u&%%%-%%1
U"%;EYIZSCG\CpOC=qGOnnqcBDMdf.q[h3kKMma)kr&R;9ATp7bJAw$'+(Z+A1+_Y
U"0ELA7BBZcmq&,)&%%up()%9%'%7-%]j#QGSp&Y7Z%7%%r&%%%-%I%%;E#YYSC)G
U"CpOoCqGOIn'bHKrJ/k&SIk;QBDT9CEX=u'6IVN%L:jWFJ.]j/'+dA&PSZ%^so&B
U"'D*%u%p()9%%'%-%%LjQ4G/K?'<]%%%%('%%%-%%1%;EYIXSCG\CpOC=qGOng'b
U"HrLJ/kS[Ik;B3DT9E(1fIKW^s[3CF212T)P<VQj3S17(Mi/6>go]8Mu\/%%up(%
U")9%'[%-%R\,OG'/aI3P%%%%0%'%%-#%%%;&EYWS2CGCpaOCqG?OBDT+&\IUM^1a
U"fRP.>'.wUY&2saG1jIC-;%S?AkrIO]^%'%up%()9%%'%-%&psQG17O%[%Y%%%'S
U"&%%%-%%%);EYVLSCGC7pOCquGOBB+tGsR?KBDT#F?LPCZQn-0'IArqPj=D(jy[Y
U"'f9^&VWx\X#&Z(y(*91%%up()%9%'%#-%,.IOG/j'BIa%%%%9'%%%-%I%%;E#YU
U"SC)GCpOoCqGO^nqcBTD*ZcRIK^sZc]^fD_Sv[39uOMD20+s&s;H831CoN%(8M3E
U":03uG*AZX83<JI'[%up%()9%%'%-%%phQG95(pd%N%%%'v&%%%,%%%);EYShCGC
U"D9BtGsXRKBpLKdf.+'?5S.T<[tI+Chi3*U9w1v5A[)csoa*jA&%%up()%9%'%R-
U"%dS[OGw^(12b%%%%.'%%%-%I%%;E#X^SC)GCpOoCqGO^nqcBoD*Z]W^facRIK^s
U"ocI$$L;cesL;PT_J#o9##[3+ULvs1wg&ScJ0:.S2+EO6Y&XR%u%p()9%%'%-4%K
U"SO#GAo.&hL%%+%$&%%%-%%1%;EXI]SCG\CpOCsqGOB9BtGssRKBD%TF?hf.IPm*
U"lAJ2L42og)fZ1r&R_i%%up()%9%'%#-%.6IQGj:,2jg%%%%t'%%%-%I%%;E#X\S
U"C)GCpOoCqGO^nqcBTD*ZcRIK^sZc]^fD_Sv[^eemG'HRMRInRqc[&W0[LYk%pW\
U"k=1Gw?&CCR_j[D*X3&+O#^%%up()%9%'%#-%-.RQGt%&DN?%.%%L'%%%-%I%%;E
U"#X[SC)GCpOoCqGO^nqcBNDd-c;'+%hq,AMa*Z3Y%%up()%9%'%R-%u-RQG#7,,A
U"?%.%%L'%%%-%I%%;E#XZSC)GCpOoCqGO^nqcBNDd-c;'+%hp(AMa)01Y%%up()%
U"9%'%R-%n-RQG#7,,A?%.%%L'%%%-%I%%;E#XYSC)GCpOoCqGO^nqcBNDd-c;'+%
U"hp(AMa)01Y%%up()%9%'%R-%g-RQGfl,&[D%.%%L'%%%-%I%%;E#XXSC)GCpOoC
U"qGO%nToQ+SOn'$,xik&AJF>drzAM3a01Y%%up(%)9%'#%-%u\/OGq9Rt(c%%%%=
U"%'%%-#%%%;&EXWS2CGCpaOCqG0OnqccBD*ZQ]^forYcM[D;1-__)wfa.k5ZVKUv
U"agDcboXOp)JXaQ0I$K$;ce\s;vg(AiiC%%up(%)9%'%%-%VA/OGb1m2^M[%%%$%
U"&%%-#%%%;&EXVS2CGCpaOCqG?OBBt]GsRK-BDTF7?h.IYPmlA7Jv#=LwCq0Py20
U"'%?(%u%p()9%%'%-.%&/OpG=PZ'=d%%%%)'%%%-%%1%;EXIUSCG\CpOC=qGOnnq
U"cBDs*Z]^Pfass%;h==1AkQ=;5/<JAXn^x.u7V?mgkY<l1vPN#4i>PL22gU1GO1)
U"%rG/%%up()%9%'%7-%mhmQGF(+q:V%7%%t&%%%,%I%%;EIXSCG>CDBt]GsRKfBF
U"dCBDT&2f;oH2q/9B91h)Bo)9#[7LfaMaDR(Lx#MX^joq=]^%'%up%()9%%'%-%(
U"]6QG\%&x(%l%%%%/'%%%-%%%);EW^LSCGC7pOCqHGOnq=cBD*3Zss;t6d]^8f5=
U"5B^MagX>q-4SsK_cG3Y\TF=d6i/XWqI#VNLdeGh#r[I^d0bo-I.AWYx7(7,%u%p
U"()9%%'%-4%aPO(GO*(&6O%%+%Z&%%%-%%1%;EWI]SCG\CpOCsqGOB9BtGssRKBD
U"%TF?hf.IPm*lAJ2^l2mJhXUxe1:A+&%Z%%u%p()9%%'%-1%WPOmG=_R&<m%%%%5
U"'%%%-%%1%;EWI\SCG\CpOCsqGOB9DTJn4',wi$kAJ:m2sGH%RMRnIR'BW0>=uE\
U"218:('xJjAs#je;*?s-(hqIV#NL:,%>T<^6'9?..2m-S%%up(%)9%'[%-%v\5QG
U"M?X$;P#%%%N%'%%-#%%%;&EW[S2CGCp%ToQS0OnvOJhychYkFDd:c9mE+Y3UH.Z
U"VvIDRGPGl29EarIO]^%'%up%()9%%'%-%(E.QG,xv^H%B%%%&L'%%%-%%%);EWZ
U"LSCGC%pToQFSOnvXcBDdUc9m?.U_xMIX^*V%+IT<%%up(%)9%'%%-%<A4QGg3,8
U"VK#%%%M%'%%-#%%%;&EWYS2CGCp%ToQS0Onvc6BDds^Dr0L/A7BxVVk,V,]Jnj>
U"hBR_dYEH2%%up(%)9%'%%-%U&.QGm-^Mg##%%%L%'%%-#%%%;&EWXS2CGCpaOCq
U"G'OnTo.QSuS6BDdY>9miV&i+IT%<%up%()9%%'%-%)46QG[N)*>%X%%%%E'%%%-
U"%%%);EWWLSCGC7pOCqHGOnqXcBDd2f.q(f;Nx>-R]7u8rE_3t=<iZr;k=[BMG10
U"YaE9U.v1on%I'%u%p()9%%'%-.%.0O:GBBF&bR%%+%$&%%%-%%1%;EWIVSCG\Cp
U"OCsqGOB9BtGssRKBD%TF?hf.IPmElAJ$&:19x//'dAdg82A7-.S]%)%up%()9%%
U"'%-%*\5QG[StNK%d%%%&;'%%%-%%%);EWULSCGC7pOCqHGOnq=cBD*ZZ]^foaI$
U"$L;ces4;J_&T++<-[5SqDFnErT8B.ZflZoa=SsA[lY[Lb3M/gEi%I-%u%p()9%%
U"'%-+%jgQdG#+R'nN%%%%''%%%,%%1%;EWLSCGCcDBtGmsRKB':kJ:/4K6h]BAac
U"R-x5+,HrJ_P3[$xGhqEugMQG2%%up(%)9%'[%-%p\OOGw--iVg[%%%o%&%%-#%%
U"%;&EV^S2CGCpaOCqG0OnqccBD*ZQ]^f/u>Br2C*tJx%j-+s7:]FP7nqCnLj20fL
U",0qk&T4h2%ElPZTfLVOYcM[;%-&Z'%%up(%)9%'[%-%D&OOG-4Gws#[%%%?%&%%
U"-#%%%;&EV]S2CGCpaOCqG?OBDT#F>LP5CkAJD\3(O_'0Uq%%%up%()9%%'%-%)F
U"EOGrdka(%p%%%%<'%%%-%%%);EV\LSCGC7pOCqHGOnqXcBDT+p3IV%NLzL4T8SE
U"(K/5V%kE>h*%A=s-GHRM%RnRgRUuURJ1_-R#ECkG(#^VN,x>5Fg]Rw).fZS/&#,
U"%u%p()9%%'%-4%H5Q(G?VS'3q%%%%6'%%%-%%1%;EVI[SCG\CpOC=qGOnnqcBD4
U"*ZcIjK^scl]^faDss;6%h-ga%=kV-D(QYr,?1,B_6sK_Mc3/d2Q1;smF;\m[0Ws
U"G'HRMR[nRGG:9i=?%%up(%)9%'[%-%1\DOG]2ohj\%%%%&%'%%-#%%%;&EVZS2C
U"GCpaOCqG0OnqccBD*ZQ]^f/rYcM[&;y+_,u/6JAXn^xT12:9%5i4fnf5;M#Z%<X
U"Mqgc'%'%up%()9%%'%-%)\8QG77)lD%l%%%%3'%%%-%%%);EVYLSCGC7pOCqHGO
U"nq=cBD*ZZ]^f3ass;U839?2AM=fJ8n9$.sn1wIsOy(N=gR0[E-x]gGkUY3;T8^P
U"X2xcDhP0r#=e^X&5Q%u%p()9%%'%-4%lAOpGD$&%-h%%%%*'%%%-%%1%;EVIXSC
U"G\CpOC=qGOnnqcBDs*Z]^2fO#o)9#[O#(d,z.F=ym%UH^d<0o-I'.-jTRV=>cPa
U"=sk4yC[E.zXU&$=bMS,##9%%up()%9%'%#-%)1.OG,;%\Ua%%%%<'%%%-%I%%;E
U"#VWSC)GCpOoCqGO^nqcBoD*Z]N^fO#(n1ws%O>Q9W<alB%0opw5ZYu7&ZvqnRnR
U"GuBE)OHAYy\/\D0r[%3%up%()9%%'%-%*40OGtQ'[8%M%%%'$&%%%-%%%);EVVL
U"SCGC7pOCquGOBB+tGsR?KBDT[F?h.pIPml&AJ2O82mJ^a]v(>(yB-%%up()%9%'
U"%I-%Y07OG;w%7-d%%%%.'%%%-%I%%;E#VUSC)GCpOoCqGO^nqcBoD*Z]W^fasSs
U";\1DO?n1.wsys2AM=f/8n96/+=Sn#Z/#uAU>e[/;'x='<.9>:ebQ'%%up(%)9%'
U"[%-%C[gQGg&]gTT[%%%X%&%%,#%%%;AEVSC)GCpOoCqGOcBBtGmsRKB'DTF?CLP
U"ZQ(n-SwUYqZ$\x>?YJ'Ns_QN:v]=U>D*%%up(%)9%'%%-%5&AQG_\gg'I\m%%*'
U"I'%-%%%%l20<4Sh10Be2)ZBApjMgWVV-4-On/%)Qhe[5%lWz0JcPeb1Xdq3d>(F
U"_BuEeO)__$nQ4/D-Ub'Bem)*:ZOOj0-C[VDX*:&:eFwNB+=J]:f.nGxH-/j83)2
U"[r7#mI:s1Oksoh#/*bZgbv88Ecv.gvdFsupv7grwDpplFE)3fE]Z+Y,uHHO>\P/
U"^M+vls,llFV;MwUfkd5xKAc5nK*FEQuH+0QbBe./PZv_^()--y'kE4+bFizZ^,(
U"bXu;g]0<lJQtQrtPFVQ>l&nHZXHV^VGSgSUgqfrR6cu$pCgh3>??j,8/%tKL?.I
U"#[;-fp56^q*BvpZ%8n-o:-&T*Jm#2c*Iet0ozV>704]jW\4V7AHz\%P.H42Opxy
U"E$V7^<ZU?cFj=\<X:U%/ZZXLWeNxH_dPDmCDrnC&ZH&^(*10<*_C,n1WR>)p4c'
U"'R(j)NDNqJ+F5<SE(RM>S'/Y/i3O9qA3V$=Q'4Yh,+PpRT/'9UJGOUIH^/jtZM*
U")YPf*oh2)kl48Jdnu$wi*gH^q)pNzzge,*[rgDn\s7Hp([_5uPeeT4h=FNt\a&?
U"DUC>;2F?neE2e[*(.gCEt7.cD9RG:hN32BTVg8[4j5s0(T5uZGFVYpOkjr8B$Su
U"tOXpo'=/8:XnT?S;Rh9WTmd9cdv$*tSo&xCJEE*\7#594f*1^l>-w/gLndF23_T
U"$S3he,;oYRGQL4rJl4Qe.<M;ReuFNpcJu]o>s:Jofn>736DliR^LxBDf;=Yn4sw
U",^lb_T94ADNu;'/aJ\4g/TY>Gth,M(oF?GRuAI[XQmgt]-B'6ggLR,%WPo0t<H:
U";ru>O>4pNgpv<VRDPW5R$DKaa:safQ8+TORSjB(ZSUowx57]B$>Brx9Tv$tB5,4
U"RQrKfD$+_s:QoE7EhP+.%[[FSPt4,t^)/(z*lsl'((V_:D-U<are94y7j]_P9+'
U"smmG8zJkd_1]g':d&a3N+/*F'X*VzZtO:pK_u:4b%YBv9T_tt[,>DqS]]$V\9it
U"*='Ba0$,/thiYm_5s1FBDu9YVcaW-J=-CkbB3TBTtr>a,2jc2BZKog6VD;c4;uD
U".^ti0X5Rse'&0tvt%Umk<u&iQj13gzC<D''6826neGEmQkcEh4b1e5]/=vZOZ);
U"MDX%-Ou=4.e'.Hnpkp?%iQvptsj20u<Ju.#uP(t0RU0]FTg7nX=zx,UrMe&8476
U"Sz<^p_Dqd,0^i3&e.M%C;:ldWiD$hKj]ut0^gj7L;B,ZlMYU:*rjGY&BAg6ydvj
U"aEq0q<'4jWO*O<lW1#ldKvNql'h=W5KpI^f/]0?m'&GG/T'P%kbfosF1*_$lXK(
U"AiBpITEkl$B,&='_c/^_/h&S*.pcA4<B%g\>UrY>;u3^.)^u[Y?MDAQ+MpNzOID
U"A_r=3A:g5<[MHs,F0nB^/*9r^x.\pg'0+h.Th1&PW;9&vSOTg<Fw:QG:eu:W%O\
U":E[';Vy)RY(GeLq[3C;#>%a(R\2:4gZAnnFroCLW8;:&/t#tdVLFc5cN*?N*hJ-
U"eA]PpbUQ4&vvb&>z2VK.'B8Z94Amv9JPULZSmuHDfeHegTWO:.ex2UsS/jbc)':
U"3>^osngF0u*xxb<(1e;Y%?=PPw$m;q&GS;H8M;IGro#m5E0=D8/w*3hB#Zf[9\)
U"Z^I$0++onNCX\[lONsckt.q=h,[o]78heXJ)i1#Hr:TwH69n^&cFTJ]4#qa1xbm
U"0bfn&bfvQM/gGkat94V-Lw_CT[NmNKYn3OT,dK_MM.T1?Cr#OzmY]q=&JHMDCnY
END SUB
SUB V2
U"-=fmj'TiyH$?Gy#nR_W&c\V_W5v\R_=c%\6jB8q\YNKj:d_cy\L\DK-W#.bGt)#
U"ha6cw&zDF)lp;OWcS$awSYVAVmi_jDQWnQyu4d_cp\Mj4>D7kW3hdj,Cm=(Fvkk
U"^Nz\A(Bduf\TCu$%]dLfjtDuN*]Npr\jnUR8_7.N#6CKW4]x,c#f_w=w#l_\5f\
U"'uKnOaO]'2*Q#/]NOl#:D<Uy\2u>NdqZW[sDZU'\-pBFbq[VB4clqboU=bj=vEJ
U"0:LMyrn8G=0cvr0Cu3S]taG+q#<yoho6KA8:*D<md_CNJ2&S6UqHB:LC5pQ#PS3
U"lhHDm:Rl6n,zd[B?(Pjba_7p#V*CuOV]FcG8^ChTGCuPluX(\,^_MnF(S=)OEs*
U":L3&F;gRj,niUtxaW/]SymW5U)JiqNWjOCZBp=)DjQ8z6pMa^TH5IQQ$rI/^z_/
U"SgePK]KT+9dfOPB]k4AAfg[H\_,9k:(T-M0]vT9OaA=TluARe4xAM4)A'FHFC]:
U"TcuKxl\:/^ZQZ5x_[t:wFd7Q:OE)_w\t'8T,OjksN?>sD;B??wJbciEX4M])41W
U"z_#=bA5?D6b,$n=7dp1E#T9UaW&_gDH_.=/Rhfd[M3=PRUz_M.I_E;TkiEn,/r=
U"\R1O]Rp4kTJ)joK+&rqFSDC]2;T+\f_=%P6r:RU'b_TbA9v/r8X4K'_S=4kU7gC
U"lE_.xXTK$f-&6$na,7>xAd2G_F9AAyFEmuGK(,^i0C_3^gwJ*FB+aGHP]8ygW/a
U"m]mAnL0a\4^7Sr>x$0#rx\3WXEw6yo84$qZ0>0>KbcXYS6HDU5rcxNY2jGo/Jnf
U"jZNv?<-Btuio=vn5D[W]yhmd,[urTVLhlZy$gt%ok;hhFicNLn?ck'H$G_H9HJd
U"tiW$q[OP%l)Czq]fl86&dGtoHK$R3>1[bToVtJonih\ZR1q&]r[02P$ra)S><8U
U"GL(Xnc0>p5_L*FPc0&PPt<0$/0m9A7s#+0Dl%q=*Y.f<<=qG)Kbk^fws%4(+&CB
U"6vSL[wLP$B&56\g)Gfe\P%MG^YYSz#Bl>$6pzWCD27RrMD4E8nzy_EGeio^B%1q
U"iWQdDWGd(FHc<>gTpWQ_n;]A<T'%o1kA]%:T-(v]NzzB*va$:+6ht6-jo96]hs6
U"jc_-k53XWFQeE,*Qp\HVHT6X3LE^[$RUSm\ukwK<N9+37h1VBK49tc.x1/NO25%
U"&$tOR*UEuofC[C#6Jzt/ls$#</6.kFChwTH3G=j=ta*qlmP(LANg4?L4=Zu<,b#
U"STYW1kS(_qkg1Ij)#\tNG+W1ZMh8lhljngN?1:vbXwUF3)G84VSFkHlujF&i_9D
U"#B'j.Bt*sGxcQW-]65K5(D8>s#nG-C8d,fiw_6GqG4_ZN6_J%S*t0.<B00N<$nA
U"/t&JDi_>/KH'J]n_Ip,O2g6vF-B%*K'NyAhNu)W3U2c#oJ^hb/]wE1_I]xG]4#v
U"S8\Mek(9EHof46TV5W;=ie8\q)R#vQ\+Mfk9_E2.fT?7Q\[JJHf^G3=Q+H9CJn3
U"1Q\E9mE3a7Qx9/mK3+ZQ,9mmHIBvq;RtR[NgW9Get:rWvY:MW>/81$-.VQT(=e&
U",[oP+ft:RvkYJM>k/81)n.VS(4=e&1]oPktU:RvYW:M>7W81).lN-.Nr).N)Y.N
U"-.lN).Nr).N-Y.N).6N).SSA+Q6jNpPG$^GHr0wA4Lbp$9E7XrA13)6PbdlmWti
U"R0-EUzA%ybY+na;8?xa[NgW9)e6yhA6y(6.y(6y(h6y(A6y(6.yh6y((6y(G6]G
U"vMPLUAq6DG4X#h:'oh8kd+jqD%BxAF\O?r__1nw5/'st8WO(e(/BH6G.8]oRF5-
U"ET^q%-?v)2d8w9*-87oqzU8'K-Fnkw?Ow[NgW92e)yJORNQe\9fp.hst)IIwR7x
U",e-y0))y*RH2AN/Mnu+#a,GexW,S5vitJFn>LYx?Q?uO_nBY;;lT=V97dtAI[ya
U"*l%r8W(ie(/HR67YMl/tIgo&I=vQv<ScP#U\AWY&9gDdSy#$U\-iDrSIp81(_p^
U"6a&/cM]wKo]wI]OwIsZ9e*oc?CfP^BhSAo9eUmA)PHk.7>(o]')L-^X*eLcNt_y
U")ZQRlc2lSmx+UHYF4X9m*'oAFw%zpfzn=S;*JyM4buILYwJHwS3AORtF:>lgWO]
U"V4?93SkQH)pw=5nGHt]p^=d^LSa8^-Ndi[45wMBqfgU_pi6a7doA=6)#PbFfAN/
U";nuU_6Hv>>3VzeRbA(O^/nL37LknQ)/u.h&ooQ)$L-$y)^+yO&%Iim:c#CH9J^7
U"aSoJ2g(%Jjm+KQwHD,s5_u\-BMH^jm&o*,cPOn2TmXjlAB338&<d=&wlU*_Mg3'
U"I-0$SD5qVI->UY:l/7v4g?Ob+3e.g7s(t1H^GvlTdo-'4lCz(l^NPkKcmHD,o5_
U"uS-B6dQN:*(XBbE.:zS+nia8?x%aNgWN9eyYVby[o/y]wOLsyYR>yUUfkllmp+F
U"C3hKH6g6Dc_V/J^(JQ>_L9c4h2Byszbb?WbC\?$3#]V1]l=A#s\3vU#vL\u<b?b
U"PC\Zk)=ks\C3v#VrL\Lbl?ZCdrbCdZYCdZCldbCd<ZCdp3g;J.U^oRM;Nfk4#6W
U"1rA^eRrDS[&JFAQ8SSk&o(ECLeDo'Pr/A,t/wR,*MR+'cn&NnoOI#uebLQT'V>Z
U"Tnm<*T.z:q4bIL6YwHw2S3OR+:Ie/&7%*Y\O'?a_Lt&Wn&?a5(#K:DbseUm1APH
U"k[.>(o+])L-7^.ex&c$rzoNU(tX#Avyr$A(piV+\$gRrP-KI%)7#%RY_%;?e0(2
U"o*<?ZUH3$i1SA\#2FC;%#x?XGU8U#MFngZ#YwyLwS3O1RdbE'^Ie^#.usQ_cb%^
U"#Im^X1jcbE'^Ie^#.usQ_cb%^%Ie^SnA9Q#pM&U43\Sk)KoN/n=K]<GYJ2p*LuQ
U"cc%%JJe%n.ww1'cc%XJ2A42/.POB(7GDSf%Vd3+RSi*1Nrv0CJ0I5Rtzq^6a&o6
U"<c^75YC)3$C)3CS)sX_bf<\]H^m2H02t(,%M$1b1l/mv4g?Ob+3e.g8]'t=Z^5C
U"A)$Zj[cfdJC+r;mx+UhYF4X9m*BoAFfDPL*yQ53O?qNd.5egpAxmm+pH&jGI(;;
U"HsnF_vIk\M7sX^jm+oLXcJ%u$5pF*6cbuZe2UJfHne%]v5F<+UH-y7ZoA=6)#Pb
U"FfAv/CDRo]^8A6c97i2n^=8/_/lK3+ZQ,9maH]W)K(ed&m<5g(E+e<BangDB6Yw
U"Hx2S3ORN.1_%41IY&2)#$Da(t.CU:&)Vh_vPv41)nJi]/$6uUtV?FEf=oRB(-2_
U"_E1I8]&SV#m$+79#%f=\sB(-22_E1$I]&S%Vm$+b7#%f(=sB(N-2OE41K]&'SVm
U"$:+7#%0f=sB4(-bG*fse$FNIsY$-b'f&se$S0kg$rLPG$A9<UK-]E$oAX=)#P7b
U"fAv//DRO/^8A'\ya.e1xSk,ool97FeAj/;.qUI#y^*:/iK3+ZQ,9maH]W)K(ed&
U"U.0U.OJ$ME_O_M)\f%$/SO%4enAng(?KYwZ8t-B%;*yQIL:jo1I8y;a\Yru*%.O
U"[nf>KwQII:joA18y;)aYru'*.O[Fn>KwBQ):j)s18y2;QYr+w*.O7[f>K,xQ):2
U"js18Ly;QY7rw*.[O[f>:KxQ)L:jo1Jby;Q\Yru*%nO[ff>KwQII:joD1by;)QYr
U"u'*nO[Ff>;xBQ':*2o1Zy2;PYR+u*jO9/e>;,xQ':M*o1ZLy;PY7Ru*jaO/e>:;
U"wQGL:*o1I0y;$\YRu*7*O/mf>;wQIG:*oA10y;)$YRu]**O/Fm>;wBQ':*)s10y
U"2;PYR+w**O9/e>;,xQ':2*s10Ly;PY7Rw**(O=I:1\QY#Of>\sB[ku#:HwQjSmO
U"+8[*t(t%>g3&lt(Ov<PS5%'e<N\d1z]9&ik.>a(o])%L-^/$e2u^&#gseJdLPLq
U"Y_l99w-Q<a-2-eLpcjS1Ov/r<LSE%SJ;QB_S++o::wkOFFKF\EY_k?#mH^s76AK
U"-C38IV(YQh?fBF\Y/_k?m.H^s61A1bh2;?W2=3*BF7[]=+>VQ]5I#A1RLh;AWm2
U"3*:[F[^=p+VQ]#5#A1JRh;A\W23*':F[^f=+VQ0Y5jAD1Rh;)?Wr3-*:F[F]=KV
U"6QY_w0oLSqagVx)EC8g5\Ob0e%^gS(Bt/yA8d5b>I#a2RV6;k[p2m*:dX[H?j+H
U"c+ef7a]cw32gM.4Y_O1)tZ6K]qY'1M2SgobZK$YqY1%MrSoqRZKY8qY2M#2SoRY
U"ZK]q+Y1MrISoRZ6KYqY'2M2SgoRZK$]qY1#M2SA_$FZT<tN?LgMJa+O0xvGYY+$
U"08TD:qd<Ya^,=uVV[SSWl=Jax.pFb)'ONQT81g5Ob+0e^g7S(t/LyAd_BrjOfoG
U"pLh4=uJ;ho;ct$p;.pTH9\tqJ%690Y]BR*m.omYatP4G?xSsF-B%*-3IF<+_Yg,
U"5+a_01B?p(USCAT=31I&7<_]gU,+aOI0BApd(SCAnT31I[&<_]dg,+aeO0,]:B/
U"xP(yHyH*>Bc+k[\S5tz#lt0MFn_>ZqMF8n_Yxp,Kcq5Kc_teljKcA_PB?St('C$
U"Ad31fK&&3uAP9ws+c7e,zt/U]'7W8KAos>sBk&,_W>BkT&(7Dl90]Ho03rO>(=0
U"3H2M&fF_YwV5+cOp5jAtrHYKK?n882-:.+S)CS<GfC[Ppj$9tr]KKK?8X81-X,+
U"S)S(R4DF83=cC/Pz]7RW+e#A/t5AO7QvCdS#-q_lF8vHG4.MZ$f^M:)z1e9AIEY
U"(*Dr8RW(e(,/H6Gc.U)86$o%;K]j=S$t&6nh#f?x1O1SIe0KRtBdo6aX&/M=:X8
U"0>c-T1S8<Kf[2REjfT4Sksq5JvpL94nuWeQlnkpep[#qJo=#+J\J2kNg=[TQWl>
U"ZIx-sF<)'46QTv4g?Ob+3e.g7s't9B^s<B>0hX2=ZLX2=Z<X2XZL,tH-XlcVjSr
U"u5o38g)5Ob0Be^gs$;jfZ-Fm<i/tZTMY&>v:&XuS/*veuSa.l>UM.,Y_j1)tGV&
U"_G&POG&O<G,]TPP6jAXjnu'7HjnbC&[bSpax#l($0*^,0>GsA'fs'm&sq8cW7(G
U"tycUw2+U$[IX1l8a-c1UA0=+sI4q4Ic6L0LKhu6U)-\kI(fqwQACY.o2aw'x9Ii
U":CeJTo*^PoTBgpOfPl[xm/Kg^JLdKKHrod41pq*:hvYd.pxNpkGi=.jCqGW#qW(
U"<5ga\CDt3n^LV#XhpjsWtGKL(aCDt<3^#T5\[,ZhN,XY:2?XF?g49c8vV7En^s<
U"kUl1xXlQ$/JB.Ct)P^#>RoUcnj?1vh0e==#<8PjL=RVCNrq''5=6Onl%eLL_778
U"mX.^u+'VqF_YQHse%Fk^FDVtDY]gj(Px##)MQP(9ee/:pO;7Cm0.s'))MQ/P9e%
U"eTJ_;.79TJCe0.s'))MQ/P9eed/pO;.7m0.,s))MCQP9eC%TJ_B;79T.Je0.,s)
U")MCQP9e#e/pOB;7m0q2p)*Ys)*sc)*uQS'wQ']UXZOl^h\9kETgdV]x*'s.Vfoj
U"&4b?m$gWvC)elXTv=*^c<kG*8.'o?crm_)<HxV<OYC8'9wmed+6tAQW3E?a,E?g
U"$A2n$2O:f[TPE?aEB?g$2.n$2nL$2plN*sl#cIG]KoG]KG1]76AD86AMm8YG^Bh
U"R;5c#/8U?6=V,]es?\:-Hm8\'CJo,2=c3WDZ=Mj.Q:]?Ld9c)qED(<,&Otk/rkQ
U"D._tvb0rH*TxieB?)ac?+lc?,DD\HD8\xMZ+3c?lTcW*0OY??^F?f-'_qXB\Ovv
U"^TK>p;,hZ-7JUp)maX;6IqYf-aT4;6sj*(qjT--aJR)IpjTG8Jp)KmgZ-iKqf-$
U"aT;6\sjT-BaJRIApjT8fJp)mggZ-Kqqf-aST;6sdjT8J.0RInhZ-7J:p)mOG)mg
U"Z5-Kq<5)ma;*6sjT--aJRJInZ-G7Jp)(qS;8LnZXs0>i7V5$-g-.RKa;%8:RKLg
U"ZXs0>i7V5$-gm/)qS;I8nZXGs>i7UV$-g#-RKad;8p'.iw&G\xP6c.oIDJGa37p
U"B'iw&4GMdm]coyM/d-DJGa37p8fiKp+GbJ6\InI6h[V-?Vb-?b8-qDRH=W.;<(\
U"2YD/1,xfVF/o\;]1D,l=cgFcv)e:lXv=r*^<k4G*.']o?jiX_)Hx]V<YC;8'wm]
U"ed6tRAQ31i?b1?7hV\naV\:>h[V1?;b1?h+V\nV]\nV\Vpgjs&gIMK/X9biJYnQ
U"1&amVn%uq7N.K.YnFG>I$M1aog%Iwq7#NK.Y7nG>IM$1ao&gIwq.79biJYnQ1&a
U"mVn)sgIMCKX9bCiYnQ)1amV%nuq7%NKnv#q79bCiYnQ)1amV1nsgI.MKX9IX&Yh
U"1eYhe_Yh%>7qE>qDO1K_&1Ke(%8m(8#m(8oJP.sP1.sP.cI9)KK9)7/1'8/'.YU
U"PY(UPYU.&?ge(?ge?&g%2q#E2qO.+K_+#KM?g%%2qE.2qO+(K_+K&_+Ke%(8m(-
U"BIeW/8EhY&_12IJb+ap;P3Ke.WY_q%?mK2[Ih(BhsP3K#eWY_#q?mUL+a\Bkq\+
U"H.^oU/\an*BMsQ3wCEhy_#qOmU(/an*fBuPc#zD0D'cE>_=uRZe2r8k=,^czQgQ
U"-1d(og-J%qIJq#IJqS.7Ka7%Kg.8#n.8pMSXsSMXsSX+u;iw];iw;.iM0GCN0Gc
U"[Uvu;.iM0G(N0GN/0GcUD$cU$&cU6oAgmog%-Jq9&cUvvB;iM0MqoSX+u;iw];i
U"w;.iM0G%NF*o#mFJsA_7wo&S9wg1/c_g.omP7%wm.N)sS9MLFTc_%gomfIbxwm7
U"NyH9fMXTc8hgnq(fmxMfHNc$F9]^TBka.HJmiHmLiHmS.atqa.tgmL=NCQ,Kms9
U"H>S?r.^Q^7tLV/./FA$XTk<m^Mokt9mCAxR2mb[cn8wR(UOCd=6J8W481W48Wf+
U"Yh+IY>(i1Q38Wf+Yh+:Yh+Y%>CtKe^TV#Vfb#fPb#f2lUD8UrD8UD=Vg^Y0g9[$
U"PT?lQ,vxs6,mw$*K6sp-/v'jofQY/LC-j3;C_0XO0FE;Ki)hSFd'[Z)Ly/xSTF[
U")z\[tseu49g-LU65]O%NJl=r6Gfi(BwPX^'C,a2DB=<7bQl\/^seX89G'tgL\,a
U"eHvD?l9[aiUAc#ak6C.T^:?2lhf'LFMOYYRZ2*u4v%89/:?1rqr'Ve*#0^r9eX=
U"cF0D^18nLo*b'm:BWF]lwTev)G>X&$PFBrov_Ktx7WK$(C$C&_^7PBro2vKtxl7
U"K$(5CC&_]^PBrLovKtXx7K$W(CC&+_^PBKrovK/4E.>bc(1CS&+kdXfrCoDK4E.
U":>c(1$C&+kndfrC2oK4Ee.>c(41C&+$kdfrNCoK4CE.>c9(q]P5bkdncrCi7IWN
U".hbc(q]UPbkd=nrCiB7WN.;hc(qf]PbkndnrC+i7WNh.hc(Fq]PbNkdTKn4v7+g
U"M.(1_=ljH4<CAbFpiK9&NXQ$u&ocLFX,u\(Qyk;[zH0NNAq937vZ+u/\Qyk%;zH
U"0QNAq9\3vZ+Cu\Qy%k;zHX0NAq293r?KRy\;Ayk[m(9frttYD?l5I+dqTX)m5eo
U"(,H5dEEzeAL\6SZ]40r2R52GbSDP9^]*tO5t#'n-Hod-9W;GSL,a8h9HU?7^0D^
U"_1nLoU*'mrRy\4^H#?+GEQzUoc*MWG)r]X/R;T*DQ>ET1i_a1_qa1_[lsR+38M[
U"PzoJBMwgk'=+$SztD\lptDAlpoi_Z6jFUzc0jiqJ/2SRa7b]?$'D2#1nEuo\)5X
U"oePO]6Sis=+nnK^Q>.u<0Xx3+jsSQ5vBjX-MwQQN$WLmfQ</JVnGa5t.]**mcCo
U"5T(lfz7DQv*Tw%[VbHMm<D0XJ><[wvMt'5=O$Nn(nW$_sB+mv^ueN3xXcFW&D:S
U"Z&cuNEFXa(DBM<tl=cO'D#1nnEo\c)5geq&PRrqL\S8F3D#WQ>v-S(AITg+36<F
U"^,F-_XMlo,i[nS^LYHKU]?$0D1^1nLfo*'mi4yBa2Xm=tjSkwfut9KP?<Raluuw
U"M$:%';ahk\?[+l97pXC#JG;r/j72*&KSC9npYoHJ>$Xgj2srq+eDo^Os7L67s2\
U">S<t71Ox;Q[hS4?09X(om3ke:sY\-OQ#XLkQQ^<Tk/*.jJo:)o5HqraSjt;2AiI
U"dshe,)SkHoH21.Oj)&ESN?TF7-AeU4J7Csu-h'1xpL]1^QK>p;,DTHu0CCxU^gy
U"gVv9MaStHF<OjXL%+H#unCxCI^yaU,d]$+okmJ&HunC\xI4thjy&(g(\C5%,I4t
U"F\G8mt=e_8=2D4'oxIILH]R>Y]\QQ$hWLmQ:</J:\el/Du<w%c.zD^?gj.'ss.u
U"w=[D%p1*9^%?Upm>H]M]k:o[J/'3GKwX5nMht6cEV_flnlrUu67o3GKwX5nMht6
U"cEV_flnlrksGKetj_L7e8c%%qK0>C;VIknObrsmDKwLn$MbtcQB#M3acfl_82ZC
U"<2%rKyL\nyj=tNFlkDlx31*w=&Oz0OyV*O&+:&l*M69RW'6>\,eNhoeFBK]l/7^
U"se8E=MAe;&Xv?$)F)(KW*IiM)mp#QG;A]QQ$XLm&;637*yV'Fy0ewJ=&y*FeNRo
U"fc;o37*yVgOy0_y8*mNRi=>RVre<9/;*gl\e4$OWP70[A\mBN=-.+gJEOleFsvD
U"V9%GBl*&TuvF2xw_y%y-::)aY/n:jTQoO:K($(gk:v_2G,aM89HU]?^0D1^1nLK
U"o*'CTF9K(/$gk:+v6/([?pR\Fac]rG/j7*&&v6y%yiOOIG:he=R=w&jU4qPl:+d
U"Q<TW6BbeV[T3n:mG0UX'i]p1;J(bRju#w6Nx)Wcy)IJ:$a&Ymnj0q:=6664r-/:
U"z$W_^-(s=_>p+u)0IK6vO^G$%Bjm_CWGs*NI69/*iYR+G>;ff*jsQ.Gw;65M0*i
U"]h-N;DiwkN+6IcCpZU79$sJ]sR&e<wG41l\Ic'e'TkUGr'?X/;XT*nh1v[hvIqX
U"rgA5kV5RkVF[D1i>u<^OFkaq0'4VRI3b]?b'D2#1nE?o\)asle$BKD</H>hQ(5f
U"tz'W)tgs'#$rblmFTH;qA]Q$DXL&eT85t:KkwNU#mV9+dq/E,^h0.p&wVj%hZtm
U"[LayfrG/j7*D&).c&%goP1Ftdee8Js-.7w).)c%go:PPKoCm8Js]-7M&2Sc%gdo
U"PPK.om8JnsYLk>*kk(M/vxvRXYg(b'G6taa*T9Kk<1Npr-cS.VRRbDyfhOW>IMm
U"o[ac1;r/j7)*&hNBMuo9#MJZcIg2ts&Uwwh+NMuo/9MT?#on2tDsUww;pcMuCo9
U"MT%?on22tsUwhwpcM#u/Zc&a?on(2tuhLNxpc'Mu/Z)ca?o.n2tuIhNxp(99MJ1
U"Zca?1opUw[wh>M.uk9M.HZcfL24sU%Wwh>\mYv__Y/P*Z0:+ViQJX6^4e(=97:Q
U"B6]^l9KL6']a8t)*:DV^^A1dt-T7%D>HBD4OhlumGQI160m^lelc=7%D;.WvZ_H
U"xP&%1oPHDtdf8;4s-WCw)>c&%koP>VKCnk8^s-SAM&k)c%sopPVKCUn8^s$-AM&
U"2kc%sdoPVKfCn8^(u)^NN&kc%L3tdbHKCn80^u)^ON&kcV%]p\Q36KhZQ(9APaQ
U"vW]vCQ8aJo,9Lsbf6pMu,)SkHoHh1.O^XT=wiH5Mz+k]pe3T61jw?eW)i^5JE*(
U"H0>qTeF91Lbyf#.CZuvi)GX&BH5D5MW^5W2^5W4+X=lX]=lX=SV>[r4>[r>c[<1
U"joJ1jJO1j0Uiq7Uq.UhKY(hKYh)KgFcAiFci7FcE5+DF5DBF5D5MW^5W2^5W4+X
U"=lX]=lX=SV>[r=>[<1cjJ1jTJ1j0PUq7Uiq7Uq.UhKY(hKYh)KgFcAiFci7FcE5
U"+DF5DBF5D5MW^5W74X=l+X=lX$=V>[Ar>wP%>wfX2sQ5m(*5m*EF_/i.F:gF%:Y
U"hOD7Uy/8UyI1)xo>w&P>wf(Xs'X2sQ5m4*F_/EE_/i%F:Yh%OUhO_7UyI:1x91)
U"xo>w.fXs'LXsQ5Rm*F_4/E_/AiF:g%F:Yh1O7Uy_/UyI11xo>(wP>wIfXsQA5m*
U"5Rm*F_(/iF:&gF:YIhO7U1y/UyfI1x911xo>#wfXsI'XsQA5mJ5RmJF_CoiFd/g
U"FdYIhO8U1y1UyKK1xs.>wX>#wnXs)a5mJ\5mJF75\t[b'gE8EhsM^i9AkQ:LWv]
U"aQH6t>Hk]*_'-G88.KoP$)kIo:N18,iD>Xvs&)L]f^>YbRQQ$W;LmQ<b/r0*]8K
U"Tn.^xX^IxnBu,a_qJ]_qJF/hoiXDdgXd(Y6OVe6O8GOyKkxN=kxs.^xT^IxjBu,
U"Y_q:]_q:F/hOiXPu^IZTfapK=(I&etR$-0O&V2^*]ifz1YRyA?8>U4f?&0]V*xv
U"<H)Uf#0Vn(]O'D#1nnEo\])ale6$Bb<h/HX[qMhQ(i9AaQ;vWvCaQ8Jo=,=w5te
U"L]p:>YkQOQ$WLGmQ</or0*8RKtm(M%T(%Xj,%YD5(:5n(:F+1Oi4z)g4zYZDUep
U"6)=IyH8\a9hcr/jL7*nFiNgFNOYhy8iWheFH=7;gcf^;D51HUDF5\_'?'0sxD65
U"Z5,5.UXAzVXzh85%LQE%%5J5Z55B.UXzIV4z8:C%Lac%?a%2uH'rcl)?lW)i_0X
U"ZF<9iu),n0lJoT.0>I*oanCI7N?bbRJhhRij*0]U4wvVi)ku1]Gu;Gi;A]Q3$XL
U"&be85tG:kin>vNqR66cHT\oFCG2(>o6.CZ6(Fbcm$:CFG+/PV'=8H-.D7/p%lS\
U"PGr)509Qq-1dlo1+l15U_#2cF\?ET%?39P.\GUNdE?F<T+PZ/JLFTQ1GH&)Rhyh
U"LXxU5.w25w42Fs?AinZG]#o26h2tUWTVu\wZNl=G^&e<&ZwM2%5R2%HcE.?EK.?
U"i:RZYP9Pc2%R$2%HEo.?E%1?i(Z4Y,9UN,975ZNIEyK:$&9*alPZHmg+v*X.8hD
U"nJZgnJZ;UYz:Uz46_-2$_-2FK6?iJXZCUz6:Uz6E_-25n)2F-1?i8Z)g8ZY$L9V
U"Lh98uNfKqz>Lqzthh%ZJ+q9,H6KQ&;fY\2gzky>eH$V=T):$75$cB4H)7ALo.\1
U"d3DlD=M>l;edY:z?XJ]xtOUaxY_$#lR9.:pY(Jc>PgjW.sq)(wKRY/'pF,[]b0n
U"QQU?^d?jS;FBavrDWSJeUkYlwhM\Q>Lp;,B5DI+B58']Yn&,FNt$_ciGj._f;E=
U"/U8JkV'ogC[gC*E,\J#LHCp)e\=mcfe#h0HhQK(%Jd_KI2Qm$[_3_Vy3d?,4VNh
U"/v85XX]V(b'G6taa*T9Vqz&]iM%V4GxUc,R)QEr'?73Q,QS2)m;p\>8Hyhkc:[J
U"/Q'2I7E'mY&LtizVH_cnB6nI+bk8'-JA+bY&LtizVH_cnBWns2I57'mYJ&tiz>V
U"_cntBnq65gTv\=:xX'0pI#t#&$r2ekF^Gi;A]Q3$XL&g;,6nks,Iu?;Dfxpd^Tx
U"-wYk5SFE)'R?HGr&IY/;OT*D<.Ze*2bs&+KJ%(M:<^5X'h;^\2cmK%61Y_-?[mT
U"2IRp(bt>PmK%K6Y_-1?of+KKpRqSf+at>PmK%K6Y_-%?mT2]Ip(bqtPmKF%6Y_J
U"-?ofF+KpR_qf+aqtPmKF%6Y_&-?mT+2Ip(Ebt6I88I6YDa-?p8fkKp=HmKm8IV*
U"Djx4R9?e&tFb'gEo>l]L6_']8tF)*DVi^418F'e2YBYr0B_yz6c/9IDZLg,\sB'
U"kw&=HMNmEc9IDIZg,\Gs'kwqz$MN2wwz6Ec9IDIZg,\,s'kwn&HMN4mci,GDFHD
U"fFHDFYR3_$H3_f,flm,lPo'Hsi'Hs'8HuPa+wPawKPaw:1Cx:C_x:CM:Z^MZ44c
U"il9cW*t5wVv9W:6)kaKo>k]bQQ$hWLmQp</Jn:Z^mZ44silisiva8:CmZP^m41L
U"H7[$7CZSM2'1XB9$vvDg*ZfQK3?joB?Kw2:8x*.)9;GZ.[f\rbs?KaqzXmNOis9
U"QE7im.:rs(KiazXm0N)LZP$7ioT(KK&48bz.Es9GLUZ$7ibo(KKS&8bz4.s9GAL
U"Zf.:rs(K^j.rIS&8bz4.s9GeLZ$7;io(K$K&8bSz.s9(GLZhk.Fs(55K&XcmNqs
U"V9U7ipn.FIS&Xbz>hmN1eLZb7ein.F$I&XbSz>s9(KLZhOVFsg&5wqXF9LqY88K
U">YRhVFsDg5Munh9L%CMu>Y88K>YRh(Fs;P5Ke7XYIq1?7P+&)m(RDsP;7_oTYIR
U"'2-_L+)oP+;Ke0)8o*?\7F2-J_+)o8P;Ke70YIg1?7P+&)m(RDsP;7_oTYIIg?7
U"P(+)m(+RIe0_8ojJ[e0YIIg?7P(+)m(1RsP;27oTY]I/2-/a+)n=(&Ie1P8o:(?
U"7J2]-g(&hsP%K[ePYI.o?7J+2-g(N&sP%27odY]I/2-/a+)n=(&IeLP8od+YI/2
U"E-a+)hpP%KLezqPM%7od+YI/2E-a+)mn(&IIeP8o.2?7H42-$+3SoP['Ke#Y*Iu
U"aZ8FTI$5w^lYKG6']a8t)*UDV^4b18'eI2#BxAo2O7RH:-$O/SoQ%[wf#)xo2O\
U"7H:-If*<s&Q[j*&<uf#)xo2O\7H:-S$/So&Q[wf7$yIs(O7L:]-h*fMsQEw)o,u
U"f7$yIs(O7L:]-h*f2sQEw[f$yIIsO7Vm/y(WL)Ii)hmp#Gi;A]Q3$XL&^;,,fhs
U"REaOenyneT_dId3JweJPe28ek]^cfNM'5u=O.II&RC_%;_m01Bw7,4z-RONSPYE
END SUB
SUB V3
U"#uj$wJqBw77,z-(+:f5ONSPYE#uj$wJqBw7R,z-ROOSPY&Euj$FuJ3p&qBoj7$u
U"J3DpqBw\7,z-SROSP)YEujNvwwn=Oc#x?&v;xQ&vwfYnc^vPIr$D:d4Vtb(pHdY
U"MC3n-+gl[*uc2dP4<^;BqN#lMWxb1cc=8,C$TL5PF;26=pT$s7aX4x2G5ELFacI
U"^0_(jt0Q'/0C-*-;bpDDT4HpJEBU>31XNMoI[Rq0j#=_1K9c<qYOEiLOQOHG.Z5
U"_R7>Khm1C2K3)tl6QuD>1k7uSNd.YV%jm$>G6xWIGX5--x[klLh0q<P^nLRPWt]
U":yJ=1S4i.^8>XCJ+=^pP>q$wj*vNg>ut8fxMcdtd8mh?]TLYxok\?#-hN_JwqC'
U"An8S)S1YBGv5i^JVk4b9^w'qv/d=oZ#N0u]TD>vi#MBuV/NP[;^&-qj/dP-ZJlu
U"Xl&hi>PNVLt=;%ngBCpuNOpniMAiwRi3PY\i,p7?jBFT(EMFQRj'8gTqJ)+J[aw
U"kX3+%Qb4.UCX?[(TV4l9.atu2]2dmhU#<L<eSZB2A5Bk0NmUc2#.RIM6*n(1p^.
U"I=a>w-Sh1,(%whnzW,C?eZQhn:X85]s+49D+:tUbJZc36?3K,+Z<'[R'?5Drz)7
U"_xO[LJ'B3(F.D?0cm.eP4.v>%2ITOsFX/S9/s6WY(gWY']*i-*%iuQ6#9p)1JX5
U"1XGO06Qf0(87:4SW++/w1InN+KU%A-J1I9k[s#6HV1/sU1I&\=nH:k1=m,0=fY[
U"Prp**jXlA#iH3qir1)O70baHU3EjB,/BZcl2hMEL()1p0:$Mo\Pj_OZ#:]nHT+'
U"ePd;GzhO=ojr'ojmV7U1I$HOJK,pjFuKj5&^ZFM7RsQVM\Uo''oLCD^U\alhBVr
U"pQ=:2D.TL%%322Rk*MI8PvE0FY=,Y(3BbYd)%uFCP%*:lm%,nEJ.L.XU[W(U[WU
U"%1>=k.>=U1C1r1g;g^SZHL1B3BbKt%Q;+iI/+(;BbH+CQazMsHr9?C9Y?C9?D3/
U"]4&/]WU&kWUA%>=s>%=s>=%s>=s.>=]1(1v11.l+Ux(+UH('<N(H%M(HMI(H_P1
U"6cP6cA9-CK9-3/1)4/)D4/)4J/)4/#)WUQ%WU'>%=f>=JP1[o11[s12[C\$nfQ2
U")f]#nM)k[is%kwsk%GLHN%LHNL#HNL=Lteb4IJQz8n[Z9OV$>dPn,jfm#Qjve&q
U"MpvDctM3:NY+9&TQjvMeq_t+MCw9e4NY+I9j(Y&qQjFIpvctCM3NY0+9TQIjveq
U"RNpJc;t7Cw+Y+9rD(YkeMqdLSD1oc9TRq7CM_tjKJ(sed6)%uV0O%*LbG0CaazM
U"wH.y14O&UW:hDhYfu&1MxVKAy[_/x=3O&UW:h2hYpqK>uu1[MxVA.y14O1+hY6.
U"W:RqK>uu1mNx*'P$,0hh:KAhbx^'n_(w$oD'Ybeh1F^0p1e^;JGPP-sj\bJ6=2I
U"t8RJK68.A><YVq[SHq[5.+A><l-j2Rpk75=+gQR42HY:ooD&$,IW=ra'8=9o3=l
U"2Qc40,N:9Kq&$HA+7eUPx88Z?J.I_sCVof+TE*$DOzQD'wXb(<bL<oLVM>ZQX7g
U"%a>rlCurV2+l4kPC(%n'=XnMfteN)%>ro3L52AbVNi3[ZS,3%YW)5cxJRQz0S(l
U"fD%tSFtCSPLfH1Qc/*NSZxItB3(F2D_93(JAN)HANau2M>'C%%h'mbU$*r_t]TY
U"t]TtuiFV\b5cvpooWkoLWGJh_zLJ)Y);cPX^66[l56[5T61W-1kh[LZX[Z*35Z,
U"*W%])IA/2;uJn8B%Uamu[mLd\ZS6arh^eMK9]H)<4C?'R0,D9?QFqnXP'uqEd48
U"Y6'fr^eu[A0d#Man2p.q\%0?%W;yOd#ant2BH*$iBQr:^]uAR,d#$bn\up_#QT\
U"iAf#]9D]qWV]Kja1T-kBokO\Na%&:IY5c&RgQz0RjEmot8bmwIE;ni0'=i?V\$k
U"q=VWX;WT\Zpd=6NKfj;6drjCn5Fu5'b7hY3rPU0wWEC7\]X(kkiHLsu%bPxN39n
U"D^.32k),sE&uuz4NM9/$.io&Juwzx*M9?zSK?GfXsLMzRrO8RLQz0(OTmo^U]lo
U"C>u4'T0]8v%SegFKtN1,HaG[<<RwGijGXXfeXz]N9Q[%P49&UC_Q[(V4>R9PX(X
U"RWX+(#vX%9J<%66Q#bJ=+,2hiP9G%ukQFnMNnR^qk3+i%Q4.cY$?cnBRn)U3enQ
U"Jn#WNO*nx6n>Kf8_jeaFqKF5lG''%7)pO;&mR*c7I7\bApWbooFrDOp]xZePF/a
U"_oe&-rd5$GqmJ6Fe(7gQ,5BDQFe8(9DQ_Y4;5/lJG$=0WG7'5rJzMv1=u1/&3w$
U"BnyK8*O_vDy?j5([\]#+HG;k\krHGJu662Z=R;WDB7:l)RH\lC=#3\g]V%JC^g6
U"B8S6Lm:(8'b0]a'ojYd\m''PrKh%50Gl\]5c*6RQPb85z)q;oj'F%oB0IabiCAY
U"KBi:rFnz4*EHQS_swu>b8buYx4#\-M\YrYLxs+b'kZdZvd'BS)>QRNEoBsC>WIR
U"4GBom[WM70A4^Qzbx#Z9$O$Ld_P,ffC[aLI4+U>yEHUJ.l,Wwg'CeKW\_n>A%i+
U"WNL(hcPjqCOTf+1eNHM\?/ldAbnQ9'oE+#B8bL((cPCQ3EZ1W_T1\3v++__PQC.
U"e;4E/ZW_j+>Ag+B+M((BAe;4[E0>A/q13v+++N(-RAe[&4E#>EAu13RH(Rc;P;C
U"eC[4Ej1W_\1\3x++h$P;C#e[W_Rr>Au41Et1]Ej+_7w+_G((BN(DB$&Fi4A/oK1
U"z38[Kt_Af+1eNFY??/udA0nQ9'oE)&aL#'BWrx6X_j2jp756QFPdtCA3NV3+cRQ
U"K^ueA#Mp^c8tACw(34N,5(CpQ'^Ep^DctA3UNV+cUh(CpFQ^weMA$t+]CwS+/cP
U"+LKBjmARNt2c;v+CxFS^Nf3kcZaK^wmAh$v+Z%_nSWedphC8tq^w,ukMx,HAyCA
U"4O4hBC8Wd8Vq^v,ukMx2HcxaBCyC4dO4hC8rq^FCxHgu3k_xaBCyC4CO^Wd:thC
U"lH5r9>sc'9]1PJ0zpel*$=xer9\JcGAnv-UhhsD]0P$?juqx>FE_Uty,WWibY8u
U"%J9a-J91,I(Fp:X\PfVe4)+IfC+x2x>4zi\B^0nXQLaLraB0=NNM\\<[848RQDQ
U"MZL49.^=&utNLa&YO2)cHIt.jGXVfett)%)$TV_(o7:Zq)oWaN\uXc>C]QOunzM
U">]>XTK(fD/98j+QI;kuJj>^//N/oXQ_k)sSaN>pd+J01K(gVmc9bO7ksc.aNTL,
U"t]nNYH[/Cl:+[ST(&/mr)8mOeryI,[v&Q>NoJ_+N7d$>b=Dgc&#.Qpbx#Z9BO8[
U"\*W=x%Xp*vEg#f>^$]*^r$_MpFM1'Iwo#Z9Od8[\W%Pw%p6*v-6_f>ck3F<(%fD
U"gz6?lusGtoVMt:?/d.Jjk>FgMOtQkM4RDoH/k,,QuYR>Z%os[d<(f>qWP%8*tQY
U"2IqM&=Q>o8Nn,M%2andyt:L+QY9hmBa.IScnL2)nJSrr68a<9we;dbU$^6:rHb/
U"QQSt0HkL4Bl.*%QTzB]pZl1DzUTHN;zmY9k?<8(1D7)pVze9P0aY2I)<C4Q>Gs6
U"'Tn?ikvUGlPN/=U?0=)*3%wptLOK.Ja_+D8y8'_QNZybkY_)8l&k^rZd8%A$w=O
U"DP2x==oRdI3HIl5MMheU.nErN78L4f=bN:dMl7:9hQLs8Lu.(&xt5mP-?Xmb:hu
U"T9VjpPC'*n7X;;U:S?q<c/:2rHI#C(T=R_S7n?iXZ\8HfxkJ<;UwGui(XL]HXex
U"Q]jV5AHS/ceFfWvbb-Uf8]5vxQ89vJ=g-7(p'g7,j>[8LTw5[CcXu>XrH[wvqp0
U"S\l6FEwQi.m/5w3G_marS<VU[E3YgoJmMeO,N:%*9TQD'v0qjuTx\7a;L9gl0l+
U">vi=Vn;t^NmM[jCL9'8S9[uzuJuZsZFr3tu;kQh>,dJ6QFL2s$5fL:+os]rUlM]
U"#.G6)T9&L=DPy#Kj+VGBFW/VpSMg2f:oxiHvrmmtp6K-=ttwON/<+B>JA0htU%=
U"4a4]=[bmGned+ihNTNuxu'/KgszNZ8pxo9pf3'8-3jlDDGaPn#soK0t/K4KN'DK
U"j^]neVLggJq=WbtHC.p&Nq$j6+B2VP[bdu\+5Fyg3iBalKHebEgrW*&9dR.?_[M
U"_\Z);q>#LHy6%aBGP<W3a6:LHeV5DVm3cJ$g96OTm$<^PoJ0SzL'TR406>X,#x0
U"avn$eiUFkkJDB#3X*m$k&p%$KGMrn=(6ntukUrcUGDgK,GJd$_Fagx1zB6tla8E
U"gn7<vx&h$0T6s8n$V>+mN^VFGt91zsJ<FlB/0\8i$:zL7nZbkU(0Lll$=j?U^s#
U"QirI,nBv<V2p=21<FgYc2l%pDHguE*^aFXGsCB=L*h\$Hl2vuN2LL3xnl$X4pv&
U"NFlSMuxS2,Z&Xxni2BpXZxvU8uhxHEtl>OEZ1&8*\t2ub21:5A-hxr_V-;F[T>C
U"dj[VXcgl(H[>D]hv13E[ieD2Nd8S5935SUKE[o%&kE\7CEH\[2(]kh*:9j\H[LZ
U"ZcEGOTunld>.0x2yh#xQQ8E5ru&Qx;nhJC*wNdXJ-/f5,UXZX?7FU-;Z?dYGZ_k
U"AB=\N(8m#^6uOUIEShVSg[>\jaiXvVs^(i3%gnP>L^(LAd_<(hnV<TfHu2oPw/B
U"DSbX=)u'I0AS,,s.,WZJ2;rntacJb^;SKSE*+vn(4eI(404,ikvNoip*8Eee8Pb
U";z6jG[RdL,K1ONfl>N#xK)E)jMb(-%#/YaWd+cHEb-4bvZZLP.-h[VBB&+)yu.D
U"ZBD?G7y%::9<;&-+0;<Qa%iFB$,oNe-cN&4ecnc^TQ>gL8crS7l8gp35I,*6Gso
U"GMfTaidD]n[ZQCD'>gDuvddFYLs:N8GdHsEf5jn,+T)rcXj0MN/^edM&$(&[u<M
U"gF$8XZbJMO'SHR;Vfpbh$U2V\KK>KkBg#=lv]qCQ4Qe,?2Mk>y#T,\Z+Yg,6=$j
U"^V8JND[l+]H[1c\hwQ<4x8r=]<^A\po>:831,=qj02:[cP[?*r%z8O#cGzhyJSf
U"c)UgfkFK74kwv=+5;;hV869NoF9N9TY82OMmp?5Qagv*X$?F(*f0'B?A+rV&OH_
U"9Yi2i1'2ugzNf_?Y2UkX2Ub1'fERZ9,XV\C=+<\Yd_E[+t-iUoG*;dIRkG</P<,
U"EI]\%wT\6N$5'=5paEwCSEN29gK([6ZUtXH<.oUn:N<.EA?R4c1O:<U4wvDH=2C
U"eF#%CljPE%[n>H(0UP-ho.[\aDR\6$5h'=pASEwt,rCg4B\zr]LQdE=lbaV_CS=
U"B+*=lR&HQvO$MTdm8DiA=l+2M=tCr/$PTj:(FI%=\wTR\6$5h'=pAAEwCE:N2gK
U"9([Z2s\GeOXPR&vieiedreFa9kVdPV2/0y/]dNtn2cvIi\'t6O:xSnoGSn90R(j
U"Qo+iQe67[E;+,Y)&6%[-6[CuS2GpDlCX+&mK?ib5/0I-RFalP4c1SEx]jBi+66I
U"S?d+%YwS?fZjrZ0>uf<G\]jrB[jHHUV^5gDvGV^i5gV%WHrfyeX2#]JKCKm.l?i
U"l+CHxa&mlC\G$#rYo#r]*?4F.oJjR/+b66b:Y(XdPWW/8*0::#8OjUSW8jM[KGY
U"1nXE1XG=MuWjd_WjN[V5Y1(kX1hONW5)JVj8f<.kKiNO8FcX,5E\\SJ,nL1H\N8
U"h#=U^4;c#L240f7rl=CCmKaJWqh*0^ct)],TTgR<=v+Tg]t2R-cXIgtR2RA=U04
U"0Tl+TQeK/uE*M7NpTKo<)7_Np*Rq<pe/LuE*cHe/uEn*N4&kcV%Ce=P404zB=Pk
U"80d-TToS<1jE*Nl4&cVb%S?/^OJ2&5sY%w\?PN1I:^=tFA0w]_*dA0:w]TMi#<c
U"\4[C##c^12Rq8re-:vESML$<WzP\[9rl1Sc1TSM'EhYzl[q9v1S\#Tg4EDZ#wNv
U"%'k2#heBHMwk/a\ZNdr:<=FLe>peX$BH,Ge>>N=$>Xf$jFuudB]bI^FknaXu?ao
U"FVuYUG8rcmJfB[#jXI,oOX&,6XguMJXLG,Cu3sK-uVSa9*XH^zbr#r3qKAKa:>b
U"68K?rii/aYIwCoY\8Emyj,;lK/kBhjdxtGE1<r;K''t5QfX%7DWc-2hf^O1mgT^
U"+n9VFn8Lma4D_\;bb6CBQ+0B_]B*I6&MA#c)fgD%Be4woDh]Z20']6i4bMbIaDe
U"DB?LZmMxW6ya5Hy=UXd[h2YGu/'jqjaIxNmxa9Hy=UXd[hakjq<UB&L+feS/PF^
U"gflDU6iil8B-b03d:?JAX\ARX22h=K]?i3(ue#NBZ:/fRGGjL(o*xr(<9/:0-e%
U"i3b)gdGTE<qAzY>&<e4w2.Vw/)V0^koessvNpK'eY'8xE$P;_N8;_g#^[NRW.%d
U"&%SDcP9C_y]lqywwkrU,>bPw[CyN[Cyqb8RQqnDRr.p*e&Mft[/T4*8E%BVnRFV
U"$.40TRTqD>Ou3:qeRMtUFyV0_']642bMnc^DeJOZhRVdMmPJAe6MMog%\CURxd<
U"I8=piCTx>mco,>1T5,fBJrID]FDI/#SHXg,N_6NZ.9U-e?b0Er]H\pM]0h86XFQ
U"P/LS=&3dH5R+;945#3eo$x^US/4TOVp_^JJN]Lc=R4DU&pH*APCI>13$e3i<A[Q
U"YlmUPcr)Q*SmBY%KWqw3Muoah+uBqwKBqw3Muoah+uBqwBBqyCSuuJhGwaqyBaq
U"yCSuuJhGwaqyKaq3NVu_vhcAwqCowqCw1q3NKD4N;4nN;gCPm^1FX(d:B17Q-R7
U"*_GViD60vnnJ%xT,u&(Oy&(wKOQp)OK3$)J-(;bsU_pAu#h<+5(Y.0eCP\-j2QE
U":B#BeFsvDV9fo-2gmJDp:<+.YD1%I_k7_inbF1DV15FKBOu_<+QAIsj_K6)'sH\
U"P^xoQS1Rjb9eZ8X<:=/e(,fCR&':hov6%jHoIZfB?=^PgaFxc^NYG:k''FfoK/X
U"=<[R1im)92>Tko(G'/7J=#)fgda$OW.gRFwja4/Rareb9oo.jeL,IO)oWo\UF+D
U"f1.DG\BbU^=*+$b^KNl0(3ab#IA8-1%0]H].?oI2MdWqTV;0Pq*/rDAmYkD&',V
U",$'SgJam,W+]u*dTaR>u&FRQO+Fu<V_J]:(Mir9lFp/R.QiBR]ID-RT33a%$k5#
U")'fgA$POgsef4M]VF9#CY\2TQt&T]3u,n0wz;=R^E3rCWYJE=e2l=gs$QUEVtWT
U"IG\PJNjRgz>]k?g-^e.HB>gkg\GpfSo1%DQ4B\9/CQ+t[_OPOA%5BJ7ZjRTNqnB
U"gXH#&H[$;1fu%e&FYS[/BT*dF+%VrR9p%TLlq2n5U]oqHIPV=RK^E\E2W9L=qe2
U"=g\sL1FVVtTM)m_p>A8uki)o[Yyg^\yeJMo$)'^Yy^M\ykU(Ov.zmsh>KMw18w_
U"'iu*#YyQ\LOeUY&t.:p=hoLMit8cvCY3d\$+nsRmtloLsNtbAkM3_vDC3dli+n]
U"e8v0Rt=loLNZtbAMW3_vCe3dl+Vn]ev+0RtlcoLNtlbAM3P_vC3Udl+n+sRtlco
U"LNt:>cv1e3dR+YnZqToxwt4ULGU_&pa&eJHKcVnn..:Q;MI3&oC>ya4$MXsx5q7
U"DQ>k.V*x(<H9/0-Te%3j,)gvkiRzG*Xt:prr(RMPUFy;0_']64)bmoZgDe=tTbw
U"'i\4OZDLy9exKMqHYMdVn1u.:;MMi4q58hy,q2t5hoKFWdiM4q5hay,qMIQxw(1
U"K9enFZDy9;exMQ1xx(K)9enZNDsi42q5hyK,Qy(1;9ejFZDw9eua&Du<HNS2/09
U"rjqmJM?ktCM>j:VorU<9/:0re%i3j)gRvkR:;NF]a4pBH;)Amj^NHqk6OF$(cWl
U";CH1[AmrO^H%Ao'aBDo<tkSh/09GW,$l;WCH/a<l;]aMjAm\)k60^oHkG,=N$Ro
U"QG,dk\6P^H=kG,Nl$RclG;]ajJAcfAo'avDo<txS2/09CB$G\BIN\B$Gj2g=f_G
U"m2O9H+YS6S[h=pj]ujaCB3jauk'd2;u?MbRGA^MmA=SbH=b2RGAM/mAYL=,j]uF
U"a29^itH)g)GA6t''5tSQ[BtG\A6t'[5tS[NBtGAgNm+=nbpj]QZ3Bm,?V^4ORlw
U"4:c)_0=RlJW)n);ud30_<4'C0&_A'E]')%^Q&oA;E&V*g3:0_<'$C0&^9)%j9.u
U"aT97tF[N)sG/6(tp5tFF[Ns&G/6t&p5tFK[NsG./Nmg]=xmj%9vaj.]#)ie6hZa
U"D;76,m4R;RntG^39f/[,Sn\.]$?*tHSqwl&)SBnjJCSxW$'V;Zpa$cP?.=X'WD%
U"cLX#)fQe.$OgVse47tkV)e=8uS4om%IdG+PmY_oRGKRf6bo%-_MG.B9b3VY,.-a
U"%D7tVH+':Y%g$G4^v+.SCB.+C4;()N3:+[#?<x\VZ#w(^BB0I6&MA#Z)f;gU$Og
U"s5e4OB=5?5:Kaf9H/WWK=qe2=gks$bFhV4Xvd1W&oXp)(%1G+zS3:HO7?>$^eJ&
U"-<&C',lr9',/&4RVdPFf^ow\AJ]s7N6'nGfYAQQch5ofP/<0F%VorS=(/,$iF,I
U"5lMA<Z)V;g;JOg8cuV4mYOIo%eo,8MghsP<B)AHE#Lbl=[cQpe>6>29LxYyf%/z
U"TjfNpxcMtwIx+unwyN6cy-5YCd/\dPj^LoxAt2w+xu]2wy'JcO&Y$ef/R7TjopO
U"Nttcfvw385c+.kTRT<DniW3?M+U<3qh?F1F1RTr$efFtn4goDY?F1[K'>f0Et&K
U"+[(ShoTDMt4NAMh_0vW+(gSr:9541uv:K+LR=hoDMit4cvUW38[$+.sR4T#-qX^
U"f>c*L-q^6OHA_oOR#ce(S+L+R#aOqv:3^8Cr0AedRvCqer+^Ug4D#jr0k'<beLZ
U"rVA%(N^CExgAz:28?r0AkB-k'rbeLnM^Awu&kyx3ENc0yaN#ZVPA3u*jsPCDl*w
U"eLEjJ^%WXAZiS=^_N:^,LRqv:3^(u3^NE+k9(I3jeb1GLsmsD'bs<ai'4_:Tt1P
U"udr:T3c3uld<Y[s8'bsWai'^Z'2rodrD8L:,<s)t<s)_rt7Fp0JZ,Dt,LnJ^Z,D
U"O1On?riPV:3jcZi'U4im$UKLIs4tIs4BT6D<1lKCrTPlPC_LCrP>VnHLt+LnJCZ
U",D,H2lf$Icws^49bRG;LsA/Cw3*%f6/)n=O)cz4-P]ONai=TSAr0QBmz&L:z_7O
U",o(/fe.:'FCO7Zz399%FM+>yob:3:CFZV/)KLOon+/Kt*]mxFa/v'zy+*&w:D't
U"OSA:y:Car0g2_u*fC)wOWO#m>:sA[/Mr)Qcvn3CwSW#On>dIukto\[oy2May+X(
U"O&/z0'idPPxCdw_Atu^Roy%aLO%XY#z/:zFi>OxM1dw'8tu*ok38a+n.nR(+ioP
U"NftzcvUO38Yi+.Ten&.R(4gozMTtzAM;d_vOk38Y+V.Te&=.R(g$ozMtOzAMdG_
U"vO3W8Y+.5Te&.cR(go8zMtzGcvO3W8Y+.=rR(k$ozNtQNCD^Y9^s/i.AL)O?nwu
U"/IyrCBNgbyLv^9yOl.AL<))2c5'&+\JxkTySxgNwFu.upJ9ywiROy&+g\x%'\jy
U"PP^ryv,29y(Z-N%?ZhzuiN4uF9uK,?y(8\w,?)t5Zo$F9u,1?y(2_9%HMB%+Zz;
U"piNMCZzv9q%rM%I+ZzpPiNo5RZgF9Fu,?y_(\w,1?t5Z4oF9uK,?y(=2N%+LZzp
U"iTNwF9Ov,)yb(&w,P)MseJ9wZiBM/ZxZ>n>)Q37'z-]5;^i(tkP=G$.giG:$lk)
U"CH&5al)Jc$.oGV:$l)$CHR^]5;^(;tkPvlGd_lO_CHlbal_]N5]A-;VkP.a^(hG
U"TdM$DXoGd_Tl_CH1BA-L-]53^i(rkP7N^(xhA-v]]53^(;rkPvlGd_l4_CHbH^5
U"CH$%vaO:H^ngOCd$j,ICrb\AxT]nuCjM7xan9Rtb[x)vG?Mnm+=L+ejYEAm+Fm=
U"+=Le*jwt$[>Maf9]E.a#iCCU9^=*$Bjy66La\Wv5$[8i(a\gaM\Wv$*[8iaA\ga
U"\hWv$[28sG?[6tH>e2cB]?)n=79$]0(<vXva=8-uN*).-R8N.m=?.e=xCdk^;.g
U"3jMSVrA0;b_<KQ])XA*QSA[..^;gC3jMVFrAob__dK=9Oi*ZUx;FWN&h1::k;Fg
U"k;FW&2h1Bde<i\&+>*Zxk;FW&;(W&>B*Zx;.R9*0oG$.Ia^c;u^3yj2by*9aVAo
U"gzK5RCdK0*(;8pQ/E&ZRg;_*?s4kTG80EYFuyP^:vre;;K5)eK1cC,4P\-=HTv6
U"dNQXdlRC_qwT'qVie6Qk.tOg(<1_%KmE\Cj-Q0:l#TPw;c)WjacW2DXv:#JbPWL
U"qSGdI2#YwLmX.[M/7PYQo1?;T+\**2/KKT=*sBTr^$='&D._?<b])2=Fl&<%ai)
U"dCQ7/B//L_;t.oM_vULq[:00Ror*Yno+,TiXqsVf,MA:\\,l*j3TVZo:+.bWf%I
U"8RYSF)/V*d/>,I<l.5j5o1ljlRMVgTo^c:HEtPCr9J_ja^<vKTboB[Kn3#'q0-.
U"&s<To([$K&#mTNKaz42s9HYL.Zygqj?^K-2)8=H&-fLP<Q%lS)=.ZJ3NUc30.Pc
U"gSup1[yJ#ccWKM962duF#&h<_wp__0ve^vBDsabW?(<EQM)l9WQ]&&r4?v.IBZ;
U"vO?/rU]fg2TOv<Ey80$/kuf;nPYEM)l59Q]?B/0Z;N#K>v6rW]?B/0Z;Rl2TxPU
U"fw0T4u<EQEVEiQ4fw0T4u<EQM)l9]QfZe69j9,jB(EY$6BBC4]DOS7,_Gz]Z3y1
U"SROUP(/F-:Hg9^mm3_#LkP\-NYrYl^#[0C,^0CPnT42QE*:rBenFvDY:xco-b2g
U"*34tiFdrIRMh1F/V*D^=,I=<.5#0QbQl:lPWP_GCDI52M>Ltma]M/]DF%-qb3%a
U"dV&YYVKusmYdG2*tT$%$u]RL4/cJJjQdwhHn9[ot>0SuZ1chvPzwMIch%DS$mb[
U"N_64ZI?,+e=r't70l9+dsfW+;4F5<3o:$x^Sp?60[]BCUo:.Mh,qIOs7>ds72;e
U"R=c=)e)5H<feNRoRhqP#g%1K1,[J8T=g(nIdnv=%nvEjQ#WV2X6g^'$eLyfVnyg
U")sJ-_bpls^P9nAoWG:7l9CZXs?3_T.i^Fak:$pusjfrlIeAL82bbg<abS3zHg\b
U".P1Om>Ff?4/R4o\>(W/,iKO,I*wB^s?6Yf[B=P1eP49(5TcQC>M'X3KqV&OB;a9
U"8Batbw^tBc(49H9hK?b')A:a$8fa814e2YMMvp5XzTlplfrsfHrQ\gN(;4e^&,.
U"-l:nc.ZrIeKQKeK7kE7oRZrIeKlKeKeC#wCLaDa;:\rD%V4ov=(W/,i7O,I*wK^
U"s/J8SVp'oVLq4aDafcop5)<8Ql0(ov..u4N)J)_^]'6>&iacko#wXXs\WD#z$0o
U"Jl*sl=*IG'#f$0+GFvQVS4*q$?'\:*+uL'wKL'w82Pou*+uL'wKL'w8_PoK0h^j
U"025%i#0cI&YK:[/T*^DF%V.nRF&fTR[2;VKU0BDcFu]ve4K1mVOB:;K5Bfatx^>
U",9g;PK5VKma/D6;Q^p&[bkHb(?+m?&+-2S#I2Ss5<,8.VBkd).mo+-#JS9cB15o
U"+.mo+-#JS9cB15o+.mo+mWT10v'XLt\r<A&YKb;o*k85<9f/0mgO%3b)Tg'/*^=
U"B4rr1f[QXl*gVK^E\Fj-Q0:lLTPw;c)W*re=:LYJALru]b6]<bL)AGrj_\AJwz<
U"(SQ[<\$[<JJb4DZddcwE7juSG+wSGMh<$o-7juSGawSG%\H+;h,+j;f(VZmV2Zo
U"gjDQ1;0jPa=2+<Qc?S#d)RcMg5)l<;W0O(6V)#CzWH=T^sc_']vdOs\'&Q&\1kU
U"d.e1FT.U6KN;r9MZx9Z=v.>gKN;r9hZx9GOv76NtFUp[f=\r(?&MP[,/T*T8E%V
U"rFRpMroez5QtvYtJoPfcdX5)<Qa<0(6)V)Czak2<U>2=fYfGww.2+Q)S)p)Svb9
U"2).S+g.+)Q)S6b92).S+g.+5qMA.t]3UUTF/p)G?07FX#)fQdl$OgVqe4djvoO4
U">f1t93gM?4a7p5)$<Ql0O(6V)[Czk2j<U2=9fYG$8xZggk\4w?e,o\4Fu\Sye#<
U"9U=JM104Zgq?\FNZgXgV3wM=,w*8fu0SNMqZ9WJtMqX0.aq2)Cp;\,gR3CuZSyC
U"jfwZOSMqZb9Jr.fakM4sN8VAk>0_XY=]%jPAO\k\D0^d7kC3N=4VAhN0_V=c=Or
U"*0nu;bPW&V10df;bCg;bWi&V1d(f;bge;bW&;V1dfA;bg;UbW&V_1*o*.Rj;pON
U"/tW_<x5TXw=/ch1*YQ8e/*R(j;pNN/tW<8x5TwQ=/c1D*U$Cee.FaRQhD4r'eg0
U"j'])hXFqSGp4Ps]nN#fXodFZb]w[_EnP;1gt+KJ[&-4.t>7)Jq^0Ddr':kl$fIK
U"&VtC-TJ2Bbz[s_3GZ^zbPx3?Z]Rfm3o8qCo.6hQ>4I?X,Y4$V7a6o;DcEt39WHc
U"+pxefZ#\$>3q<\:>JW3b3Ik\9F%wfJP;R;TtYD=$hrt0$7vP5L1Tf8GLHxGMP#U
U"<:Y9^DQ_m;y,0p4_)4^_qj>NPGH)IYt)^C<PahbHLMT5(7c7Kl9'8MP4#voCqg9
U"^q%#aiNHAWwk\H+k5to]FGCLhkaV^]&C[Scv\+qHW,k:5v]F3GdV]E>r]&=C[%a
END SUB
SUB V4
U"0=NH=P2^0[DaVVY:l2%a8[vkUIk>D[)dVVo=C[&aK=PHWGF^F-R>ZWd)VGP4]jo
U"C[M,HW&gaYF^=FWCh$5a,(Sd,(aX,([$QPCR&3BR&>rN:^:HdGhvM6O5]MsNA^q
U"42:J\;p_*1XWl.7pC*Tp\Go1/0Y==J\#U#<<7UU[?\1\tUJ1Zd=\k?L2v#Dsp)[
U"Oop]ltFq-mvfWWw0:qt0Qkt0;-WArWCT8HYF+)rBfAMlMM.lMMlc9h-kU$Qu]4u
U"u]uiu]OX=6]pefqb_u.CmM4_S.(Br(P]PCe[$_r?\=1/$Y=IJ\#X#:H8Um[?\7\
U"XkK1R+UgE?/F5\$F-\3qn#,J18RUgE^?FU?7Bq\3Du#,2cU:Yg//?FU]?Bq\=3:
U"1h,7UFY0g5[$,S?Bgo\3:1Uh7UpC=FM\:$c?BhY#VKf1h8U/p=FM&\$qXV&;vbi
U"+5VSi&U(tdr4TuFbtrB5dvuAiD=nHcCv#th&B\vUP&t?qtL1N1c+8d*A9dmA8dm
U"84dA9d^m8dEA9dq8ddq8xk&pM__iJPG]ovotLMzLcBKcSGhM9Y+o$VNspc&RPZA
U"*e]?WxCc;XrpVjoh2%cW#M6/^vID,2nckobbWNYJ5KJl5NJ5rKJ5KWt.R^>?mgz
U"kIp)&l5g%_8e$QsHV/tTV4e6<Fldy/#^[;4t229k;xl6tBYAZ[%kZRXBeR$)]H)
U"[Pi?qQRl+*']?D/]xFtocQiL^?kc<-q060M7bL('e\<:^Y;nMS.D=&_mVIAcUbJ
U"^6Y^46]2))K[ED1H+2*0p-56p$dQ,G0BIEj;*RtL,BXlOhe+'ikX<h.r]rC%mv4
U"i]M(Nc8P9neIib_q#Cmvjee1ZfQ5Kcx$qejf3,0hp,r^5$L<eK1$TJ\G[aiGcOm
U"FL[.b(wXG=LW*HYH&it8hX1&y#nv.jGymJYOaqAYiy$U9d2NsX>W8e#AfRTQMfc
U"B+\Zl0QXO^.HCSo(4qo48qo4l&j(pKl.Hqo?R)EJSE3*BG0BLEP?8=Yu6h^CrB/
U"CB5/]3U$^3U^/3UAWDgAWgJAWgA%W=^>%q^>qI^>[k11uk1)uk1k%s+xs8UMcD6
U"[k;OgQ$]EI1f5U1u5Uu)5UEX%hMXhmMXgJE__l8E)3w^5(M2[LQBXlOhe+'ikX<
U"h.L$BZ)cAZ9Ah>oh.>oh>GYE1tfE1tE.]lnhVrv:a4nv4vtNR)E^JE3*;B0BLoo
U"\h#kNLmuPr[mKbm*Lhlu.f6mTd>QslPHUa_GRnjXhr<NRtM5IKz5y<;kf_Cc?WB
U"L9uLS\_lqtL=0YDX3O^&l1[&1$^&]rs:'q^a]guuU/&uAJl&=sFX9x[n2/>(LfY
U".RFQ8+$_.R98FA#XY_.R984A$Z:K8A6[4:8UNnM2,u.?kM24xuAA.LNM2Fxu?5f
U"rZ[uYY+uYWK$dlAMjNM1j(MN0EyT^rTDu^b3_MEP+PH4aLLc,FaV]IMAI;n1T-X
U"Z6=umnKEQTh;<LHHMuLmGE3#Yt&[[k>_<[ZSI=?<[UWi\+f*W)5CZ)a\4;([;)>
U"\;tGr>Pri>*r>NL7-:dYT\_Rzkl)2rH8Yf(Wi\6u(JYrtWE_p+^o'qvr6d=ATL&
U"$Q91I3U)gf5LGSJ4xY66:djGB64.5DT6r*]uWUlLUklWi/eyPda#ao#6oTLQ3bm
U"zO:dfG]Az>3Vl0ZQ06Z]<]]52<5d2L>Vgldy0uZ]&tXa,c<4)5\5E5\E>OHY<SE
U"Y<)H'dc?yE6\E>3V6fzn>,;T;PQ0(lBTPiqEoYfXekOL3EuI$P_5DnVb%6DMndE
U"yg_G-s#__Tl4Oi6(;DIdcp;B(^icH:p2MZIaN^-H;EmI_qTC9q(l=Hu,iP95Uml
U"ScahR8Cp$*V_sS/?VL^3*BVMLCo]CcSkFQhFzrp4pJVt6+NJrVJYcKah8C9pc,_
U"]su?V/Lc*BqLg_UoTz/co-Lu-/2t'XJmS;=m\P%fJ51)fG*T]n3.\BFS-0jyYW6
U"k&P0^Fr80e<)<M+ROu)+2J(-o6'7_5aeR&Z$]C4BLW8egTcY7TVE=UI:'7_)a5I
U"&Z:f83zL,1p[4N%l*Puo:Imi=CIH)(y>$AD<V0<Xrm-OEc<loBf-*L4<af'8);q
U"XBKeP\:t=mr_o>0a94exr4en)i,p$M*JL:wllHP0r,R9T.<uXO[,)JkPSw4aGGz
U"0/'Sy*wzFexMo%Jkr\5)RX6K+BR;PjaGoJdezT]/T'v%med+rsxIl86exIB-RV]
U"N0<n2g*n2ZtB%Y,GXO-<S.)smbO74m:(p$4bPSzw:-eH*]w<ex(I[zA0q8V=$\S
U"=\Go0]t0$OoZXgT$Onm7Ip_OMFmSK?anbS/j?L^e\%ATk.B/39KCOJq;qTngT6G
U"P7Po1LPm;\Ic(ml5I%pNr1<ru^X>;VY#*:W'd<a*a'#T,UWS;$mEV[4wtN+]a$'
U"s+SIXgNH6P-+5S;)*w[kR7k0.=3fYz1R;DqX$Y&%&s)c'V,7dnT=aOLeoX7I0DP
U"m6IRc0mQNI%^#(11AH'=]+XV7[KB%^uDukF52)W>&T%^(<5?nL/ada's+ImxgHh
U"a&vyiKcXo65T/.'Kv40+;L.c7q<r.+S+G%wDf/;+5qm++K-'7qOpZf/pPo/&F&S
U"M[ot9IPO)mDo\>/b8O*MmX5><Aw$Yn'snh5>$ae89S8M*mdm)dnUh-y<-D%bpTb
U"duw]]owF0Mf15,)yGz*N-)7*1(CmUEgbe.F5I<Po7Fmu=KIH)](c,s>tIoPGoxF
U"[JzDz-2U+,Kc]cWE6RDS^JJ>ADhh_zDc)NxT0O'lLb[t)I9$*m*,o(0b98&mRW:
U"z0Pfw;7i+<oD%fvq7tF^ITTb#8'sUDQHIkm\$$nGFHjWI35oWBG%MijY&NjedS/
U"9ne$.]\c3m/8&L+$azgH0(&LpQic<o[D'2_KrHon(.<d,$stUg8&exQ?q%$^(&H
U"s53kkOa.L-HsCem8SdaL/H:f<T%_CmUg(.ot.HaLe.16IM:NajQ&/>&L<>wP.L8
U"e%.LsM87w+%algNT^PM:S[t*BIT*nT8's6:F-vAWM'M7f%ur*PwJ'p:k2*'S^z5
U"y^&)T-&<%_tF=pvo7t/axCen<I8M&a#2Q&>'eL,wP*.&^;IlV2d^?L-mpHpf#[e
U"d<?Tv'af5QH.&cv,5h,+<0B[RYcjG-s];a<?.ThT#wJ^]pk\1ur#g8\q-n==pPe
U"8n5IL\PcHmTuQIf4*(-&]sSupIa?VH.YsglK\ur#pg\?Z[-sBp+YIT*bn8'sS6F
U"W;h2k\O5m0&f10Pe&YDPAZ1?HT?\HvH(#uH8<=;?vZ]IL)m(not0[bd(mOJ:zf_
U"PM-M96rjG$H-FH>-]RP6]RZa/zc6>4bRHsO9kkW#aL/HO[J)oXf(cO.[-<#bP//
U"\Rc'mS\Oc3mU>p$6GP7OGon?I0MOI,*9oi]^4vABG$kkM].^6Hs+9kaC3p2[<n]
U"S#\qW85K\B.ut*ar9;T$VnGKeN\&aa(,S=EmX-o-rif==I\'SI'aZ+gHT&IbRGD
U"4+afglT(Ow\(=\Liq5n2RtwIKbo>eVorq;j2Ga?a;mSNH%nvm2KI_p<jbIH;]1r
U"eT1)n^&6v.OcF/mJpi$fPSC/H*enF)w4Fe85q7]2mp5pf&eTxQqx$P4'cdWfwDO
U")M4Q(uf.]*onEA9tt9C0e)tSTNedS-/ne#;T#$&J<8KMg%wLXKNT/H=fY8-fmp0
U"%W(OwVrI%xnRkW+f(Q3T><teBoHH>eL4eVysOkoaTBeJHJTBgoa5pc3f9NKSF-q
U"u%uP6oa#0W$(]ihl[lXsB;H2v33T>(AWiM3>q_r6XQdVjwm+F)-A7bqd_A+i%.8
U"/TZ0G]+\vAKWi3>)q_b80f9Kc+-mLe8rZ$8TKqm6ge2Pw=AatgcH8*sYTYN8ko$
U"S/DImx_]$9FHONABYb_$9e^vsM2.O,)*?M&K9]]^jASB/kk=G]Ri'$0cD^)I\IG
U"7PXeFqmFoH*'R/1/AdGN]9aPf_?nqb;WI]M9a_zIn])k5s=*+K-?w*Mbb_z7ng'
U"KLF&bS\+rg'7K.2W3J7:kUDP^voYl4GAFrgMuMWmt&2LHd;bTuq(kMK0*rh1R7r
U";-Y=>$aK4Prx*n)L-&%,_t=T0.aK-:$He\N/YS/Dj;W0+V(uuD^A?'^g[S%l[S<
U"$+#^MPA2oelD*<6,+BkJFut.0=z)M-Nu)oD<;'ne0$.M[^&lT=8G)atnOk4ooHr
U"mXYT/bGn%j'j,X,\*ERjG38>/+\=jAW92;*vMERw%)L*Ck:WNi[I(g*2QkD;'nF
U"e$.M7[&f9\1a'mILer,_JLKs>XIo1-I()YlV1vD-GfyFT0x*67WzQX;hYUs(:A$
U":*CkOMABONBXOO6x-;3\:$2lO]/EOA$=zAfyN]Ey_qP8qNoXYZUKeYw:Vio'82'
U"xu.aPNYaq6i)NMjUWu%.6rhOiLSWJuFq8RgiL#j\VCZOq_Ckp>g'm8+--3kwTzb
U"ri93Y3NCGZ5,i9+]kahATl1]H;U_$>ii9UY0N1GZ4hi9+E5iFGdZ8-FO95iXGz<
U"XdJmpP%^%DDP$ECBD,&:wPlidOG48?9'TSNqhG=UR>lH[(;CQm*doG7Go]Eg9,e
U"SM5:Mz(Q&?,YNQE:zyk[#n:Gh\s1HmazbRR,YJ#&VwOa%n:aVFv8U%W3#Pxu&rR
U";?R)R])YkRAajGkHb9T1\fgz*0hBSBG;BoT^*;DS8S<<S5^=JvoESjK+/#mRWKL
U")4u-2gHO_RtoY/&(<<-?CYWG7dL,$1^MV)tBDQR:'8aoqz)-+.uqHa<o>>m1&FM
U"iEFUbnn=F;b(XQZ&If[9ndREv92e$/ABO,dTF6gTKA*izAodX9c3J_t#xIA(#<(
U"R%iIJ\W0fXwJH;vOtI],-y,op%b(Fot%\Loel>\cTb8fNatAPcHoK8&9zXVHI\P
U"L>s+cQTVJKX-7]npU4&7tfh)]sX&v4^I.'+Bh_x?$<rD-.fpe9fM+Y<t<dRYiv/
U"F]0LKsDoOcsMx>9F,IkUuGJ%l/Zr.9Na9a0;A'Tv>V(ivuWk%FMZd2TB(8Lee7D
U")sMEIoL^C&Lj7qjtRhra=Le$pLL2Mma&T)F3y.$lq/$Mzzc#.t%Lrh7jtR$hhSP
U"lep.4WhU&uN40z#qfWC((GMZQ]f'dq>edt)3mMoLMO]F,U8x?LsHN;sq%Rl'+Z;
U"Oy>Rvl?NZyC\mp:^)7y0u?SoB;'c:0gX:Lop(nLgar1no>-\<XZtHV#jifvs5pb
U"E);djw&?NB(;czV<Rh($7&ehF(sXpE$n(LL97q:X;M[Yk0&?>0);FloM/Tva_ev
U"MC.J9D9QON.eJfDQ^Dz8[6&<j_*cSRpOBGUxabx1ae2eRjRC,sSHIono?o7Ux])
U"aHiSn*suNY6U5?8#1el,XXeiWfz#p6L6K\B*uTJbo'i^)MXIps0%Y1$e^/-a6eD
U":7Iw>3IvOKZ3g'xr#I'//L6wbhB.Q>M-$-Uo^R:0O1FMFhAm58tVR6&k>99R4Ee
U"h\2/<;53go:eIc#SK+[YAv;R_H+c],fAn6(kR=E]LimD65sF:ILOVI,s;$9;zT7
U"c(mJP0UfPT7RqkYpRhCuGNep=h4pF+#*c\4/dBHckUM]<2$/fY\Q$;19]$#Cvfk
U"p1S\wphr?5116D89lcKW3IY/D#u8NSbHN<enX%c'Z\XcP-ov2IP;T#X%Ws]YBqU
U"58pp_&,XtYf'Dga;#_p.66_)0ZXtEjy&7>bI/>iaK0U/Re^/-a6eD19IM-]aT*(
U"/]&L),wPZ$W_0H9hmAmlF)ILT]/t&vS\UgBFeX5KnM8a4Fg5>GMm>]5Z8VTLkCO
U"S&h3b?7Aw.Z9U79MS%?Z.ZJ9g\iAS?Zp#krg\/iurK8pk:L%9\.ZOWJVPhI,FG^
U"Y0T*pnxJ\^en7S7c2mJP0UfPo7NquX;IpS\GXYtXb]2iiveAp:a9?a89;_vaX/W
U"FW;dR5*eZ[026RjviX5p7iFw>,juX5MN0(w>=XcTQ-M0>l:k9H4j'vtYKNVo^7-
U"6v/ia#ogg^7qH1.<n,$siUg9deX7_KM#a9tg5>kiv]h4aFM(E1Jdp%*lDR*;,DR
U":]:MGek#>:_Dw;Z[_y0coTGM04*n<6lcTQs9/-nz3XGmI?5ju&,p$,Zrn\$cH/%
U"*F$Ty66O%mDp]f#eX47?L#latQHp>ivGTdaFM=H/4ki&gR&0;A;j2\)T?H.[a-D
U"z?*vtd'Y-;qu&g^r*vLh%pu&2w8zurL%M-1zw8Pb9SOMB-:Z<U:9SYRb5Nz(LPc
U"PFim#oK(.<.4,s]U-g4edp5KGIieF/$b8o#+0VZ<hOrTSiN/pu<RgrT?GKMK+Wj
U";<(T[[ZYS6#'.Vw<dO9O0\[C%<7K8=+3ebWpEI/r'ITQItTmRD%sQ6YNZeTX:Sm
U"4)s$Uk=358]\_t,rXOf'dv$9M4SMwBQT7E0QTP]HoPSE4hEiFf8wp4uVfEMt),w
U"p$ccKSMJtBD8X<cK]H3-0DY8#5:4<_,$$o6y(RC,skQIoHo9ovu0c)5LiTX,s$N
U"Y6U5*8>_tc,Xkf$'2,coQFM*:(B&hDg:B'd4$Snf)(DbX5cKPE3C-D0be,_>S\a
U"3EMthw.p,5iMV?=pGRGRC6I2T3iU>ooJN?wLM6/U5H8F].l,X[e973alGUvgUEv
U"gNMq0uq*bfa<os7vA)>.A)D+>o0>ToH<MsF<c4MmbSFjbx)aKrvon(-<t(;D5(8
U"cRd9+WPXeDs/Rd=b9XNUF$S.LnE/seFio_TEeDGJ8lgo_Q*6%L97(a(a'sEI\..
U"bx4?avglTHOwU&7i]$7N,sq6oJ'_D/ckpa.AltKedGj<oD$52>mT/+hn4,dG<yI
U"_DHm4T]Hcfka.ANlK+jSmT]H4c/=OTs^INm(?EN<hOw>Y7-dITC']92P_z*91[6
U"e91[6%$2)E]\9&Y2=eI]'N]9P_nz*AN.'F&0M?\5P)_z*]M^vqNF%slo<:;u>t7
U"-\sTSg]6Mp_nT-AHgFdd0#Wh>p?Wn>F--=uIKgN]6p_VnT1ET)u1ET)5r(4M]6F
U"-'dR9ck,5r;(w]l?xFPG5k*.IPk*.S\;Q7+u*A.&pTR>rCa\jW_I$5nsGUV*Xm1
U"42L6q%L9t.ILX)mXP0w6w$-c>]hW.'1]o,=T.c>;^of>]f4e']f4%=6R;LG)[:?
U"%c1lGPWTo08%IgaexBa^DPk4Ngu'Q_Gf-j7Sf5pMSGf/]OTv[9&*SE$-<)SLG[z
U"ns$e;oT*p1IoQ*(3s)(3Y:zfYz=<5c7Z5c;lpL,;R3D=;rr3Td/lVQzes;gPcVU
U"&VQY&Viy5*iy#UP30?H7',-fn--n$9zC:8zC%p4b;>XGJYz^]Yz45Tc65)4/(e/
U"J-RT&Rp*(eN;ztQS&p*=7Q:'B1TT&pj*(e:Mz4Q&NDoz4kQ'eZgMJhi5jv4]nix
U"TO^&<7?cN0[DlZNA:tz^ANeAF&DlZNA:bz^uV>AZB=QD*4(:SG.'aPu/Z_mt:iq
U"9TYNC/;2&:-*<:ii9TYfN/G.sgQg%Z=N0dK;xj%DqQPT=/'=c0Eo0D\5Jy0Ow1^
U"1UJ%hdhQ&zYTNO:zXz-f*.*t%.,m%gre&.FvE&QLz5S.#Zlc+)1$d>ZVln0igiQ
U"+\Sf&;mqT-?,>9.Us?N]0\_JVZW:8\5P?Hm5kg^*:vR?.;6eY:Jl)Yp$.g)j:*J
U"o(hHd;SmPFO#dS;o%hHdVSmPrc$ngHZdJlIYp$ngOHdTmF\Y-#2RQ%%XBh1.e1(
U"IT=EM^/,3h/fOXXP%B8Hi#+JIP*KmOo&O.aFP_M&e(:+I.59\kP>n^Yd2_oMRqb
U"5MDoeM-6vUo#=Dr.Tg-iIRG?i^N)8XYIJ\a3--#^yZRmusWG$ilv:m_Mn]$_M.=
U"oOzV'iUk>mZft;>mqZF8JXTAA%L=BX$JrUAX_$vUk&Xv%pkpfD1qB^JrcO:?^nJ
U"RSO4vTI?Sxfjt8$=l9#k8Vi%:k0V&):k#jVS0bJo_t8Bm+F&ofHIGn\*XQ)b<b&
U":[WRtYI/XHm]trWb[/RMs[q79sQdR*Ff%*'^P0>mbS^EOj/%\)jQdx&_ETpfEh#
U"fdfct5n;Vn;oOc;PfZ[B&0;]2>6#o4Hd%CkObq[CM(aq:X&b6'_thZqH\_3cMXC
U"pxjhZ;A-m-.cAHcSZx/_QfMXIp:MhhQ6)H:jDoD7hV=M+H=MH'=u1VoC=*C+=*o
U"1c*C-*9C-*oa1*oxS#ox#.9hkW(gkWgFA>5v&[Vo>_2c7<:Mt#vL3<4)lHOC/i8
U"gK5Y'bZ1dl4(OebPlqG7E4Jo>-<JKfE:Z8aCs5b%EU%I>[)/2phGkYA/n+mqB&-
U"KI7o4+3-NYl1&i'SN/.-pbrr-hM).f>:d8rovYfCtM6;-gc)FTtaGg/A4CR4A,D
U"r*Mr,sl$i7C,oJ%f8bIrawDMbb0OhTI:P)0vfQO.5OuwRLfcb&J(,)0o0D/H&;O
U"eY>NWaDS>le?PO(Zidy5.-9'O(X5'YM]jVus\mhm$'XvLClr*p,96-/m5bVLdOU
U"o,VY\XLQlp.t)dmulAQgPF+iI^pZi0LqBX#/>]oQHZq\PI/I1JTk^RM%a;-)#p3
U"]_mmh?*1K(Y1U_0<3j8V++7Bq\UM7EHP+\A87khB<ZWP&Ybmf2zZ3%_h'pie(^O
U"?PG:k;rS#a+dL'2ctshxO3H\-+h.*PrS%'5#IIE]MY-uN<:MxAY9mtFt4=grOG&
U":8<#aG:tIH8e;tIuuTAdc#t>FX2VAXW:q;WSdSrFxG4CS&Qic'1]oZ?cprbN1X>
U"Z-rkW#I86Z82XNjE8L.q]tVD,%(WXk+J*fWtxINda<zSHS4_\k+uhstLnhhNp*#
U"J+as1-Rk>muhz<4$j/<j_OuNjCNTjMNqNcl4?S3FM2nuMDc*t2xplc8)l,&:Nsg
U"6$]kZMmh$)JCmHppAyW&+4CYTXiHO<nKdZVl)N?=$^kj_mmxmgbXtgt422mve6$
U"rrL7*N$MNNrHL-^M5q\KZ5kFLj4sV5m[w&p:ath\QouF3<3k/slGfT7[rUD)j\F
U"rXLy9=i,.i)\lFs%ZPo*lC)>e#(ne=FQjQt&-]&Z\DVXi2(JM2j4nJ%,Tnn.Tp-
U"9o]51yorusR)'m4Qj7Xs;pO4anM[n]K'>2$*fsQP<uLzcjp6\uhL?XKh#N:<Q1d
U"$aLs[tOR#%Li)0HGt1VQDih,:%SK?+ds5q74Yfgc)(HfsI6;Asd+yX+C:\IQ817
U"5GZjet0Ykbg(rY.B*UDL[#J'b$vBtP<:xgVEveV-Ct77tp9ciKrN+-f3l,aZVc>
U"_rNW#o+bNtmN\/o?/v?eO;pSgP[)O>cG*tp<kJm-43aJ?bR+bDg'$hTeMbRsJmt
U"g$^v*Th]pWHg<c4.3,,dV>9s]s-J5vZJkhT9VD1Aq.>=f^4I4.Gw<nAlleRD/m0
U"L>fM&[qLHpy6Effnr2cI1bU*gVum&Kr&z0rd:=J(tnrX4gwIAN<+#7F9#0Yg4.J
U"M1]MvUBsxA$FFXYu=A#]5S&AZIRADx\s]SJ$n\;#MoK6DD^bY4.oYD*5SK]]jJI
U"a1HtH=gJcikb<TDH/f_RCT(udvP6>+$kwRHT,InN8XocK(U3NxUfjMJ*-)L/&fp
U"'2&pd8L>c<lQJ*NlR*9Z/qzP:h<Bg7p9\KOMS7P,f95^7cQmXw\ESp_VcXe<Fs*
U"d2glKoji=#Lj3rr2^1?9'c#\QF'kWm?m>>v)%R>wm9\Pcbs]=Z;\sUf+WWoA\=0
U"dDrXZ82vJiM--'sqe+W-_mT[R3qE%NVm$)3NsxNQ>Luc^yerB3Chl^hFE-o?e[D
U"Lr$iDffDF5:S.3J[.L<T*;A1p=f9aIZ^;IqH3tHu,s;Ox-YF3-^]&6#;#(g?IlK
U".zMAubCyCjE,)Pd]ets)?di,FqT.&[>^ePJU9F*-f[w<x=_]uWAjpGIb;Bo,UR)
U"'%XQF,mYKEVgFvgrT-wnNUhHZ42-g6QiiNJV:$^irM)(,;lJ.44#lgp5x,vU]L\
U"PhM$]I[g1]0p-1J_\cu,%<kYS'O]g3.?_+:i1[FI=l==<K8q1I&?V:]Y]I[_Sre
U"dHD0>E?RCZkp=xKXbs>cCg-*qDpp5oJ_TfkWP'w,MS$=h>Q(JlW:GLd1p&hM>Y&
U"rnGlowloj9Xg5>:hS>D(-$HDk5_VJ,\QN%GNWa[P'%mD223?*2i'0^Y=lh>5>mh
U"r8nflU:8CzdlTkAM9dV>&dmuI8(Ou2?gE<<pG6nl:8WWCOgdiJn5(X*oZ'nj[&8
U"?WlBeuu(mb$mk3brmkl%-laLZMU-s^JBWCXH$><YcL7/mNJ8]=7AsSPc>]c_bYL
U":clpQzj;eZergy&w_+V6#7SWwXcAS=vj].04Qp_[A(H3Aa>ln8'ZK3glvGReCQK
U"f[)6*>[-(e[*p?C#;(2bgWLo6J&*gSQRml[$#BNl#RzXEiApWr8nW(cWPNFe;B+
U"Ls<Qwm+2'<NYLNAFKnVFIueAn*sH&Cd9r-%iu<-9G8xCl2kLw%EX_Pe2[EGsxr?
U"W#no.HO\(?3iaUOOc'2;.6[4G.>B,v*sIZnL)\;CJL)M>k(GPw()N6.kI4e5;MS
U"6p(6fY\k+M'Gm+?+vwmXnrARH3Cj,tlh0]L\'D7ti,e>cK#:\?S&YU%NjeMNr,q
U"Z%iZQ>%Wa4vRj:N*cYd,*$NvlHW'q[:ZYKKp)Rc[vB9%,oN,X9coQ17>ADX%ZHu
U"cM97jnRceT2^2HMh(4fBTDK*XDW+qi+&QDp+w2t2BN-,F+K_oBH_bN(fD123%3u
U"_YMPx>](0(&kD:k6'on9X,roqbC^OPJoT%'epE#'S?Xn6,?4O01lqTmvPf*<I;2
U"O2,W;BrOKLt2u\<.x6#Q2xBX=[Cc3fp<>R,4$UEvD4DKoZUV_&V*$fouG0u>kGk
U"EHgF8NZyN)Zq0B1_Vaj4o7<;w/E;V?k*2(ZH_0U<=R^jKfDxv7^RTlcHtTDj'Tx
U"_q%Vte)m3xmlNJ<M^:[2N2Ts6C/nLtSLiDDS[eKd8]KQU<K_wL1[s4PlIN4&?TF
U"Y6_t]R,vs6w>Kt4kYohk6'oDa1\(lMM,wHMcp.)n';qM=PI_Psrc,0qu$6:UH^n
U"xX]Ob_e>XeWnvYOsh>Wz?^H\Zsq*\.ws#[Cs5U1m:Q?s*283^[.4C&hzq,8ab,?
U"Y=O&G.pdQCJN.qw^PIQD7Oq>nWDUpc<Ku$vMjv:>>(Z*W?$]cY>K\:?KiS(ANd0
U"]blm1)TS8WcA5waaD]ku+;kD;s7$1h]Vi'6U2qWUbhp9qPV2$%40r>0=.oodR;7
U"a<F=n;4ZWja^8AHF;-k8;7-efT;F7aRY_IZXhtHl#2_$H;kE.T)J(0;p1D3ol<b
U"28h1NWIV?>s\wv48jGq4IQ*e[\+7gOvTc(ohB'.]W$Ab?1hLij'd+5?40WCR8.l
U"wY<C%Fj:P'hgO]CUC>8GPN/-F>&pC8>TYvTcF.h\]GCV>6Jq<H;4YQ:Dq^\opG?
U"TW+tv'=4e$H,p3(h7DD^\+Jugd*JKwC=*5U4<ONj-4F?HZa^,+a^A(bV0bPzh3]
U"PCVF8)qLb[s?eRUPb+J]C5ICW+$k+OA7*uBuT]g2-8#kH(BFZi?[G:m\t\DIBwC
U"#\)BHW-'aE&BU1C)O%3&_ipeV[PADh:CXFI:%g9Z/bF6qpX081e:^'NJI%Ze,(e
U",0C6EIE(\\D*QX4:q&(fVI[nab#$H-2f2eK00<FO%6(7nJ0IV+gTbefp/<pj&vp
U"I]ole\9%1u=\eH'x.Le.:i?I\kBr_Qvj)wJ=/NDeT4*w&eTf>j>l)u-Y6x:D,f$
U"u47ou<Ix=;Sw4cIWCG:hw#kWtJ1<j>WE7C%>$F3HW0Y1HU0kd185=^Ui6<.UHU.
U"XX;F.O*DIPW8Pq&i91z[O$)+XpCQR1O/aFTlw(uwj\;A6l98Pq;*0RS$iF5x1k'
U"=;Hq05N.LQJ*owc[hkV^_9mdquTk0rh9Tx^I.=-2vJiIVT/S^%vd?IoPe8n5ScO
U".m8o)R+to1#Uhcpqgb<_7u4<[xtyw6T=N,\ex'x=b[84cD#'x18on&;\Cv_JE=%
U"d50;yWM[%d0kGxRC7dtu0H)alj=O80lA\J9e9w'81,FdRU=cjcVhk%^Z/'bU0Pz
U"#?)gbU2n7=S%C<<8n=k]N21i)Iga.:eR/9u3IPkT/&Jk'XT>;-H'KfGk''X<s5P
U"iq*0R4Fi>Iowr)U4Qi>Ffws'oj/uL=9X4DFhPNgqZ0<k_c9x>j8N3DTF)wTXhN[
U"AwCU#CPE^&gnT8Kwr])aFi\n)_Aoj1JZ_'Zyw4X=N;_e&*wt:]Hdc)5Ji9XKw$$
U")k7qTh6xL\'c;qSn%.&\[tN$Sn6$Bb'79sruYqxF+D^P;Nmq<P/jGgQXD2rdFCm
U"P<6Po<rSeZW9v*?LG-:qCjNI/H<DO'5cS')3:k74;iaIpfp+oGvSk6Q>m>Fe0t[
U"9WwL-0>N1)%p6B;OYQ_%p6Q\V>FeN<[oLJg6'Tdk-zI#-A6[(5]-k&/j?FB%mH7
U".j?P:;8S)GD\o:81)%s6E;YYQD%s6'&$k-PKK-)$4kIYY2Q%s6)'$k-FPK-)/$k
U"/j7?F%m(H7j?DPv?ziu6Xx1#'-:6q($dZ(<ku$9N0ad$gLXC*Io7ftC\n%cQD.i
U"u^Xx..Qn.luHPSaPB<)nKNi8sGw8:SAsYnFLw*'o7;qsFZ'6'l#M+ns'SX<><fX
U")8hPNm)0t?n$t)H*](ZwQ]P?ntS)H*ie\9%,>$-(Z77PQm&0*#naPQm%//HT:8;
U"If$5\=yZ:w'.k)1\?NDkr=Xg:8s)gG\svMq$'Tdk/zI1mkf=1Nkf=JX:8sK)G\s
END SUB
SUB V5
U"C:8Im<NykDXGwH/<rt9dOkuV0Zr.9Nkcq^:WkS9Ng7wB.U>XvnY$;w^Q4x60nHz
U"Y8XkuP0nHxY8Xju00;XBe6Y\=lV3MIl)nIoaxXbcxL\'c7q7D8x8\'c8qen(D'7
U"mH*GJ\9%sG$-G\*=YYw_'$kKhY3)w=Gi8KHxnZ9LI%p$B;O9T#zMo'2Tq7:,Y;O
U"9+J%gvB-/j0C:Y7%JpM)T,q)/j(.zu9B&gv'2TqSzLMY%p+M%gv';O9jKtsu4>j
U"9XsouB)U4Qi>FKws'=+8qdI3w^/^+Ii483xE'C+9q46rx6)u,)YdoQu#/H+gYd.
U"?M2Si50.Xw-_kXeJ.:IJ/\kNB\e\*w5*=N#_eF)w-4=d.fDNPxXCjXVf^hPxF6j
U"dU9^0iHY,HiZ';o7J]%Iv-/ai0JJX7%a(M)nqcDx/uW8_0.<<q(I+v;o7D\dI)J
U"'nq8:JX?o77R%I6J-ai/2JX;M%a7)Unq*a%i0PnaY&IJJ'nqTJdIi%;a7%I-J;o
U"7%rPnYNo?qT5r)7_:/Z?o77R%I6J-ai/2JX;M%a7)Unq*a%i0PnaY&IJkGSqC;N
U"_q4l:kw9qN[q#_0HgYmd.M2/ai2JSX;o*;q88J^?:p-c)/i\u2SJC-3m+u;Jn]r
U"HcxR'9W:sdF.mbpQxpPMXM-vWH?s=e9H*w<OefhM(?eT*rw&=x:\'G.uul=8=%D
U"x-cuxJxfx'Z7&ai0PIn1%aC=0JX)pdI+dPn[)>a=Io17RdICk'n1)?mLkF]H8R#
U"zJk'1z17z5X:y7+H%OV+]H8Hkk$X:[/8H%mUV-;Q=Y;B;[?/^bUG[#2/TX6D%g=
U"k$$X6G?l=Y-[Pk];GY:6%2[?S:)RdLkM'H17r^X:C78H%asV-k=5/^X6D%m=)qH
U"1)k'=-Pt+1&aV%]d8Hhkn#pKx#'-=8q((nLxAN8*eX:ESm)I:o7tCfI4S/1DanD
U"l:kT9Rd2Mmin6/r4wYNjiuNR^,k9dtou0)u?09xDQkxN03J&d=e0zX>/jV1:]m)
U"u4rC^<kPS9Naoqt:k?%9x2ijnR>*WuatJk</HXralD)o>%B*eIPs(QyDPIydeyp
U"DZc#O/N^tlc#qsT*gn2Tj)^'t4HoX_Pm8S;mv*S?9kX'ixNOcKP+1TKtJ1p)Y'f
U":8#e\)8C9Iv^'IVI/Z*CY-IJ'_++a=&96)aJL'IxP]'Wc2cJNefULN(P=jhfwYp
U"0DOe-Kojs+3Rq9]k(*SIBI/H_(,y]pATmMk/o,]?L\S^2C>IY/HDPS=;S-s0MOo
U"1;'MEHi((I96UO2CeF0<QpI'Jh0H.Y9x;a,*;'D'iv'7tF.ItT$/n&NE,lE38JQ
U"+bY%Ao'\&9b)mQ:qDGW8AeTh/uz)P=)?Hmu?oqjT/PNK'*/T2sY.Ftu#/oRRip(
U"5NTQ98:qDF5xh'Rc;qnF5xx'NsJg.PuR^4BaWc#Gt?vt$?pw\eSohaqAo:EK(%I
U"d?Io4eT(6S=O'3(7nJRr2:*ed)uwn=8:&eV'nN4jp$;AyY9X0mcUFetPnME-v>_
U"?s-8e]#6TR]5\=ffxx_on0vnN&m-cIo1IKX.<N=t7v&_eB'xaajT9uKX<usW\2i
U"T/?6Q4?6skOTO<d<8kqP_/(Ri0P%,4YC)d7EDZ$K-5;BcG-%m9NTzP=49S-hMM=
U"Q4Z,98eiq*/24sY.tfu#/R=Rip5&NTQl=*w6efh818+Da,gKT4PM=Q-v)$a6gT?
U"HBHT\/^Ri'H%bPb[nJIKX.<N:t2v&_eB'xaajT98qPXP[Md6CIt9cnFmCtS]k8*
U"^:Lak80*<fMce>J[IQiq?a;;iPp.<PLe'#/r>]987Taz;'9X*3vD7J2\f..eFj'
U"x)[;>P^__PNbjh>O40c9Xhu?6)UN$i^%vSx5t,Ce^/<fh*I8HIo&omd<Sw>QuuJ
U"[Q40u:lWxP\'C:q/^&LgHifnoKH-<ns*s5I0o*oD(/<d'us*Io18on./<dv=W8O
U"^[]9dpuUT0rlc9xbj9x%D^hPNmqU</J&e[i0>C=^:2Q5)1[/v:2acoFywX/[(SV
U"4d9.aruZ)o%8qdGX8&e9h-uP)XN:Q7#*wZ#e\&DGnTA^pz15)1o[vzJ1a%X-j;O
U"Vhm%Xj8'J?0Pz=G)RJqD^O)w^P.C71^F1m3p$flYO:6'g6KqlXN7TQp.lutXx%%
U"Qd<cq8EwLT0H']YdguY.:kwi9N[qN#0H)]Yd(mn(F08j&skI$oH?d(*'c5]qD'v
U"Rm=d2Don.<pdv*7kO^[97dpuTk0rl9oxbjxF%D^P;Nmq<P/J&vZj;cc,SNNnM'l
U"a7nDo;c8cI%s+n-_J)0Do7_%vIeBBL.JKkn'H2aSdL#.PnaE)aI0#Jn7%/aI)n5
U"a)aI%.Pn7B&In'LnaSd9=ip0B7B%I>zIo[\od;S.C)9D\2CGXO3<AVlIxl=md'D
U"VF'xCodl*Ngg*InI3oMo4(-<D)isBpfXTAH.u;k)9qNSq8GQ^vPox=I\DQ>LORc
U"J-L5i?I+be$)w6l=N&\e4)w>V=x-beH)w?$=x'\eX'xXQj8S$^F'x?p=x(aQ$)w
U"PH[.OLj.Ta/Sz7'_%p.;IOYP%Jp.'TdK-zI1))TK//:iEB%g87CD8'Mphsk8F(m
U"oo-gXCsc9rV.]fK?d5J);;HqP7N70QP.QudXN7(Q4*owC[hhT4n99Xtu(c)UOi8
U">Hw4t0r*9Rd-m_>_T<eoh5SWCn2BPN^=PNj4j^;s7$QDViOn<qQ?G=iFNOsJK5e
U"nR0cuQlq8S^;0Px-$jN*DM#PNQrq^<k5c9N?calg5mT%v&HIo(o.D/<dj'shIro
U"Bkl:0'G-uu,=x:7eX.cuX8x44)k8Qq$XN.&;L*SjE%/WB':aAT:QhP%)3k[<o;G
U"R0JLHVp3%/HB;/e.qP'WP%)30p*Bl(GS^?Po8.ap\O+PtMLojTZ/PK'V*/rPc98
U"3a6n;'\a%VR-fVh2fhT4n99Xtu(c)UOi/>(Iucif5IU$S/FEK'l/r2*YXjhur)7
U"aEiDaIwh)ru+YxYQq8Si^0Px4-jN*fD.PxO]jnOf^NPxOYjnPc^0'x4([N-$D6'
U"x5B[N&KD>PNkeq.;fk$Px2JoN5?-jhefH.<HEL'</NJ&j3P0.hWiN5q)oSq=S7W
U"v1o[c6PBCi0JhSWH+X9;6RiB%O8T^z4G&IO8#[>uk8luuh<+5(Y.0Km,Q>9P&VR
U"H-Vh2NfT4nc9Xtu=()UK$iNmuOD:Av]9d'mAvgQFO&6*7JJ4\D(9e,)WwR=N1-e
U"n0$u.5x,f)aQ]iDFw*(/^SBit%L;+Wv.Aot.<Sn+s[QIo(oKh0<N1pMM%$D6'xM
U"Bo6Tc*7)s;JpfD_Om8Sem,yHrgX;e1sPaxd)JvYKUgY?&=F*O#r6yi>Q6d9,0h_
U"*&ym6y20q^-_<N*mUvpf2#et-<mD,s-HIo>oKH.<nj,smINoLoEE>N0Z,mr9F3l
U"bOss7IB1r(A+ir4^Bmr4^Bat<+IT'^eT<BINev+-ay(66JI88s86.ia=ogMJCv1
U"$VjO%eJx8V.XRF.lu4PW1H[D9]a(gTU,8%VP/Jrm%Oib2h*n8;EO6?<)LuFp$LS
U"Q2or\<+=pYhKfwC'os.uv=md%DVF'xCoplP3H9,r<z=j.f([eD9S7c)mVkpf#k'
U"l)QTF-u<Pf7I[nRWu6Q*LS/si#hbb-;6>KisLo:\m\(61v7J8Cu6ZvVriLTJ9sv
U"9#slZv40Nks$Nk3^mt<'P>ga6gaQp&.9H#U4]D('x1fo^.\2BLXXs9kQi9N$qsT
U":k']9dnu4x)KG]idJwY6)ayJgSw1++Wa$#hf$O[S%_Q-n448of;SoF%.b(O/D9P
U"T8+a)50%Ded\-<(>o*7(HDN'NXHj(PK^kPNX8IVQh>JOgX8SgvT*39A=yYXpQut
U"/#COE+,D0k&d'G5y_&Ry_(DJIXSFb6>C#a](yJmFwI1+xI+,MTZh<q<P1^aPlFc
U"$TeXO:Smso*s:kYX9xcWqn:q$HW>;h[gXpcQGyIMEoE>4B)C.3u=opPP3n>RX8#
U"RpXT\:Yh1\7qu?#J^qfOOV$>d0TREmN=*j8(HDN'NXHj(PK^kPNO8j>Uq4n9Xat
U"u()RA7qV)XN$Qml*w6aeh<kor%I#YS/#89%8)a4Nin'cs-UO.Xen<cS7%m:jpfp
U"^e.6S97/mZ>pfdeoX9S77jV72cD4'xaIjt:rkX9xkcqn:YqH=hK;qkTAh]pg5X,
U"7KHG;qkXJE=(JCCGe&:+RJKGW'%:.L'Kfw?'O4/uDeKP(DnWZ#tB=*nxBb'';sT
U"Xmu:b/2vYTXiujb0RLi9p8x%[Q,*w:Fo00cjW&mYwIo-F?dc'mC8q#DXN'e7L*w
U"xCen;KnJ+alFgT<7K%<0H=jY8oQuP/H=xY8jQu00H5&YnI0wN'c46qn7fxX'mAh
U"]pgMXxgX,x;qqMth7)8e-uSr[F<++yYTHNwA'%s.uN=8.(D_kP8mqg#/#GK=yiX
U"MxgXxB;qqtMhgYhngOE=LyiXxhgXx;IqqthMgYhg=OE=y'3xJ:nBx^XFfu$092l
U"YD(*ITu0pV&O25=yUeBx8_ku[-ROyZfmAx]4h1OkVq->Er:_5=OFoUyEUUy0_uc
U"KEr>BEr:5n=OFU=yEUyk0_uKoEr>EIr:5==OFUyHEUy0u_G?EnlREU0RYBriD1P
U"8O)aAocgXSF6?%kR?ECRYLP62%fG;5^h;id,V8%Gu\(^#,,A/UPY6L%kD\(^*Vg
U"d,8t%G?%nkRECBRYP6i\]ZR];B<,_#lgFK$6oF:0<h&JIy7JXTI#Su/#BH+8)aF
U"$inIw+x)aR$in&sZ%YT>\OcL-8LCa0FgT<PT7Q-L4*ajglT0O7+P-bngVmQ^:8P
U"xN0jdRjVnX,TAh],6G)_-6/)qCFWIo$Z\OS;SIS&9J9K*DWkP8kq1P/(JEi&8N7
U"2Qd*Kw+o&4-*K,caNgT8\YOZc)UMin>GwFc)e8q3tXN%\eD.u7D8xE^QF-u1$XN
U")be4*w+b=d/$D2'xa]jt9Zk19NbQqt;Wk[9NO;a>S]Sb,M3rSS^;CF^A8;t$-cT
U"L^-LblR(I^lgdhB7%G6:%kH-EC^YOP$/%KG6544?MdKewP\MJd+Dt+.coHDDtf,
U"q8Q3Kgm,8QCGs.&Z'Vunr9A09<8Vql_0HqY7DLw.b'[Ap3)t0pS$Ku]#N2PN>ii
U"E2>FxHvcxH8$1*'-6$sK:aEdQd>L%L&7;Ja?_+*DL'Txx[Np+Z''dYf,bUu&3oE
U"'Cw&4_MdSewPlMJd3Dt+0coLDDth,rbQ3Kpn,b1EwgS+qNClhGP^VPnNAa\=eVp
U"C\sh^bqQAK*_&nSUg#h],>-b;xk(K#/^^,]TJk3Ts%0/nL)TshF$bQgK7nFbuOm
U"3o_%1yahDwG+m*ScFaf.NRWNP2)UI]OmP)Y6-:NHoY6HYW=dnN<I4:*Ng&rsgIo
U"+]I8glT#Pw:k7tAlI$T/IT%L&M7Ja17a*DLa'xx[JN+Z-K:1pQ)hW_x&W_8vA6/
U"v6c;lq:9lqka18m6/hm6a$,hiaxBia0rJ6.r6<Z][Q<Z][QDGaJGVaT4FW+S4FH
U"+Yze]Yz[I/;&l0kC'O_a%F6I&+a^[h&GA%,Xg&?$mHTIKwC=zNpk6od\>nUcaFe
U"fH3U'ZiW*mIS*con3lTJRHkj9T,KZN/HriI.0iInalB#[Ga<oDkG#>I.8HPI(ae
U"nMkATM/?$fxe1foyOX&f:Mv8+.mOPpfFP:3E5<&u%v<%-v<ufM*w.cCX0m3#Q>,
U"\PC7S.C+IiG7t8oeF.<h^+I4IFf'X;+*qZikPi:(j'PbC^COj(CsPul.gyvuAws
U"Fl&&Nij1/TY9[wj/jap]gZkfATm)[QgyK)uw/7Fz)5kF[xu=(=8:\eh'xOUj>VK
U"^SPNF\If](bngy/vuws.Fzv5BNN9ypxS\dsGZq3F-dh$M?K,S#o:.d(Oqo:&pwj
U"gMtY?&o)_O.^eNE-o63anFgT#OoWI-6>hu5*bev'xO%j>T<^_9dXquT0o2pYXj2
U"M(j7Gy5m)wG6z'5-:TI7O-[&Y<0:LTuvgp;rC>LgdZxQC>wAT*u^10UP-Q<um0=
U"NpUx<R\(6%b74*ap4S/PF&6f794:ar4gTjNi?*/R+Ti453x%'3s.u<=f8Be4=)w
U"Ve\l/N?IZ6dNXDItPu30&>Rup*oJe7wt%iup.Bo5oS(bS7M&piug(.cuG^Mp)NI
U"Q6y(u[CQnH)=^M^6(gHBARfdCpSOf(udpuf^7pC7Jy^7Fy2iw\A.z2%)zS6My+Q
U"(_.qyfhMoINLoSyd2q9tgKNo8]DfqwtCgto8g#9)/+-uD5fx_''+<q\%BV/YwDS
U"<e>=7SWqb2V'DMMPNOZq0;A+mYDKuwf)U=Jih+Nckjt/wyxuAxWyy(qwy>Czy1d
U"%O8Oz(kdOh5tCSoGdZ]tXqBuEAo\.<V>u*=qP489Rdeu*\0^IiR48xEb'g7qJF(
U"D5071hTI8W.]EEf0hUTvEf=Hl^gc_DNll^AK2P_rAi4H^g*^ON#IofeVh#mOltE
U"CTodUxtC#%ywSAVdc\w)s+]OmNlNC2TydxcNCv.hAp9^4y.AyN&+wi74zl.azlv
U"N2KwitMwi^yH_<cUcCX'mm,eV84rl0[NrSrMaD6T?VVyrSPyrw9:c3WLk3WV\1f
U"n?aBah:K.g:Kyd*DyYC8yuP%Oy-z)woOy?YQ8gs]o(9fwnT)&Nw&t%O)tODP%/7
U"+:IO&0&+)RAoZe:F)-;7<&OO&T&8IIbon'S%%*[-U/;9h7YBnl4^HrZGoX+pTXk
U"e*m\/tOG\qr,qrzXXm'#YZqeI8l')4]t>GshaQu[KmbzXr9][AtB2gV6Y-2RD(=
U"0li]'3<ru23bom+8v\0=2ot$G/ZC=YxpT[&.7Y0f8I7?K((j,Hvw&gSmZ.4,g#k
U",kIMesAgR+%M8KA1Fz9;(tg,P>4;c^_>TdnR91t.j91t.*up;2#J(+;d$IAZI?l
U"Mk'E)MC=QRX2r.ha9p4bg%(&z[c^0*?/0.QqLTVWXwhb)wL)f7C=RiH2r<:a9Dw
U"N\-u\6Oa<SK%;'vJT^Jl.4yN(kj4t#222LacU+TIuZM+=$1rh#:kGmtss%Q1l,<
U"GHnqlx]B=/(N]u+;^KJdx'aL)s;0_(jtBQ'(ZQoank)'mv6pBZjaMnk']Dp+#*?
U"];_?I/[m--hJd^]*QhFr?)ZJ7d^*q+hX_[3CrNw**=(#HfJdx8'4)CE;e'*FoQW
U"/0D-*3/;^0P-Y$/<_e<a83A]>JE^4:Al/CT^O?,#r9*jJdI*VN7G^$/^MuDJuD8
U",X%[rsnbEg)_xdH^HR_s8BBfDSnUGpxn-([rX^oRDqa%t[2pFxS2)PFH*Pb-7Ys
U"mO2ujt8v-7ZSPONoX0N-q$)()MOx20k*HQG''ZCRQ^2-i9/k4mZdb&H*mE(YTvR
U"G#MmeOa0L1N,D:0&j5]u&T;Nw_.j0u:l(+8B&b\p=5h'^b0d;aL7>-(.)bG0>5m
U"p'vn3,H-\q>[JXX0O7hMb6^*4C9u,*wk-EQ4.xP.t*tzPr#\*i6;($PYotz5Jur
U"Lk[g)3HOwWMKmI>1sjbU9_VoZM$AEd8G6&l^kw#bf>(_j,D5Mg/tc,6nsVHooBp
U"0.;,*_+=13*7m.ETLhnI,+s\n&4us&w2WWoJ'rLZ6NlhmpiRr\\6eHttT%I=<*[
U"BVk+MX99mkfO)IxhR0xJkCD/<$k8T,#c\?(9LV6DMLc-PIc'*t=eg7.]f.iP:7'
U"#+R)kKnF?'XM*]#Wam_L'\9(UECQS-fIY86882k>=BYpnKI=gEuba#afH_ym^68
U"m*S$r6kXFHA$,1s3JE5.)dnXk9Isnp38Mm(/c#_TPSLd4cF2O;L+9[M%&IwM%h.
U"%e%:_rGJ6rhOD,3=fx\/a3B_=tSw[8z?&4l7HV2Q21'U:J_(4N>tPR^P?x8]R>2
U"i#R=&%*KMYhQMc?DkO.+3&GXYfclE6N;?*O1,ICyqbsm*LO$APGZ8Ll\>Iap6,,
U"fVk64>?6VDi&EIxNd[E.O^S8%]4D_T=2KTrljQr^L+u,bbe[V8M49:dsV(0S/e#
U"ZtPgo#>PL=A&Y53S%,E'UW=X30;%^e$>=5]1pm$b(mlbmklK%0;%?8ws;&^[wlM
U"eG-K8p]fP6F](j?d&n2&5S<pN#_O??EQ;Z:$eCuC$e*p63iv=];tXS\;..+;DXr
U"hcF*L4GIMLfuGnpL?tMt^Vth&RL7)/JKO\'rk^&-u<<;(+i;zCJqzbiCe+-D(mk
U"*?PqLIB^q#so&nLVc7#FihlDlMYXGM%-#n]ZIif\lib3#KzLt3>t&.bVcY?-0Nc
U")k:zE8I8J$Sg:6dOC6,xP-6lmgkKj%i1c(gsu^C.:p&q2Oz_V9u'2RL?TO<e1p0
U"u;;Cn(/=z$_(5/xfVZ<gg<iG:%:JPuDMGmdBkbnP=&GNP$'i0p72IJylp9,gfvA
U"V?XC;)wrR^q*p\oW9sFnByV=%<,Q<0b0.DY<RcmFJwjPl6Rc0sa_Kp<8's1UNSs
U"Vfb*jfaV0Ns$C<3qQ.$6iD(Up\f;k]N/H:eJJ'I6j6w6s[P*w9j201jliV<Ih]O
U"+,UmCb3+9%_)6&nYJJdJJ8m[IRqX=OaDrUwuXz?xt;A:x3BCC8zWmNe0=Pt-b,E
U"tax+9*p-CQUx0G<\ZOgNb&6-sIcl/y5:24:Jr\[mpXIKaYy+JP9vYVC'qpPS+MF
U">bY=R3s?JDO,'ohK*Bo_[G#L)1PC4bx+<OsJktz7s7e)s,N0a2u,VmZELaQHj_r
U"WT7$hpf,XtVIxN9p9Uj8^0-#e0;L:PY/DZ'Or39ML,k(Nmdp5lJnjDlmR:eha)V
U"g:*3r3+QXZc(*Er,m^4v<V#a<\*bLlu*X=p>XQ^?vsr?XGAj/G?N\FSzNp:O<#F
U"qDH>o/J_KM?wh1T5CCL3i7co<0V[1D3MTj,<VoG=(+1E]PYA>s/J_)_Zyk.S()3
U"6MV>Iis\Cn2j0koET7BKd1w->&e*Y#;7c_aRy#]Yfp/'/>'uYmth?G6QVP/tc(h
U"%69OgVRJV='eujBVk1oojR9MBVu0-AyinF:IhV*7)tQ'A0G-MZU<2u:5]#Sq3F>
U"0?:\Ls6\?b0,ZtF:BzirrY]Y20i]j7$sEy+NX$YTnJ,,i)C:oA:wH,b^5UJFU#4
U"YKVT5l<&h(iu-#AJ*e&I;,9oP7/ROywlQf/#U^M)42)U*;:d#3Z0nj]bFo8pXbp
U"t>dh/3:o4ptYYNttL=(d2:dY2BH'fkXeuA[Jd2d:d2B'H],H4p,.DU]&,.mD=m,
U"U-7*Oe%NL.5Rf[GM]qWr4M[?'(T]9\XojOKhl0SN03=e7WFM:pHT<vYqVrA<=v]
U"ZMXw*,f;=1mudTpX,jqb4/k57KJrw-%R^T2QJ$efV3OH2'Xi]1Y]q1Y=Fq(qmK^
U"r[CcJ4N#eXP6a$)[%G>&\mk02$[%GI>r$[Aumkbe9kb$5rBB\OlpC[b2eGFMMX4
U"Xt58=Kcfb=>oLV]b4=kC1/H_UaIBhm]#FtT#q[l(RaTMQOfe<93ab6ijom7km=7
U"km7ckm7kom7km=7kmwQ#QHi?v+GgNFM(v-TLp:%tTJt%TJtT%JtTJ%tTJt%TJtT
U"DB[b&E,.A9r(]2)W]8ozXiV7.5uqM>$rM>rSM>rM4>rM>$rM>rXC(%SHjQxXt&/
U"%2jelO3i\W&[_Wv][LN]GYUHm[WSv]Ukrdd*nf17cf85'NI+&*I-o*]T0sOXTJ0
U"S>*'u>__E;&IbKmk4n+&c]\MZ6a*]OzonklXTchWfiviUrvh2EBF\vOxbtjm=bM
U"D4w[+&>Zrkvfp*m&KC=I3T\AXBOZtd[;HivopkFF?LN#i;c8>3g.&).<7?l(0qD
U"Ih_8;ED:X?85BtgikGC#O3D[j$3(VtFtFaH)U#4qn14lSd101(ZCyZMdATSn=:&
U"=y?JP^Ol>i4w5-io]:c$.zO_mAMJOMLJa.X$]&Gr/dmBGXvJuGluEJ53+]D%U2B
U"aLXafl]evZ55V2[h)p4w/8_.4bKQOwMt*nozLVmQTc(wS,RpqAr-(&ePZolv%:_
U"Y.*eW4ivg<Op'#I0K0sCnYOF1%\BapKC+[Wb3-ndQask&AJ4xsAX$Y<uTH_aONt
U"eRa7s_n?Ia.$IJR-d:l9lQ&3h6R8D;Mt5-d>k?_(8VV_:G?uELkh>AoBT',?iB$
U"?DQl'<#mac;ghOUIdm.h+v>J^Q-1FbI]'/^S/PdA_ma[wyXcl8=y8$4L/.gt#lP
U"S8kVeS_C3OO^Tje(C7E?CZ;kTDf':EopZRN&&4QpJp,F.qfr(DYx(D,/LRTJ9S6
U"P9$-ngf>v1S\9\&2po%_3R(xXb2We8=mXkeb/RtLoCG1H%J4+*658JKQXeXbbQ6
U",9mjWe(=EsdaBFRsJo;E)68JX[*$OUbVQBDWl+EX?*LW/l3E_Q*LXl^&E+*1XWl
U".8EK*XDXl*EX;*,W/l2E[6*,Xbs<e2=8mpeAN)BWljhe+)2BXlpoea)l_WlleYK
U")lX8lte'K)0W,aeeg)10X,mTeGUyP4w764*On;fumrN0s.VdHGrueP1-C26&qhe
U"GjnHQOEO40Zw1Y9k)[).WS?dIN4DzJW)D0TlR&J9r.*0YF[#Ji;Lj\Mn&i_FqYr
U"-Y'jl(C+bLEaYI?F>i:<XGIC?,*Qv>3(Og&)?V2p,n>HMHa$c6Cn9LivY[vdrMm
U"t8nL+qvYx=dFMt=XnLg-v-udjRM^4IzX=oqZCmU7ob0wZH&MB:PHQ++z0.\+X/v
U"4,<Mh$,HK3:B.0O9\vC_9]huy3o=gvWuY76XZ.#[Vk475W2+vn\-/TTEeM8=1?d
U"OE#<gkuK$UA<dQAwKVI,R/3.^GEWQS9'o>h0f^+Hc'_cC*<^+C,.\Tp^6'JOZ5P
U"$K6\jDj?0oi,VTaq0pI<4gc06Zk-ADXjE6vQ3M)jZm6R&<&LVK]%bp&TO_scq2.
U"P7LB9w#JvfH+$ieNLmW\G[umd^b6jQn7maF?Fsm/NuDs*bPpV6>bFaV?wFk8xC9
U"4vi[1INwd2Cr#ah2-hKu6t,<s$n+e1G^uR'm=\FjRc(.D1xlju*G3Pc'hj_pj(,
U"ZXo\/YjT--OW$PS06\,M#WK?&9lKMc[&8xoOKDSnjMjhelDb&a8q)%QIi]ZC/Ld
U"=t#aP>.&H0:Dwe\C,TlO.9<<aYGZ&lb0_jTR4m?cp'YS=w*H?v.e:2l<z_rvrTP
U"?h+?Bno^tKh($)Wj/vE2DdrPfrG../8<j$S?\72PTepCP,R;rFu:;uAXM<p?MfP
U"(kJ62:xkM0kjM<r5vVKbjF%uE>CF#X9qi[9(msn3E58ad$PbZ*N=65h?xDWI4(q
U"F/$7Y9kMxeIKZDhu34_u^_EFVm<wjM2NoNt\T7e,WfMXm''Kh.Y=V$0m[)CLbz>
U"=6Zh9HHsLFI?m*6q\ZIQ,l&Wz8_nH4<s26Moofot8UcA)>(zc8'eec)(-)x,u%p
U"()9%%'%-.%U6QmGrco'#U%%%%&'%%%,%%1%;EULSCGC7pOCqHGOnq>gEBt'GsRg
U";tG2wUwZ,DckkpAE:RiFM0#HMmv/6&f#;k-;oG2%%up&'%W09%%'%-%*#1QG^Q>
U"E9%n%%%%-'%%%-%%%%%%%%%&%E%*/P%%I%%;E#^^SC)GCup%&'W0%9%'%I-%o17
U"QG:2'<[b%7%%\&%%%-%%%%%%%%%&%RE%/P&>%%%);E^]LSCGC%up&'%W09%%'%-
U"%(f1QGN+TRQ%W%%%%('%%%-%%%%%%%%%&%E%</PK%I%%;E#^\SC)GCup%&'W0%9
U"%'%#-%:1RQG9H*0GR%7%%t&%%%-%%%%%%%%%&%RE%/P%O&%%);E^[LSCGC%up&'
U"%W09%%'%-%*_0QGoDud?%U%%%%''%%%-%%%%%%%%%&%E%3/PL&I%%;E#^ZSC)GC
U"up%&'W0%9%'%R-%F0.QGm0%.$H%%%%('%%%-%%%%%%%%%&%RE%/P'L&%%);E^YL
U"SCGC%up&'%W09%%'%-%)h0QGeGPU#%V%%%'u&%%%-%%%%%%%%%&%E%*/PA'I%%;
U"E#^XSC)GCup%&'W0%9%'%I-%c8dQG[u+.3_%%%%+'%%%-%%%%%%%%%&%RE%/P&B
U"'%%);E^WLSCGC%up&'%W09%%'%-%(V0QG_>laQ%]%%%'X&%%%-%%%%%%%%%&%E%
U"</PL'I%%;E#^VSC)GCup%&'W0%9%'%#-%B6.QGbx&bJe%%%%/'%%%-%%%%%%%%%
U"&%RE%/P%V(%%);E^ULSCGC%up&'%W09%%'%-%(S4QGXu\0f%m%%%'m&%%%,%%%%
U"%%%%%&%E%3/Pf(I%%;EI^SCG&Cup&%'W09%%'%-1%)2Q=GC>u%4m%%%%2'%%%-%
U"%%%%%%%%&%E4%/P)#)%%;&E]^S2CGCu%p&'W%09%'%%-%&&2QGl=\5WW[%%%j%&
U"%%-%%%%%%%%%&[%E%/)PA)%1%;E]I]SCG&Cup&%'W09%%'%-4%K2Q^Gg+L'PZ%%
U"%%&'%%%-%%%%%%%%%&%Ej%/PC#)%%;&E]\S2CGCu%p&'W%09%'%%-%)&4QGYRWv
U"V*%%%%4%'%%-%%%%%%%%%&[%E%/&PJ*%1%;E]I[SCG&Cup&%'W09%%'%-4%.3QC
U"GPM0'^a%%+%r&%%%-%%%%%%%%%&%EO%/Pu#*%%;&E]ZS2CGCu%p&'W%09%'%%-%
U"X\9QGh6??HT[%%%t%&%%-%%%%%%%%%&[%E%/&P-+%1%;E]IYSCG&Cup&%'W09%%
U"'%-.%a3Q#GD4v&cg%%%%/'%%%-%%%%%%%%%&%EO%/P,#+%%;&E]XS2CGCu%p&'W
END SUB
SUB V6
U"%09%'[%-%1&/QGC-PO7e%%%%,%'%%-%%%%%%%%%&[%E%/,P>+%1%;E]IWSCG&Cu
U"p&%'W09%%'%-1%P/Q+Ga'N%LM%%+%$&%%%-%%%%%%%%%&%E4%/PP#,%%;&E]VS2
U"CGCu%p&'W%09%'%%-%z&/QGy18D3J[%%%v%&%%-%%%%%%%%%&[%E%/)PH,%1%;E
U"]IUSCG&Cup&%'W09%%'%-+%)hQRGqfj'?U%%+%>&%%%,%%%%%%%%%&%Ej%/P=#,
U"%%;AE]SC)GCup%&'W0%9%'%#-%86IQG=:+pOW%7%%p&%%%-%%%%%%%%%&%RE%/P
U"%>-%%);E\^LSCGC%up&'%W09%%'%-%&'pQG*kj?r%K%%%'\&%%%-%%%%%%%%%&%
U"E%3/P#-I%%;E#\]SC)GCup%&'W0%9%'%R-%9-7QGEh(S*P%.%%J'%%%-%%%%%%%
U"%%&%RE%/P'6-%%);E\\LSCGC%up&'%W09%%'%-%**-QG7HiI\%C%%%&L'%%%-%%
U"%%%%%%%&%E%*/P3.I%%;E#\[SC)GCup%&'W0%9%'%I-%x-%QGHi'I\C%.%%L'%%
U"%-%%%%%%%%%&%RE%/P%w.%%);E\ZLSCGC%up&'%W09%%'%-%)k-QG7HiI\%C%%%
U"&L'%%%-%%%%%%%%%&%E%3/Pe.I%%;E#\YSC)GCup%&'W0%9%'%I-%c-%QGHi'I\
U"C%.%%L'%%%-%%%%%%%%%&%RE%/P'S.%%);E\XLSCGC%up&'%W09%%'%-%(K4QGp
U"a:d%%U%%%&O'%%%-%%%%%%%%%&%E%*/PC/I%%;E#\WSC)GCup%&'W0%9%'%I-%P
U",%QGq8*C8O%7%%j&%%%-%%%%%%%%%&%RE%/P&C/%%);E\VLSCGC%up&'%W09%%'
U"%-%)D,QG,lqVt%m%%%%4'%%%-%%%%%%%%%&%E%</P=/I%%;E#\USC)GCup%&'W0
U"%9%'%.-%ih#QG4_%9xE%7%%x&%%%,%%%%%%%%%&%RE%/P%W0%%);E\S2CGCu%p&
U"'W%09%'%%-%$[pQG#1-w9I%%%%:%'%%-%%%%%%%%%&[%E%/)PF0%1%;E[I^SCG&
U"Cup&%'W09%%'%-+%joQ[Gkw&%)N%%+%o&%%%-%%%%%%%%%&%Ej%/P:#0%%;&E[]
U"S2CGCu%p&'W%09%'[%-%P[mQGs6\Uv[[%%%r%&%%-%%%%%%%%%&[%E%/&P51%1%
U";E[I\SCG&Cup&%'W09%%'%-(%_mQjG0Cr'iY%%+%r&%%%-%%%%%%%%%&%EO%/P;
U"#1%%;&E[[S2CGCu%p&'W%09%'[%-%j&5QGk5+v,c%%%%)%'%%-%%%%%%%%%&[%E
U"%/,P?1%1%;E[IZSCG&Cup&%'W09%%'%-+%FrQXGHU<'8Y%%+%r&%%%-%%%%%%%%
U"%&%E4%/PO#2%%;&E[YS2CGCu%p&'W%09%'#%-%h#iQGd'jw$R[%%%x%&%%-%%%%
U"%%%%%&[%E%/)PS2%1%;E[IXSCG&Cup&%'W09%%'%-1%_HL(Gkt3&G$%%(%E'%%%
U"-%%%%%%%%%&%Ej%/PP#2%%;&E[WS2CGCu%p&'W%09%'%%-%\[rQG/(*8fJ[%%%e
U"%&%%-%%%%%%%%%&[%E%/&P]3%1%;E[IVSCG&Cup&%'W09%%'%-(%*rQ+G2#z%*X
U"%%%%&'%%%-%%%%%%%%%&%EO%/PR#3%%;&E[US2CGCu%p&'W%09%'#%-%I%hQGx*
U"pq7?%%%%*%'%%,%%%%%%%%%&[%E%/,PU3%1%;E[LSCGC%up&'%W09%%'%-%&xoQ
U"GeuFBT%W%%%%)'%%%-%%%%%%%%%&%E%*/P#4I%%;E#Z^SC)GCup%&'W0%9%'%.-
U"%Io.QGOc'_IL%7%%L&%%%-%%%%%%%%%&%RE%/P&B4%%);EZ]LSCGC%up&'%W09%
U"%'%-%'NnQGgspdI%K%%%'n&%%%-%%%%%%%%%&%E%</P94I%%;E#Z\SC)GCup%&'
U"W0%9%'%%-%9n[QG^&+R]Q%7%%q&%%%-%%%%%%%%%&%RE%/P%15%%);EZ[LSCGC%
U"up&'%W09%%'%-%&TkQGZb9hN%N%%%%('%%%-%%%%%%%%%&%E%3/P-5I%%;E#ZZS
U"C)GCup%&'W0%9%'%.-%ZjmQGBo(?mG%7%%r&%%%-%%%%%%%%%&%RE%/P'&5%%);
U"EZYLSCGC%up&'%W09%%'%-%%;iQGrjfhg%M%%%'q&%%%-%%%%%%%%%&%E%</Pn5
U"I%%;E#ZXSC)GCup%&'W0%9%'%#-%sJ%LG5()'2O%7%%j&%%%-%%%%%%%%%&%RE%
U"/P%h6%%);EZWLSCGC%up&'%W09%%'%-%*c+OG*XR[n%U%%%'K&%%%-%%%%%%%%%
U"&%E%3/Pb6I%%;E#ZVSC)GCup%&'W0%9%'%#-%;,7OGwH)1QS%%%%&'%%%-%%%%%
U"%%%%&%RE%/P'b6%%);EZULSCGC%up&'%W09%%'%-%&5hQGbbBrI%Q%%%'v&%%%,
U"%%%%%%%%%&%E%*/Pb7I%%;EIZSCG&Cup&%'W09%%'%-.%m6Q=GW\-'#d%%%%1'%
U"%%-%%%%%%%%%&%EO%/P]#7%%;&EY^S2CGCu%p&'W%09%'%%-%8[oQGr<?voJ[%%
U"%e%&%%-%%%%%%%%%&[%E%/,Pl7%1%;EYI]SCG&Cup&%'W09%%'%-(%cnQ=GeTp&
U"(Y%%+%p&%%%-%%%%%%%%%&%E4%/Pc#8%%;&EY\S2CGCu%p&'W%09%'%%-%s#nQG
U"H=)&D^[%%%q%&%%-%%%%%%%%%&[%E%/)Pg8%1%;EYI[SCG&Cup&%'W09%%'%-.%
U"z6Q^GFQ8%)\%%+%u&%%%-%%%%%%%%%&%Ej%/Pp#8%%;&EYZS2CGCu%p&'W%09%'
U"[%-%]%jQGS)pY7Z[%%%r%&%%-%%%%%%%%%&[%E%/&Py9%1%;EYIYSCG&Cup&%'W
U"09%%'%-%%LjQ4G/K?'<]%%%%('%%%-%%%%%%%%%&%Ej%/P(#9%%;&EYXS2CGCu%
U"p&'W%09%'[%-%R\,OG'/aI3P%%%%0%'%%-%%%%%%%%%&[%E%/&P2:%1%;EYIWSC
U"G&Cup&%'W09%%'%-(%psQIG7O%%[Y%%+%S&%%%-%%%%%%%%%&%EO%/P-#:%%;&E
U"YVS2CGCu%p&'W%09%'%%-%,A.OG/,jBIa%%%%9%'%%-%%%%%%%%%&[%E%/,P1:%
U"1%;EYIUSCG&Cup&%'W09%%'%-%%phQaG5(p%dN%%+%v&%%%,%%%%%%%%%&%E4%/
U"P?#;%%;AEYSC)GCup%&'W0%9%'%R-%dS[OGw^(12b%%%%.'%%%-%%%%%%%%%&%R
U"E%/P&7;%%);EX^LSCGC%up&'%W09%%'%-%*KSOGIAo.h%L%%%'$&%%%-%%%%%%%
U"%%&%E%</PD;I%%;E#X]SC)GCup%&'W0%9%'%#-%.6IQGj:,2jg%%%%t'%%%-%%%
U"%%%%%%&%RE%/P%=<%%);EX\LSCGC%up&'%W09%%'%-%(-.QG3t%DN%?%%%&L'%%
U"%-%%%%%%%%%&%E%3/PO<I%%;E#X[SC)GCup%&'W0%9%'%R-%u-RQG#7,,A?%.%%
U"L'%%%-%%%%%%%%%&%RE%/P'9<%%);EXZLSCGC%up&'%W09%%'%-%*n-QGi#7,A%
U"?%%%&L'%%%-%%%%%%%%%&%E%*/P%=I%%;E#XYSC)GCup%&'W0%9%'%R-%g-RQGf
U"l,&[D%.%%L'%%%-%%%%%%%%%&%RE%/P%e=%%);EXXLSCGC%up&'%W09%%'%-%)u
U"/OGcqRt(%c%%%%='%%%-%%%%%%%%%&%E%3/PT=I%%;E#XWSC)GCup%&'W0%9%'%
U"#-%V/.OGbm)2^M%7%%$&%%%-%%%%%%%%%&%RE%/P'b=%%);EXVLSCGC%up&'%W0
U"9%%'%-%(&/OGt=PZ=%d%%%%)'%%%-%%%%%%%%%&%E%*/P\>I%%;E#XUSC)GCup%
U"&'W0%9%'%7-%mhmQGF(+q:V%7%%t&%%%,%%%%%%%%%&%RE%/P&k>%%);EXS2CGC
U"u%p&'W%09%'%%-%]A6QG%7&x(l%%%%/%'%%-%%%%%%%%%&[%E%/,Pk>%1%;EWI^
U"SCG&Cup&%'W09%%'%-4%aPO(GO*(&6O%%+%Z&%%%-%%%%%%%%%&%EO%/P.#?%%;
U"&EW]S2CGCu%p&'W%09%'#%-%W&POG=6_R<m%%%%5%'%%-%%%%%%%%%&[%E%/,P(
U"?%1%;EWI\SCG&Cup&%'W09%%'%-4%v5QsGMX$';P%%(%N'%%%-%%%%%%%%%&%E4
U"%/PB##%%;&EW[S2CGCu%p&'W%09%'%%-%EA.QGx'v^HB#%%%L%'%%-%%%%%%%%%
U"&[%E%/)P=#%1%;EWIZSCG&Cup&%'W09%%'%-.%<4QUGg,8&VK%%(%M'%%%-%%%%
U"%%%%%&%Ej%/P*##%%;&EWYS2CGCu%p&'W%09%'%%-%U&.QGm-^Mg##%%%L%'%%-
U"%%%%%%%%%&[%E%/,Pv#%1%;EWIXSCG&Cup&%'W09%%'%-1%46Q%GN)*'>X%%%%E
U"'%%%-%%%%%%%%%&%E4%/Pc#A%%;&EWWS2CGCu%p&'W%09%'%%-%.A0OGB0BFbR[
U"%%%$%&%%-%%%%%%%%%&[%E%/)PfA%1%;EWIVSCG&Cup&%'W09%%'%-4%\5Q%GSt
U"N'Kd%%(%;'%%%-%%%%%%%%%&%Ej%/Pc#A%%;&EWUS2CGCu%p&'W%09%'[%-%j%g
U"QG#>+RnN%%%%'%'%%,%%%%%%%%%&[%E%/&PtB%1%;EWLSCGC%up&'%W09%%'%-%
U"*pOOG?w-iV%g%%%'o&%%%-%%%%%%%%%&%E%3/PlBI%%;E#V^SC)GCup%&'W0%9%
U"'%R-%DO%OG-G*ws#%7%%?&%%%-%%%%%%%%%&%RE%/P%*C%%);EV]LSCGC%up&'%
U"W09%%'%-%)FEOGrdka(%p%%%%<'%%%-%%%%%%%%%&%E%*/PkCI%%;E#V\SC)GCu
U"p%&'W0%9%'%R-%H5.QG?V+S3q%%%%6'%%%-%%%%%%%%%&%RE%/P'0C%%);EV[LS
U"CGC%up&'%W09%%'%-%*1DOGN]ohj%\%%%%&'%%%-%%%%%%%%%&%E%*/PNDI%%;E
U"#VZSC)GCup%&'W0%9%'%I-%\8%QG7)'lDl%%%%3'%%%-%%%%%%%%%&%RE%/P&UD
U"%%);EVYLSCGC%up&'%W09%%'%-%*lAOG>D$&-%h%%%%*'%%%-%%%%%%%%%&%E%<
U"/PlDI%%;E#VXSC)GCup%&'W0%9%'%#-%)1.OG,;%\Ua%%%%<'%%%-%%%%%%%%%&
U"%RE%/P&+E%%);EVWLSCGC%up&'%W09%%'%-%*40OGtQ'[8%M%%%'$&%%%-%%%%%
U"%%%%&%E%</P7EI%%;E#VVSC)GCup%&'W0%9%'%I-%Y07OG;w%7-d%%%%.'%%%-%
U"%%%%%%%%&%RE%/P%1F%%);EVULSCGC%up&'%W09%%'%-%'CgQG*g]gT%T%%%'X&
U"%%%,%%%%%%%%%&%E%3/P#FI%%;EIVSCG&Cup&%'W09%%'%-.%5AQ.G_gg4'Im%=
U"%*I'%%-%%%%%%%%%%%Ej%/P>%F%%l20<4S210Bu%p&'W%09%'%%-%U&6QGr?co#
U"U%%%%&%'%%,%%%%%%%%%&[%E%/>P49%1%;EULSCGC%up*+%%%%%/4%4%%i:%%+5
U":%%%%%
END SUB
V2
V3
V4
V5
V6
CLOSE:IF S=215AND 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
