'===========================================================================
' Subject: Charts Using Rapid-Q               Date: 03-16-03 (  :  )       
'  Author: Michael Zito                       Code: RAPIDQ                 
'  Origin: mzito@aol.com                    Packet: RAPIDQ.ABC
'===========================================================================
'>>> Page 1 of QCHART.ZIP begins here. TYPE:BINAA TLEN:29691
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"QCHART.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%7-%'gJ>STH?x0$4R%%D1%%%1%%%%vhM70ACCjGSAV#1f,<xBS]=;x
U"6XfvDCETW?3Pm'nS66G^5-2_S*'a9Ur1ldV]9so[=Qr%<k^6wsJt*+\Q#.#gi[Z
U"VNE=Z*vuHrKbmJWLb%7e4qsblE_u>G+KW,X[nF*l_6MnLhNoFRs$x9_bM4'lmjo
U"VCa8\NWZf(.Y8[NPiD=hfF8L[LVb)=4,mrdklQvcFYLL*.389Ds(n2cD?rMnn\2
U"i3#tIt<kKG&x$OiKCF':IRRL[(+at$811DOJdCYIFgvD%j9u[Dc4bfUYMx6u*H*
U"D7ndA3BY8t=0Kdri#/3_I=0ZHes-aodJHBc8.6XFkB#SuT<4xYV$x\q:*W:2cZ1
U"4=l*BR,q?XpY3r;%'RpI-NY[-lNXOG])rOM]1XXK_%C?L_S]+qRc#wY3'Q2N=EF
U"#<[NsWjf7uV-Ebd2N]SN6%JWlosG1<iL#S$>4TU]RNZf8pU0QG]coa6s?o(F+)b
U"nHS7lwM<_rT7b2M\6t6$st]H38Vlkn)m(ehbmuJ>kiHt3&2SdB/\dbh.n7YcV/_
U".DhpMSr&TNCvq'p,%yt,_saOx(xFBsbW13wh8#rG,P*RTn0B#m/0^?24n')8C$u
U"ASgqqsvqfnAziKY)&Fu7X5goJo#$=gTQ+4./-#FbOKiR*Gti,)/u^;\imE7<WA9
U"qW&_Ky9YBjPh&8e8^XEhoyqGH;EfDP;)nJdld+K^RA\=9i>GboblfFR%9Yvv)=4
U"3[DJ>c9TGL4UJF;1I7x)by_Qi'sODP+3C%.-DUR0^e9[B[>YTd%bxdG_3^i^eQA
U"4DCM:8*Kl^akwh>&<2m&>iq/I<I1'aYugvcOW3F,DrxD.k$p*;unKap,hdn^B7%
U"nAxOYPy*PetK;lR2y4GuF7iu0&fllj=P7;bvt5nSyNT\%[9Su2ENUADS8TlW/uJ
U"kaRY2pi9hSE/y6Hj%um(Qwg<9M2z>*W^VGLj3,O9<9Au)i*;(m48,jpGnVKG%44
U";HmZzt/Vd]SBhW<x6r'7XVGySf?fA1fW)4z<WYy_&y.#)j;)R$Gxh#Z,IqTtOp<
U"g%n2JQHIj-LFug-N3zb>RY9j%\VxRm<vmgq<*<f&JXlRgow)0)y,suM+v?:n%I&
U"b+WcXgN::mR;rK:b;7jV6V?O:Jp3BI)oEpEa'WOENG8M?q8f:7#33/P0UzPeRSJ
U"KgeahlyqbDqo]>u>X630f%>=u%H(avQ/8/)v)rB8Wb1^FF3TIDdDU0f;n\Q1GcH
U"7C>+^67exkBN]Wib%3<]tX4$U1Vve*_5rc*X=)0g[sEYseIChBAm[=Fib<JEc8\
U"S+.*s=VRQOE;:1ZfMa3vsE.PTxT-LrA?g*n_%^)WPY0L00][s(2D,IvO9C>,^F)
U"v]fR\837FnMa52$G+,&AXXlb-Yvste>DRA7_nd_fI,uGj'VG(1wxSuBPWyG<lUX
U"AqDI#V8EC+mM)R[uLUNj-M$.x:<KX>5_;s\m:sbiGFV\u?q2=7./.=j89X*$84$
U"IS<\nq6=gpqQX\q9fJUOUYd'Hh,Ja7YGfP=4xb)52)X7p+LM007_p7i0qMA4/Gd
U"one7q(N<oT,YTU1.8K4m77U^X&0_3R,jV(Y3Wm1,+1J$laW_dAaSJtSu61K1jCF
U"P[pr?CGsGwaaRLIaW2p'tHn1:Q('On?q^lXF?dWtQZ_CpdE_#Y\n.VhhnLhXu+]
U";5hqR+%[#1#60iJdE0/c(LrXe1:lV0timR%kXw>1HWN=IUBD0Z?\ER&'e)]S)q[
U"GCbVYoP]9,F;pHe5tw>)sKgq/1^kpXiLk*_/-G\ErJZ'*EbPHIXX8=?Yl'>;;)+
U"(%zs0FiuDW)CbtdYLC$*:?BnV]aNMya?ZZs-KC0%Kah65FuJ>-juJD1gX5DJ7Lo
U"S.4&51p>zOPUG,w2q%.cdA[I&gc^w&VfOBw<:HX%BMi^g/4:z$KN7)<>&'Z).39
U"hyJF-3Z[yf?JZ=I+_HSJvNL-;ZLFohPuS)/>cVjPk$\7/*afqHLqahJQB7TEgZq
U"WhQN4:tcnTJQP1o[oj'[v(l6pK>AgOt4zT.rnG-Fhg#Am88g.iHDA6?5<(r^=rw
U")\OF6\P\K3O]Ro$je6v(i%>\l&LH3mVbSOwcj2u?Z/39Hxe,B2\InhH1*sN.F*I
U"$ek/Z8BWt1l5=-5p,EB_a5?Wok>+r=^]%FI2^yN&_j0Oo3Sh>=EFH^D+Wc,AFoX
U":mAi^c$j1o^Bz'jrCUr+YweCgrl=P2[ArN0;$WQlo1ON7CHhnq>)G^pu7FYOoV]
U"N89Xt#s1pzwZGqaY-G[qP^+<B36rEGeGh4)cno,pi._W8,%+1GDD#j&_\%aJw37
U"25$f*RZp#Sgi[^e:$Dn'wka?4&f=-gx-P,'0[3'>dZ8w29u_CSTBOp6viIr#8Ll
U"tqQ]lXO>G;qa_73cA'$L,L_0eVjZEVXDwU&+3B[c^3fT]f>8Zl<4kj062%1;f6j
U"n<N7cYg<>/q(f6N.9Z%:$Zbg8&vm0_J2dg^.6lsRhAH:h15zKxn/xC0OT[':+xd
U"G^=U<Uh34*j6RO2#xC-K$rSK2dum7n>>Hp9B4P)<q#ZB5loEKoUq+O4H0EoA(>u
U"d?8nJp9IaDh0Ag_X87E&lkWX6rk0?0$&lnHT$-lGIIaXrQMVXzIXcIaHqD[B+=F
U"E+QA;Sj=c:SwZwR$CYKJIgz44XSr-.r3cGVr$v9COGa8/NTfnG/1#AZZ1=qXSu?
U"<,5W1<i0=x.V/a[vg/QUM&'twH?mwo%4C=#U&BGu2$6NsFHQ]]dmf:PA^Inn6aI
U"k9*86Bwf._N]p[mM(9m2'&bLYi[P(Kbk2.h)8VL+V(E;4Y;9ED>>?PFAaC2>OA^
U"$le.GSdp9L68k)-62(e&Je*SHd#P'*\'gC.SN^+ZNh1Iht+#D)7/K[^CSdnB*sl
U"hkZ1MP+Q10/d=]I_YrP.q5D<.v^S45T_m?K.,2g\6/5_G2W:aaQWG>JxbuJrv?<
U";F;5CH>V3FjKsxT6%;H^E+aO92*MNQ6$K$VbG6r/;-g+P4[UU0co[E..M_rRg*>
U"MPa[\t-[NO^hm7Ejo?wjChH'(>UxV%k0FD^?Q+cz%.XiIF=H#cv\rG;OYY_$I;x
U"QVc8s/5xW'dA808jqO*Ki4xYGCpxnGMaB,'H$'F:(FJV>:N4CU0^7WMO#sbA#v2
U"9d663lotFJaQPVUi4&H8<xnK#i+*xfZNox%QHA\kJbvv&T5N>UGhQ5uHM;KR0R0
U"m??=oVS(\fAm<8&(:8al';U'w3ZbRdyntKNN;nvAHJEChu1K9l.H?LBD>,=45cV
U"^OSKCy>^Z^.3ye;tZ4t?B*v6_bexc0WUFIgcP_(HWYEd[VyQTr?j-J5I6,>Q$\[
U"P\rK^9RaA6j]d:ib46JjTa]II/_-SHF\E(r1ofW?+KH$S+l#B=v:F3^uO5?q3*M
U"f]9fYoJG%m52*SSG8_0wRBRO?r6zS6vk&a6XNb#+6J36Vux9.=))KTwDV=;wfQs
U"H3Fnfj$0KHbkf5V\kcV$F/pB#LnAz+iWe\lr%fHl*oJ]&0ZI.zKrbV:#DZ:_Vr&
U"X8PSb*XCSLN19'zxpkYP>phb0uhM$gBK$mc4>hm^]2?k%=B]PaGGM[5XV/]BZ>>
U"sq5Kh.Dc%1FR;sB8lKM(_Cpr=00f0;+m\Li_0dkWOXB;LqHaBQ/bmY7l]*Npp_b
U"I7W0?-^UCWNA'kGaE:0WrL>:$8Q__\Er_1$LEl7Z3K5'.UlEQ?*L68uJ-,XQh(c
U"09Hiv*%rghfRQ3NyGk]q^i9dC]TE103?aCZc6whcdKNXe?L_fq8JL16^Z%.kuH&
U"lM_CG,LNc1mG$5FljIWH\Gldu3j;VYp<mhE*)j(LM\u&;ke.M*+^HPrt1fVJPXp
U"Qu>c7qR>4aiQ09G:J_\**8Hw.(jEAttK(^b*jLY=;4K=C6KJLxh+F/<D_=/xZ:G
U":t>LS.XEZ+0_WEAdN<f5o)1#^Sr.9>FKG76WY]AQT(w1]klHQkYkT)_+xwh\4NV
U"'6]DlxIYxuWN)3uWKcyKX.J:8&b]t9dZ#>7]jtjavSOnc%StdvO=E&b,IIsdG'7
U"F;z&6K2J_?7a44W6jE>E(;R0bc_wR=rRaqhQ1:U;u&V-5E4S^\X'6(xnnQaI&3i
U"$Fdz+,EsOQr-kRY_IMm[JY*1AXOJP2d$I&INS%su,/Oy'0:C+2g<;#4E:L/X7ME
U"n9>_pDVY-t1jP^*jQ3*.dUHcr=J.N=D^OD.K['vQkJ?uI,)KAX<>7o$6k?dnj=c
U"6Gj)r:]h68*;BHADUR6AYbg,Agh(pc*X<MESX5_go/wmoriC-+QgM7RosEA'PN\
U"RQ#<LK4c,<O>uY]wP5N>XG6^Q6\BQCP8bn)O:y;pyac:K_UM\9Q%a0t_*tGWO?G
U"jkC'^mO92-zug)vu<oKZdN:19M1/l;SQ9_#FTOpc=]N3(+U,QJ]#H%wj13$dD+&
U"g-;&Y66%_&H10+/\->8=B'1U,LlTGE>)((t9dZkHnx,5wXHRXU]TLEllViIa44(
U"S/d)a=*FPLUgdrcwJ&RT$9M/HnJ1='6vg<vje*HPG+Hv56VLZg,u3^Dhb#.#fS3
U"EMO+\((TH7r<6I74JHv1tA#_/lL0HqW4:7+?*P,CSu79p9zeJ%>W=+r,69p(bE,
U"rJ4k<4<PM)oBZ^Xe[sZV)7aY#;Dv,T+5[0)4-ANUy+=j:4T+_i)3Xbwx^cJGCNC
U"WnDH5MNm4k>%D5bqjIc77>5lWg]S9RT&w)_EYijQTp45kIx4Od>D5>GO:P#l2Zn
U"Tk$jt5OU[Bc4eF*B^db6Gai+HPZ8dni4Y7W>qT]J#2b:&RAwC*tkM7KL$^I7ua+
U"p%(yqIr'$SKdEWY9PL-,?]Bq=245c\y#\JZ2d/]cGAI+o2QVF53m3U,ac[iuA*W
U"GU=SU0ZJaD&$TRfZWpaQL:vC7kQeDC?JRY4oBsjMfH+#MIVK-8y]P6S>*E'pMc[
U"[EjBsTaa8<5$9NX0X7uD^;5VJ,tG33<fHZ_:21vf[DsrMD'_gJwen.H2(NYHZ^l
U"n3<7(K8qO/Hy+l\%L)L$N4\W8V9fExqdNZ9PvspdU9d_gKEf*l]So2W>whLm4RB
U"jv<EJPsOC0WZP&K9Tc]O0a/dZRsqVw'L,n#OStL?)a;d_:=ER51f?/R8?.r&2iz
U"LnL=)OnDX9X5kG=?i9'>uBSU0u:L/=CcbMM5w%4up(%)9%%#%-%d^g>SWteb)([
U"Z%%c%Q&%/%%%%vLh70AJCS>1P9fL:AF#^]Hapb6ow(P0Tpm+4TRw[MjrUJujo[J
U"v>9DbmZ,,,v:QdfoAsOrdj9DB_E#.%K*,'4^MEam<4K/tO%7)f5I)e_;f%d*sHL
U"8ZEWvXvIe?<slSn>T2KmNY>ZRrnV/?Y6\FnCSRn(YWu\d:9#[y1A9RDI,VXY36j
U"l,_w>>ITTT.=$\kAFf]0ux0<w47FbWKQ-k2iA58k.N?V>^0';GV(A<I2jV;I/#s
U"b*<uTPK9Ou_[:2uLU]F_%bkGG=<.]qR^l]4Z+s^6FS'e_m^+Iqa=M=5r/%c4x+h
U">6Fie7'O>^<O7=22ElQiR;aE0,32lH:aSV4,4^K%8[/KGr>)yS2fEQ(>oXp+Hu/
U"Z%qg&0ZZ)r,?A?:aD/rImd,%/EMqgmEs3r\bUQX<g1?]^8fcHww+/7QW*9E?aE)
U"3[^/a]gq.C%G[m0lJF:(4#/F66E20pF/;LEp1;Eh<?\%X+ip1E.YI;jTI9&ouX0
U"1hwGAT/%QH#a/ZeO6JHY\3?0CLe22E1B1jLHiiciHX*t0ls9=;MJq/UVw6JCF[Z
U"uN:+wEqGl\]i:lO$dc;UP[MPzV(WAER7pcO]H*KndqdMt5_?R]b<TA7XUTeUEq(
U"9?aLV94e<hgU=O$<7??+>5;Boi+A]3FGa)J2k(]V2/_QoU/D<=Y1$1]Va,kpqoL
U"'Y_s($6AvrHIVE^etlmhP?=EZWgei#kqTB[+$>[FdXE&j:hw'_FnPkAduixeulc
U"a6]8^Y=38jil^]IKqL+)2bAkL=q=k4i%j[817q#/:e2<_Q0%g=KZ[);$G8+)l's
U"HYEXHI%cOV2p\n=U>WUd,V(HAER#7>qMY+am?5v..dtpU>$kw3\3+5Ym+k+;7/d
U"Y=N3]o8(4WT/1+KjK$pkcBe3V\Z'HGk&77f<FoPr=*<;k0)CBH:*CH#0f:UC)f9
U"MiWc(S(Ao0,%)^#&n'HH(<nA]xXLv%c-9i'Y)j&)D7+G2e)K02Cg4yCUY*UIU1x
U"u4t:36MyFQ9BpS4x<MV_7[>$,B*]O?N._R-q$(Pe9=V53?dESbtd'5SSCQXe+(m
U"pY.HKTUjkBaT97&IT;+A;KFHAWVjPVDH01&7US1U/Jp*qG7%A0Xs%\NNqTQiLTn
U"#C1Vu>N[;g]T]4>-eNPcEHk5EculT8:9e;O=+i,,XDo4E=zV;w/O9WI[M*DoMJE
U"x-J0NKLPq,itg_tT'dDx7+D9p=MXWqRRs4t*VhwgFPY/As1.Oz2e2[Q(5VtYJRN
U"jV/SIWe[U_n$63Fe+&]eW[MdH:0FMsP=$i&h+5YnQH4G>Ytc0[1HVhL48_W7Fg^
U"%^/]5/-.;5h3R3PBKI0s*+1S-mfPV:'l0CX&T]FKVV4FB1JQw_I:YRwA_r_rK%V
U"[d;'.u,z(25o<O--:KNg(>Y+l/ogPTELeBXO*Yhwm&u;QM8i43#NxJ%F,OY.](b
U"ZT*thDNTTt&q+pQZ4qbPeMTJm?2P^mgQv,o.uFF]eWCPam6-sU'dn5b#%vSSlO^
U"VUWh]q&:J+7[C)czkX5qbPeMTJm'2<pg'=e-Fc1of6o8enwn68Ch>5sWN=D0L*A
U"WA=vewRPqFEf,:'6($2&t6Z(2*O9y1VF$%4pgBJSEm3OSg0L8.]KBl%5KOCpU/Q
U"R+7\KrAuA&;a6:Rg-X#P?5]-z9(OYXO;TVIkLu;wH0*w--DD3*<.)pl+]Do>iRG
U"B,.1<7ss/AkXoRTi_-o%X,_ONo1+7a>59>t39.SdzeW<Ev=1gz]Z#8vdv#&OL02
U"(_J_(/cwE-5%X7CeL/ppK7$MLVEGmi),t]DFVoBK#^c$quhAmX(BlBCZ8Or-p,b
U"ECmm4Q/WGxcJd4(0hW[g6-'=HWUQxm>V#l,LJnfuaVuR:Nj'r>$m%h==<\01K;:
U"Z*4BIlTI:D;>7PP07u-6'*51bN1v44,3?7lX/(uRc?<_+zXlN])XU7>GIsDaiLn
U"[A,FK>YRra=Ld,3F9>-ba5WP#a:3f>m>cMQ4aLI2;lB]xF\K4ZVJ\lyi.$vykCR
U"V%4RC;P1l7#)cdh+p4rx$0OkZ6KdHY7/X^sbtZpzA-m7zEX^3YD.a]aOL,[0y]j
U"3:sqo7Yz(7;.TurhDD4I:TP/feK0;eSxe6CmN[acoHh\l_ovctqgLQlhosU$Z>^
U"j>qJ&KJSqum\rKb]/l4Fi8uJm/Pt6v\,%\LlR?vJ#BlaS2FH,>y6G:,0_saqvqu
U"ecaFEJ4#4>$j6AIIq>&fBag).KsC*qtYSP5N0>YX27*Rdn=stg0CuQgTODt<]K,
U"C;1JA7V>m?'uZZr4qL;Kb-Kuk^X1Mk_Z2DLL^?uva$YVS+r6thbdzYnqAmpDP-t
U"uYmUdQU>OS45.:a'Xs3L^x5T)kpW5$S6LN$6>)Jm?8U]Gdl#;^Ae:Ja(BQ),(TH
U"Wr_c4Xjf=nCxB,CQPjP3P]L?M_f[BChh='lj^Q,jkkCHq_8>WB-\\]_:0#81o#W
U"0<4F:vu(%H2x<q(9,ZNN^#*'&SwJXB:-Ys*Nj6$93M^*\l9O?0$lKdEhpcTTt02
U"FV&equzZ>a6*_3SqvkkbS*^D4o/A)^wRk#LI[>0NWU)6WJaqdgF5DCJREY/iu/E
U"=KS'P=%Q0)D\aS-A%;rfMlJKR-f<nF%dz_'s#oDknQeKQAasbXfp)XI68ZspIJ5
U"%b)UeqZDUUi<_dPFQASP_7+KG5UT1&:>V+t1-S<>WMaZ2s>*^*%AP<bER$KmS6Z
U"3R;Q1:&cTG^:j.*(Eb54BEr2m^2iP*RGL/(''9PA#_yi2;CeI(A1^9E/p)&*hZA
U"b&/Ua7&Q-Uz['vJq85,7S:dl&9.QQ5N/:6/80i>[W3.+yTAUZc+r5_,_xItJ9il
U"mN30C/.jrLq6yT%79f&QjJuf8Io\Kms29.&o'D&eIZ/pc$Zq<aMe.C4;>rYhkqC
U"\Rk]-mRA4l7.I?NA'HdrO%eBk>M7/r_q,Vlt:53SABT+bJDns8+.l&ra;Y#VyR%
U"Z]-CVMUR__N6Sp[T/R&k'Gr,^Lo'(g=78Xv%BU7B1LR&N1?C*Q01*.Yo<7*MsSm
U"gnLdE=113cjS>>_sjh';ktv]Hpc/=wQ)fxb7PY+w\ck;\fs#Hi%U'g)2nQ77>+L
U"kMd9&Td/90f*\&9$l[)b?+)E3Oz<%-fxiKi[c8T?>O3YW;>%Nx?0RW#2UK>o_vh
U";o2YeAf[>df-b%(,dOH/f77\tkx)\O:91W8s]nBb;iF0qnzDktK+%RNN]tN#%8?
U"[+Dm/Bqknn(9QIdLqb754VlR%9Doo'q8dvcUlAgE4l?p37lT,.\8r<2llqmt##9
U"Om\U$q/,<v,o[gnrN9-ASSOUKe6DGXXggLcFtnWW*[nhgCXP/Vv?0UjIEn5o=.V
U"Tb7tq<=Z[7M*gCX8RYBWsMj+1B=+K,n1EcQmNS*=&spu,:hXh28M5ciA]BkBf-0
U"Yb2YR_opwS<d1n?:9UJ%U4,,v)q;V,OX;ORS4]]fi=,reRk<0cnI%GI1iI?FEtj
U">#&Pthn$:$a2]/+OGSkYBvUyWxQ(B^:E&'a2S0]&MasMD?3<,9S/.)s+^gpq5<h
U"h\q1jHXSt:.qjCTsCPH#ljE&MMCEv>g1#bRM#BvYXkV6t-Tl%]TitN.Y(gOfTHw
U"uO\ZAPj=W?8_JqFgU#Rm$v%Pp+rnnx?7P9HQad$]n0A[kxf,*^B;'HXG\cP8^.z
U"Ejq)T;QW1DL12iV_22Ye2V7z-Q8S0G18p,.hY2dd0/IXnV%[,r]::-^^cK2[Itf
U"uy(+*u+(Vpm9g3$n28G9ZZRUc-%P''L/qC]mwPq2d427IgnA:*sH0g^q*p++S:f
U".7kK\u'+'g?#wvE>795qUmCcP1n6U]d]eagnqrY#]uWX:B+d'\L\#\ZCFv%F'Ov
U"Y(O0okL_VKF>0R67>AJEC,^rAaD)sNyby,U_b?GL\CAs??#KfKe\<9IgcHCfs/D
U"dit)Rh0NL?^p)e;4a$Y)q;W,(AdGhGTeDDkSe\BAI2cIW(AI4Q)5d41R,=NYQ%k
U"KEjCqeWL9jI_+3U6^c_sO+dH2E)X;ta-l86^a+*9oI(Ys-OOT*C%NL+>R1#jInC
U",dnsA=F%OEUY%Q4gl$q(EuBEo89qju;/ng%<r>wLb=Q)-U'C&Zten<^T-ZNmNe$
U",\.t1YW1W%Q1=%,*R?;h;lhEU-ijSlv%p6ps1<;fYAUHVs31E8zP't/4Sw3?W4.
U"^KN2Ad&dyLg0-ozAK''?'7(E_]<2mM(DwLA4lYCJYXUZW-mLl.:NHZ(EH7m#2TW
U"aMa;UWE*k\Y>fP5Q\osF*HP$O\AN2\Gl+Lx[Bs9j/;$-;1s)P5.ZA)8Q_:^bqKK
U"?OoKU1MyU)ssOe6q;(NqOjG-iV1Cm\?)%xQUZWJ,Da3Ee,T:rf%,93#A/&VZI'K
U"WW+NZ/P#wSMY9c+nQM/)1AeG]<1-K+?C^*ysmfUcmUqqBUC%rx8aC)*+c.&N/uI
U"rJ&[Yh(92C8Qwca.02G5]*C+8WnobiDty'[jXCC=Jj]f8FJ2A4WRVRkbU>K6i:?
U"1HN'hdAzz0&_/jork<j)-?p?%jt74U*+6>\.A&:mNN7KF?;DMBD_/7?bR\WG[R7
U"1;C[O_hatL_t.CZ(=DV&E-kQZiUnsRaqD2?[IXKgDG/?p9;4oB'1Y\rb+/n*%jk
U"iFMB4j2x[jpEo+v4.ioz_s:;b_M><[7j;GeAbJEFB'?Q#:>]&'(TC:y:I&Y2Myd
U"%$)fE6#dTQAiF5QJE>;%kJIs(_[FwD;TN7&TMuc.j#%RY1L>b]WO$lRn)cWGs'm
U"ZL-D7Jl/D\4^M\[J#T$F7hL,%B:QMJeL0FKTS8p8y0_-ZRfSWU;cl$H,TXZX_ac
U"q1CqE:2^CJdZ/j#w.;p-J-bX<nbcRYfmOcb6NU=Zq,5*p5Kc^aEFZ(efrpITQin
U"5xL#I3DKsINukuvpfWd[9M2S<;eNPKAFKfp,,V=tfg44d1<$#&nB^H<MS4ojp(p
U"(beYph,oFXOSkb(Ys4lqc6Lzm9#G$N<gI*,Ql/(5qvZ>%#W<v;g0[m[n^D0T-mX
U">X5Va7k^F;<Ln1hm)KLzv/+K^pN67a<(FtiDZVEatl\ATRc-RetwG\hjJ8N<FhU
U"SEJzfd-Ag37Geym+AFnLt7Bzo1V/2gwI5ERr\Cy\pNmx-<\x;p>(mL'7>PHc,8d
U"78IPMY$wOv7n,12\M..n.m'emGD,l$PB-W02?#(^PR5dFwp27/Q2z.'lQG>&>P^
U"GCEn(.wWq/Jtv3_>JLKFAS%%p<f3c;qdwQfe7?T>d\BS;)xu7-j)ZBhnoM5\Gz6
U"6W=$,aGkq8N)<Z/[A'RH\#UR/1j./?[7y]bXDBUvslvwWVjr<b+\FZOorX&dYP'
U"Bpf8gNn34gzac\.[d?/RD[rT%=_leI$G<+,LT#,z2]K(1IiGLl:x0fi+VDN9Atg
U"fU9pq\C0rSkxOw-aA5S13pR3M3[sRqXn:xj3&-:cX0FC-5/QJ'5bRr4EFsG,ZbG
U":[Y[U>5gljn2?zx/LrK5QnenF>]n)<HSHILYpGBlr;tuoL-S*zSp,gmFL=[P/dV
U"6Zsn(#E)S^F4l+IPEf4k-ZZq2F-8fMT+6J_ta3'?mcOSZ3DL<)S+l]sO;\FA#^Z
U"J#HuB=U:QOtI]_\Gk#XY5Ku$&%w_D2hbw2E<_O.b)6ZQ\Z>>110KU;C_G6#jE4%
U"ZsKrY+d.'W7p/,zr/;$YNU\cCzC.CbcQ1V4WT_d393%+EaMW4mpUeRjQ)]W#K8G
U"KxgFWFJ,-do[ESrw%reF1CBuWZ'NzRz,v-d%u(Au$V:YgVdv4Zf5NP,+4s*Hu61
U"RcSFF9KXxC]nfcu6+1YNOXtWvaTkOK8lPx->Q0YJjeQaR>G(o/2M2j\Qd*_u_b1
U"V3piQ#y[F+_Ei$YY4m]^Y>4q?D)Mr'eaKg=<+k#J_v1b'S6<DY]=%YC=)qUHUw]
U"NY>l+c>VV%3a]0zJF1nxC$UPF_V+2aDkpLcV?(4YSuuj(\G4O]pYWPkbhnmhNwg
U"NziT4&'K.OlF/>auz#8Ni4,9eL8R8t*[M/o(Q5vE;-_s=Tp0OENFJmW>,gYt:8#
U";^z5qRkTr<04]yH2.$-gz,+*h$(%vkbht%l21-DsEKds7kG^r7ac]O%kKpH5P2&
U"Yh9DCYniXa&P+Og$)BAFaI/jBV_vdp=Ly?O5^1U\0:6'/P:(A5>,D5=e/my3yKC
U"r&50ZKlpu]f5N%N%[mKVLf<U?5JG%&_#d.m'f<,7f?4-?I=E'A4[mE2lx6b1/Bt
U"#&bB:>:s6[1a,[$89:+h]DlmW1Z:K_=TF0(WplnEiaNzW?T]j)9KYM32%csxC>r
U"sJ#4q=9&JP*JhxFIJ;Gf#jGHZp4qie&=f2Bo88_dX+ht^^Z=P9+On<KZp:T2l]V
U"eRWLM$:s;3d-ej-0[a<3*b'-PZlgYE,rtpTFx^x5P,9K\1P_tAv<-%4+T/+M^bU
U"5h18Rcea^JlAz6w>J&N=R'2*kaE+ErXP6_]g?(N3?s3>#Sl?H[2]dJvTBH]VZ3v
U"TKw9=5mw*<d:I/a.1L+2C&CIHejB>[B)G4ZK?73Y-1A+7pva[;l3Z_x)I8*U_AH
U"aNw6<YROfFN.apTgT8_1Ll7&4Ck(pBpyBf#K.;*6KVBhn;KlS_E\]#C6PBY#,va
U"k5dv#Cq/W^*0K4J[\lSq;1)8q'ZeEydaNW24x8#7[WqDi9MGV:t5#%)Kfp+)ZJ2
U"HCN#$W.xVP$$=(UX#\\#]2/FW71]leDUO?L5xerT&ZP=<0)e<R(0P42;2'2KEQ:
U"Jt^rMFpGNTn'$2D$i5VC53O9+)/2C4Ml[j6:fAyoCl328m<lU'tM0;2*-B8h4fx
U"/vIbuN'w3)89#-ASTZ5r2DnPj>w:;oiNYe9SwBrOX)+S-0+MKxz6KA&EcEHd&;d
U"XX*hgZ$NH^T\vcJG]'%nQA6sR]la*u47sRT'd:3gZHlRLKc*AAg?FLr*ZHtdkf[
U"c8J(;c'roKHt\r.L%U1V*.4RFd5?rKd>[*>g69)POl1=Fx=A]S7cr[xo3TIy=Lf
U"5Y3#W[3;/C>4;C?9^NS=$^+,68Jf2;<si3QS>&j-iCQ?E,.9-J)3k)QKM+us6hY
U"Pnu%4Gs_T'ccW1m<Rt9EZ?:'a/166*Jo*u-(KBl8ZR3brxFk^V*qe//]5<UG;-E
U"]8?aZIvT2_czg+w1Nme[p,I;VyEbX?'(^a,F3&\<ZN8+;ou(bVi/f)B;VTGP8\H
U":dy%]^]FjoXROe=Kx2A(K'3U5;uH3M3/'>+Mc_s49R:#'6B+O1azk/W>=i_7^oK
U".fTuw_sQRaRX1#nC&B],Y%5J?CqN<Jf$AQe-j]>=DFK=z*c<NIL8,s<qR[0rOod
U"oWXA(oN[Zcll&1<X>K0R=:ia[efnVX],iU2(gZ&/GXT\0d3EKbmDS$E7K0e03*_
U".Yo4&'\1P[4^7bJ#;3(M1g3Si**e0XS)[599]_Gp5?JFI>II,ZqIm-z9<:n4I;v
U"YrfS7L2#hPtS=Q9*0>6i[mLHk9sTTWb^J8yVBCrYN.QFVBQj6#l;55ar%gLXGU.
END SUB
SUB V2
U"kc-c9+tnk(7JGaY-MEN1J1.J(+:_Wl&5WWplJ3Vc4&Nq]4zNC>#s8uOZn?pJ(__
U"ZsN=POAET[Q/%[8*22V:vk7KoHfVnv<)&vnkl((^qX<O7ITSyfstfg_m#g76gW0
U"8bUnKJ%otn=<='ehZ^pAt3_aJXtNkprkKh[v-#1Q2,T5#6bV'<3wRPh1)$66+ET
U"Rf]>]kl^aUvqHiPpXr+>4S38^zrAe\u2i3zlE-4Rq84yx_*v,O[<O_MMu0q+^Q/
U"7k?j^C;O>uE?8Luu;+8K:7TfcemCQt%NChAC?>s3osu#i72TpC<,K1ILTgop9W;
U"AP(n(VZG?Woa.XTme69lt%.WlD]]Uw/3O9uqTv:X;o07f-<K+2%p#YQY8I)EPRA
U"gs?W,ty;ik[&$wKJ4pxlO=46\ECpP]<H.JC9WC7pK9'h9\2O>liJU(s34>?B$v*
U"eJcQ]AdQAaTFtlrrOpm/5\Kv?-lTn,\wARbWwy&'Y1]TBN,F0Kel1^3??DQ:3rr
U"a_$tzvGtJ$u-9I0LHs6=629:la[djKm,b^H't7:WKAGUZ-+l*]:Kxy7JDvPZetK
U"qmF.*>h]Ow?%BC\RXu<0ZX8td4T>s^=afGe]U].OweaU_l/cfL.zRgY?9^MP$)\
U"+H&E:3Io_%ICtw>#&vK02xD3qn9XkY%mBs^D.#;rRs;E58jdrG38?m;pjWgwXG'
U"4bRLJi:[ZZDm;:6xuSnWrGTZ4r7S0n8+P3iVeMf]^qK]H78kidm$p3dl,I5tIg#
U"#FX9tc4)&tpps]cuuw3Od)LH_I'hj?YaqiJ64e=Ho5c:=lmkIksO/a1/zKA;(h)
U"'N^v+-AdR\OY-#s&ml<%$([GJ+qKA_LA[\u[.\M2a$FC(>MCR1uKlVk^iRCFM)1
U"yf6Ix2Wx83ckN\/SEfI.dXIg+N78K]a[ZQ9_G>je5vkP#)_:q]V'ZQB0tOt,T;#
U"2r^hbnVZr*Z$Z#>/j<:/]::*Y=O5qrj.1)[n<d*3MNDEyB#qZuCzfVEM%/[lOa:
U"%3s00ogO/.FZY:(>2=Z2b#81HvrXsnkhSF9aWR&2%QlL%RW4$?YJcnZ+h*CDXM\
U"L0Yi7[Lk+6x\HRJFUi\2ApBEu75'ckwTO/i4)O*<eHDV<\'ljeib7v.+1eh:Hv8
U"a&X:FChY76j>\(Q#Y;/gx%qViz3MU$?_GU2V/<J=H/jrQ]>WnR8\gQoO&>g.B4Y
U"=+NVDu^=/(8ZA8lkEE%-3/?pI5AR;3\\#'3C'WT=.XpdkpWU=nohcBI^:vJ7edw
U"DuT(9T9,Mo\/e2q&O?91Dw<p5N1?H#6E>kyUcw-V[t4OL*d64OQT$6wh2jUC^lR
U"o:%MBq(mD8bi>e&[_SAe]/HKZT5eMI7''+l2K2H]8cIEl]l^GyUkis/mx)R9M'l
U"[$*%#g5D00>XBy=:0Nw4t7X=1>HUadPrsL^T5Q\&Hl9a(T%FNIo/rQFzAj#Y/DR
U"1pOyl6H>6xTQ>gQ#mfVSSG%..^H0<;/N4)MhCOrkAuPJ^wDy;'JdY<fi-p546[a
U"W7-jmp8[Q'(7)*eiF.ek-UA*A2Mpl6EfSBe;F9_<Yuf9M5)F$rL/4q)dofCt7kj
U"MoDkmaD+Df(uQaYoS8*d'.Ta$=N]/3SGkYjuhoHX\lB[&#rDRweb?-5L2l21Zg^
U"l1[e10FHJfvCr?_1hJ.yoZ#lRE[H/szP^6<dm3K%Qy<7&xs3s6fWeH6rherUt<d
U"xRUqL)QH..j^;k?#b*Y=1?[Cmy2>5l$;OVflbL)tmk$W#z)/P7N_4\)f7(&*<lT
U"*_VWn).4)%zAQ&S=h;yItb/7zZYsc.agq9^%N:>qci7]u26e[\E_<w8wr;^U?WM
U"AS;8w+^n-/r?IMnJghrN+&2?TfO:n<=,0rVI&me>?I,In'KeDvOC\Dtsep4KAp[
U"Xf0k4E^$(C'</TGiwA9kZHo_:F*?\r[MzI,Q3Fb7ag#xl-t?K2)59XG*;(#:I9P
U"w9l0.(0/'S/GV^tQ$h)]tY7*_62B.2a&rXwOZ=(VZAI6X6\)=.j8bd16&Wj?/v$
U";95]\B;8J&:PV$+ZiM1+_tSmtB$YR'YoQ6:.;hx.'53]O;4Mo\*Q1WISwVZ1Z7J
U"pAoLh-qS;]c,(0bpdI/e/'vIkB'85-+(P[z=\6Uo6>RMU5D'o]1;Sc-VfMS;(tq
U"Y+=)uPdLP[^<E3r1ra\J&&lV01SRd2>.S*h97^3xC:,km$%FIaBO89>s9iS=hDb
U"M4F\:HR'][Hra%B'I\YIG4.J8D_g#hA%8^PgJTN+g#av(fmoE0cRXMk9phDVG*D
U"Q6a&NlaYdBeIix,.&#2u\1gh^=%krYT0))nyx:Cy#sJ/?Qg?8-iN>h8UwbtL<HT
U"t)Lf0D4j[7Ck??PIFY+J.YHLR3s7[f>)K+8xpts70aL7>'^MzB]DREkxSaPbb:P
U"sMlIkxqZSx<fLs,5E?YnyYqhV(_vQ(C7LNVf[Psw.iAhNcDnsasc?-G2CVL8b5c
U"a4V1nX>PdswHs#;qwyW+%b);XOcHlmC3'hgsAi\CX[nam?Ou:T9Gv=g8K,6_I/W
U"SCf83K\GfV^.*<%E2_RVL^E.M%x)RkEp6fk7^GECi=N#W::gFy$%&w%r=E+VMFt
U"LyGP4bj;.=ntL>-iffFKi_f<GidpVr1qr,7gI9NI2plP+8V4B,5DE1?o79'0%k0
U"l:,[SGhbL5Y'3O)Qv^jZlE5m0[NL[rk#'VK/HYRKB^rIcW7O^*j+W?IaQ;?(*Ih
U"42I.GjQAhzdK0)BcJ%2-N4qaIDZ0QTjbgrpHR/3KQ?'vY<=b1=S?UX'\Q%L<Ta3
U"HZ&)$fdAuYkckuqm4Ul/p%DrMAE0kX1mCB?30lsT_%bkoLECE/(fTZWt3\HSnn&
U")<5Azn96(861/8LQA8*:8rdX\oD4B2+3jS?dkYV(p,C)_$1wp=rj2c.I_]xydho
U"J=p_MBfj5vas6<bo2ZJk[-f+u;T$iCDRLMcD$MD)*#p4hp;#9v8B?I$?Z>-*,Ic
U"tkfV&gpj+6na*kBWfV#.,+82ZB2Z4OH$3YP-$Vl,1+4Q&q4aIaDMI1\sw:>JVCY
U"rL2AACIKmP0%^KR9-o<GG5>Z8=SEKGUZFU[ZM^15<]dDQK;*:+DA'Svbamn>+p.
U",Wl4.(B(cvAYnElCD)ACD?C[dbcu0Ggx2X--44f-Tv7$C2v??u_$HAbO7YmY(qp
U"D>13dKPgBcbY\F9FavRg<M+&96PZXP2Px2Z(Iy6l/BB'2VMesSiXw]Z7U;7jD6C
U"mh\psQ^Py/xUNd&J7NZ)p01?%pUIPe&;%s9lXBJ>vG[xA&BZ\$'171GP:9=O6f]
U".Ap3dfjj<D3<:jmQIRU#m9qy>2DgdDtss;8i$60W\m,ZJBc&\AT<qQgnd?\;PC[
U"0)Tr^C[Qq+SrcrhQXJ9ZCuhc4_iSN;7Ze55,q:ZcU:E,bsAHy097,<CybzBUnLw
U"+6O;kcJnL>kfoNtrj/pY6:UW0ngg/nw0DR;J7g/-Q2RR%R1eJ5hT-g3I,8/aTas
U"mK*64Qv0uPnjBr#eb#s;R82ab9d.nXPa3wbeZ0Yr8og&Uld*uA.Aen7$]p^T:Qj
U"J-V1p'3=F\>+)I-2+oU1X>Ab;I6G18/^ghR.2YV\O-aWiF:W$=,lM<Z]),:+5QY
U"l3VILO5#mcclC.dS)t]VPPkYrZRJA%$sG/GycVD-EJo2-(LgmtMk%QbEH])4b9H
U"LGZ2^T%zLs[TkZY4aVTMRKZd-7SS<qcKHQT*GCUVoEr$TIO]J[^DkjcB89OVu1x
U"FuNm$kIm+Jt6N06JVL,&c^:K'IiGRiF3P1(zJ[WQN2^IOJ%<>$nXqIC$cv:hTi/
U",L#_w]VtRJJ:ph/7W4L]_gV=1>[Oj=OThu?08IhcUZudd669ikDk74R[u$$.l]A
U"Y[Zw*KM:*H#,jp&l>>D4D9&>uJ<8>ITS6^&FaT&ETyN-AmSU5EH:*Yxgap[l\.j
U"\&bDs1qwVlq.S()N^N>6/GuY5m7wuaSS%tp-p5V_]%:C#Z5vPk*s;ki0G..p8=I
U"Ym4vHx%9qQKr]bf?pkh=AL.K;[-Anm&FK#(oeTl)3C=DDP0Jkm^<FDbg3Kxg\G)
U"Cuj(9K9RafBdF'rK^=XkN[y6o%%YAXa.yh^i^dr\=HAG5K8TYvTwgJvd>mt]w>$
U">7l4c'=ic\>1-kXFQ,x2Qh]S.;]m*$Uaxub?Sab$ae%k5O9(L?ZU(\z$JM?6Y](
U"[_Fc#tr/KYmJ3Zk^kl(+&s279^/ibnX[*TQKPih[930>&HSeDLV5Y*?\dINC<-q
U"Ic*)2Nlry__cm]cFSg-S+E$p-Y>%;a7Hb+h:]9Lhn/:TQX=iV?QVPYqF..&J,y<
U"E_iMq23So&hZSus0MKAAM]okRFObN=zCJm(;k;a5r9MUWkMoAP-11Qs(n+BFr)<
U"bsABDh2gFH7A].P0ZqK(xWG8<A1kNrD6NEOR\R*E1?[)isCA*sGmTCEOpNGG7li
U"jQ_3$,7'GE6wDqYb6k\Ml0Mt-<BX/MGXW8Ne)*_tDN.)x=<+.,9C44-<ad1r?gV
U"E,oQ-4blb)juXqbD^[]]B9DrFOZKpC(koXTMmg:BnMbp0IFCFww5VDk0I=3l'$=
U"gprM;g6c?j%D73F?9Ls3k6\:.t=Q'\+ay%W&U>2:J.IAn2#5]F+S*'qIb7<ODs-
U"UuQxKZ[Knw;g0N[/SvL+QmKdS/;YMlrTack)UK]KyF$UV(h#b%Qi]ATVNegm2jl
U"4KCnFi86MlJr()_Ri-,Y$[?6agIF_m7&s6hZy_]q:w\CUX#B%[0xEW<cFRie2#U
U"MXH*eBEh_rDF<Ci3OAK1lkcw.Pe%,>P-#=o?t,%Pl45Jl0vE464nO,kBps-T3O^
U"TFh+C.fk)2TZ+J+p4r%'L;4+ggBBZbRTfNm\wj1e;)dy4QEGgGCT1:iT;k5/#dc
U"jjGFLW]z(brwqPE)#ilOPO?F=28UwI^SKjh1CGq/U+:>N))$&$h,k-Rt4I#-trh
U"9A9Dd<o#=n<Hrwl=t.b)<[ECt;X'#Jy3#1YV*]#]l3gx(kb5kJi88EH(IKm1UkW
U"vdJ84RA(+*n0,6:KTNZ??jiAR/DVP5Z9+&;-4KkS[W>\1%3T3[#9+QXSHhp5o4_
U"65b5Vr$5haT+N4t+(M:)NL_.$m_-(CcJ*7.&?Qz&nc,Yu0.L^<b9T4lRAs^[5yB
U"th26EO[h2/w\J5qsytl-?%#w>[1fp=D*>l>0uh0^qNY73nQ4+M.fHZHHBnFf,E7
U"&BS0)nj;J/$ZXxRB/\B:?4nM\Nc>l>9sZ)tsXrnO,qlf^rWp'<i8kNK5o]eaOtB
U"HD=AOx](Z-Je*<3iMS5/b9'70;'[6V>$(+p'e]h7w7a9FTAv*Lh*$cx4(<JZ(;_
U"Men_GJ*_lGtnfP:.&\L4OXItnUqpOns$.rpVdM1aM[3Oh+%z7Dbjz4CZ*[T\bNS
U"?0r(_cNRpBi7H=.t(*O5]q9X\l,H\H[U$?l2r6EQ>aIH$F$+z3X-^'idG0&lgd6
U"ieWB0aP\*ars7Lnx9n(gwHJhGnMGamt$[tbnsGuALh=I8CYf2?btR'/5YPn>H>Y
U"Rra=Ld,3FmK(KL#a,cRpW5Q'B2';z'Rht^4\8ckNm3azVMf_2:F,fl8JX8J.\Km
U"fuT=6fGb9aW;f)P=0)0M4D?_gf;nvJ%smtTWR.mCP;H5kKtl*V;XpUERVcd43VZ
U"N=Roq.gI&T$)5XAgIUO$]?rOsQ0NKt#m/&A6RV(k=+x-k4]gE&RxBmz4eh$h[vr
U"]mr_\n-i(0>Eb5Pf;5?]C^b#ECBs9T(0NNAL0LhG3F9u&ZDdHzeO7/St3F'<*rL
U"=7[y(5X)V'4wF(<CHU&s$N1U#n<gS=^M'WjuDIJ(jj=5^1XQUF4DeXI^6#k\ShF
U"=ecYE#5aA*$/7+CNf_4\_UZ;+YAg3h;$u-RYDFvkP*mO?:l1RO2/r>18c^u+hgT
U"kSrU<r\k/4H;q3?6E*jEilQpnjmZ?Dtn]nhQ.ytkN)yr33p\mbf,fKQwPPJ=9B5
U"sw7AOaA\5K'Cd.'kK4/G%2CT+cxT60Sf?56_<(5CW]&#mDk;gbq,>-g<8Lj)32'
U"Hmil)P9D>)EejC*YHw-#(rn)F1SvJp=F-n7:4%7reRN:?O.D?O,4O-X<_rN]ICw
U"R]TTj;\\p0r/+ukiTq_W1g*f=P<](SBd&(W2^/]=6<+Qf0j<djVtPzuKUTcHgfP
U"&MOXUoge*N2TZ\*UU%JB)2-js)LG0$;<x-2/5GF=c-ACX[hmHqB]#0sLQ.=[aS-
U"pE9n2\%A=gDB1d'$cUC*s$cOKN9-2pqd\Pw-H?.vt/6zX1f28Jw,z<4OllVvNQS
U"M0a6xFy4aQ\/1eLec3)z+c0,eu>dn:/]G_(G#ESrtr$.HuMiMjK\0M^9[*h(895
U"i>pzSi<rID,*]Cpf>8_INTS&Hk)7ap)[z=$9YHO%er%mlFz2$J^T_e;#^#0fl$5
U"Ds=MNkVnzd;4cQYVO<g/-#6<e6#kUh].lH-Ik>0W/J&PnqV>wVPse\\8+MgPETt
U"tqeJT%bJgm-?k'*?svU'VMEcj.dSaKx36cq6bnI_H-nX<mZsRlo+4CS#9vA6VNk
U"4+Ghk\db6w5Bx#LQhNlhYS^nYB#L&=ND.=/_Gx?y_94/4ehG&8uQgw&&$VDz^UW
U"#h$$TMFa2$eM&S.h=N<iZq4cH[Vn;W-'w+HxZ2_pXtNUg/.gNnW'#,O+?l&UMF.
U"09,&s)ffFpgUG?t/bXOcoY3VOYu2\w5eEx=#X#]9<Y&GJNu;2t9?-2=NFn<__KP
U"V;<v34JYfMx=dl6?0>;V/6m;/frq,^0g0o[1uX]e/woJ*lPrhG=2P#Vuz9e-S^Y
U"f$NNiNd$:Ni^T$?X#;->Nw#WqOd7aaW9\d>2$<nD&%UnB(?',Y96T(YBot5g<[a
U"V4gtLU]5e+>W4cJ_e3xm(('7Jm^d)(P%OT$FaVhUG:>wM[u)0Nb2P3p3Gy-jNmY
U"t77h5PdHnzZd>On,IH).s?-;I%pVAHb#44YE>PTi?r^u+jdM\%ifPat+/vq9/$.
U">z&a_hH'Mvri=FTPdoEd:gq=*.jB%o,ZKexQxN\gA%:W.7E]tX--k76TA[FR)A4
U"O<VRG=_0l;[KQvwNyR)GlW<6b1'AXW9+j)c%qUYAoxCizU5Q5YoLAz(Q$]NjsQW
U"5G'&>d=6)IQ[0D]9tPG/nkQ0HDI([kFLYY.oKS:tK^NnFm-00/YC)2\9v,^UzQu
U"L,brnTkNV&wg/itXsu0Zmok=J:?thimNmZ2ctScs3>kP5MCmf$$-dhmVGlFM#UO
U"686Z0$nA221IoC/5tFWXu)GgbX>&JDzGp1]oHsXh,>Y/b.PZ'2:KQ*)%>s5KpP<
U"IGS-k61vzU+g(j>+guCF0-vH:rF#;GHG(=p_%Y7KT/%]4>W#P=6r2\bp0;;vacV
U"Uu)[QdA+V8,lm1c^8Wx??'EbZ_2(o1W\cFtUQrP^Bm+;.xHqYhCW).+$uDMFSul
U"C>fHfjRd3JPua-0EbmJp<w#j6k:J[f24jNun$(a(3HwzKqV-]KKrI5K0z9H<.d-
U"Tl[\w]<k6Vw9p:V?)zG9O5l5H<p(<,l%]>Cb53leuKlh\1cXEm(m>\nM=[mlnk$
U"NqTtmM3wH3/Q6]fo^pW(8FAUPv;m<vqOQW#w;m6v<iR7q*TRbb^D?Zeh#gE>v(M
U"EKDR+U?V97Lf;;MbC/v;7]vtX?ja\wh/1N_MglQ<SUHEQ<<d,__?/1=$0KA6&\[
U"t7%2k*iKN&2<a<vHc][#Ums(PIHHdSt>K,$^mo<%pE*.19OP,NN&4>Hz+-R'Q+W
U"Sm7L9Q-Wya^&1.e[=L\aSg49O0Cf[rHhhh&q1q_DBrq-gb&WB;bN=(0dYK6VV7,
U"1Xr.4]-;6xhCN52GS4&'pt>PJ/Tj-otl:j]+i6Qi61x6^l)lE9zV_&+:c-#B:7g
U"\^ao[$FRm]'+)iIu5RXRoKOl*ZLj:]_6Ge_3e7?:id'.+RWb^A43x^x,kE;BmJ0
U"'p6bVuX8%Lbl-.^q&:b)s3dpcu9?MqQn>b?lxD)E,((ZjkDm9N2$>d$g+yqCWd>
U"8JMsZvI(T^#HfvM:Ld$rS\(MW2b+3Lo8\Rby6T<l6NZGZlq#SXu9iu9/sU>Kwqm
U"C4SN#^1MQ<h<C]tubTaCi+:v>ceVAFLk5NdX(LAMi,bF45sjY_K_IP/&OHo6oEL
U"-)z]9.HhRlWoWl)r3RrS<aZvV/gw'1;rlqqp9R2rrQ-^ZPr,Z>nmI?:ibmXJ\/[
U":5QjoH[rZ>4vb9\(D.Rf)nJ.F]4brsFN>Pik-2bJpVbHviq%cOC:)HH';#X9>R<
U"Wb81yMYZ'YAWiN(9_/137IA5<LNg:7NC(EnTYpPeB,bw.nQTlVJJ>]4%,X$ZJ-f
U"MEde<[Xmj>^7CnbNJ[m;NVF0O^^+T<14n,asfBaq=s\T1F#f.YtIpY^9?u_XVMI
U"mh_PIH[]u_0[\*A4SAM7qEBhtQ<8t+Mdjl(.AFMDwr_iWT<P9(HXL4dQJ1*Ha?H
U"8*7lSJaC]bST5mFzF;S1uLqC:ge^sRm4[+BB.IXgW,Agk'Gk*6NtjU)TUYgVpTF
U"#)j=*iBQT12RLa)V>I_L%Q<Qlv>qk?Eu5%;aQQ.FAQ^;CybAKe(*\cAH%nWwY,Y
U"MMFPO,hvs2=_(MT]86gWC%P21J#7V'[1.X[4Q;0xqJPL=6X\GA[S&YIiMMN'm#)
U"(r:\ZlY]sZ8rN.Wih$Z;7#,ck3xa4>v8-GLp^s]=b,AyR%cb^1rOp9,8GumEUR4
U"t_B=H]4qk*>7;9jhG&+W?WdkPQurba6^>4NoRDLhq=v8Q1/A)QXF[w$H(^fg,5%
U"\e7khRhL350n^(/(--J/$T3Xrg*KV$yGt?ja-GLEWN6=]?H-8()/HE+lkS:f\g8
U"n[-aD%#PD3'/E#:CT&Jxh4ETP4F88ayU?^.stqO.bk\OwmbBM(;DS:UZo;9lI(e
U"qJ0w8:Uk*Q;gU-%1gM't)3c.5M&zA^:2Wl*smU]_tUZTETm0TuYT/)m+5VaeOgP
U"L;Oe%Z=QZ='ap?+09+8Vm%Y982&q'?rh0A_DVey9BsnPPZ=CY/W;npu,lDe93>e
U"^t]]kSqZ'QwikC>m7uS6>]M-,AjU>0*?Xt>w3xI:1wf&H$1Ka$&<HTg;C92R:D>
U"2Mw%pF>CI]mVZ[hpD0nFj*0K7-Scd)o.n+XfP8F%tgWKz741X)rVU>N$$ZU\=#T
U"][JY4;5p-,W,>J92G\*$6.3c*_;F*RDUw<#fP6g?nXc0cgr3;ylDu/X1%Xd>'rh
U"NZvk<Czli;H9dn?Td#W.7ldh,Jngpm$8]KZe(Ut.W[zD2t#,fXslv4]XC,v+Ua/
U"#b>*EJ^^-5gjt+<heX2c]:*2;u8mm.E..tpi1tzGw2lW2mGcw2,3Z4u7-gy%y8]
U"C>+U2GACKuTIK#UW8_QjQ#6Ic+_$-H&8xHrT;&,qNI*O3K)bIu>'s-^&h%4mZ2G
U"=4-,S_H0[g*Glj9'k*0o303.]V5(c7>S];l_WGn;u-_9:Z4?XBx*=&K\e)#r4b?
U"m6f0C#+.I.2RaOL-PO2d6/+bjPG,bqM-+b^U'<sZu*1QEUSwDoPFM^?5>EgYVbT
U"f_?1B'oK=?6j9G8O_-/NAnkeX7Za+KRlyaxNx+z#d__sfO[d1ge24NvkWPNj]$2
U"[=pL6qd[%(G%R-gLhRIV0:_r&d))ix&W6gH;q(k/G#$P5m.TY[)f'vUveJtCeMe
U"oG#8R.k>P8TA)n4'[b(ngIBefXb7pSYe2xP#)FEq?Ck$=A[ufXFsr?>P5posc,\
U"u,_j]p5OV\DNsB/\kxGOH+_$X1W#DRquF7XRYH*\y/Y2I/_KFX^*G98PDxaFohz
U"S&?i>s.\;;3QB3rRW.E&RnatHnR(.W0/ZP&<ZrnU9]5._+Y#Q\'>EF=Wi#ji[Kv
U"?lKx,%up()%9%%%I-%jlJ=SS,'F/PRm%%Z=%(%/%%%%vhM70ACLS7C<We,TEKT]
U"eLiH&/K&b]ZP8aJrwM]K(<]DsJ6h;f>b=I,s*(G00:2Y/$yn;z&uXp6G&;DNCAY
U"OMFa(mWGjnPi+[_'c-YreL)*:.QIf6#h)ld,BQF_rRSjsVcq7mxF8p?ap<;i,L1
U"t>d47h8_65]5KbbLhNbn/D^[3E+b[Dwn^zoobEWzcCT^3Krc*]aNQ#W<fKLCUai
U"PRq;kN)>r5BYrYLwXNdzON8\VgPpKQENEnp-jC\r4[oeJS8OLu2F>MJ:6J86<Nu
U"Q&Kw>ux560Z.46Vb9tdm*2t^\cu&p&bMlX.mDqq$Tf$Q5UCxMjs$ueBH8tdk<cT
U"#SthT>Oh*Z]6sUbpJnzd4QhLoE,skfvYfPojrFcd[zr.)&gQqt0jTxEFI)r)#Am
U"-#lkM]EXVaSBH3h0,;8ZUxJxMV4%+usIj#Xp/ALEiIy522*qq-jgH6Q>.h4gg?Z
U"MsFPg8O$qPoV*1qccRnd>;hJNBh9rI61_yoNh-oI.FFW?J6*xRH.$QO<oPA5S-x
U":+u=4i^j?waFa))xAB);UGFXIB?,qAGUla$EBBt_B3M>u8p-kI)gb5Ri;+OOO55
U"+D.D1n5VpiK*hLQ(Q;dA2m,%c]VG3<QZDfWsLOZD)2fgono4=sLsK9/.M*qe_UT
U"bhY?Isr%(LaWiEjrPkETBo[4[BIs$U/ATl4UXVR<_i9=b%FhR'e$&/(7\kK^/L(
U"1-bwcLhAO5:.&m()LM3aYZe.Ko/YF$Zn>7f.6m?ePg2xp[5.jp%9-<=8#R<.fDl
U"W,rP*I^V^6.QtaQQ\k80vVrYwf9s1vDP9M9*K9)cAmIGVm3FS<fNQQ=N+MKZa&l
U"4H:,#1N3((#VRJmZsS2\:^Z&?xE;\o+n9Ud#QWk>lWp-$&[%+J[s\#$]3RaL5,V
U"-^)csl^qxI.KMLc(Q#:q,U/N7:3y&t0\:WoV\FqrR%GM1;,VRuoK5%GNE[m,2%L
U"qQBcF1gAU*g.8A6:CCUS''Y$\+J3[H_vp5k>Q:\Mi)<4>J^l.B*m9^P3Z')4vfM
U"vrdB2%8(E9[-TK^_0taaZg_tNaBVI]X%5#517VE::>)h-FCZTZw:>,K(_mdIbP;
U"D#MJcBa)6c1JehbI6?JPj_bUp4/]jG\7FK;536\OCG1l-Hl<'*Q0wS]hi(/WSFB
U"[w7aX/Q=<g$XFi<^+29EF'tGXp;,+5IWX=]fe$,cgz(mff<9jQ3G,Eho_6_'\M6
U"=#O]^r=opMR-?FrZTiIL'H;/,HR_(T[S-Jn)GsAbKY%hppksK3%0+:u3tmNy/73
U">DGH;A0FtMs<Q<chRus2^ebUI#ERIGVQi/&(tg\#IilkexcQwWm7WU5H)F]B,i7
U"co&>p*OKmhqZ82j)[R5r$,>bk^k/+a$kEtl%$YQPi<)J.HZBK<kI7lVX=GNPN5;
U"l&N_bh<(NhVkNX7wjpmud2N\o1BWf#R^k[:0uj55vm<XVQZ?J86SkbNgOPeF_$P
U"0bDIi3rOj']r:J+<U)83wwD8B&+5a?(4b3Ql3I.2q)\P6#F6ZaWf-q/oZq:;,8,
U">ML(MUmxjn=M%t<%<$Bvr,oZ(irN5k7WjDq2%5aWjkbZYE]\E6lB,[.B:CgE.%L
U"z%e5'sHAKEjV1(UyR/Zgf6[l*I:i#%^LFRjfF0s(pL0_1Hl2>7dy3Xq2c8UH[#u
U"(x/PrQyfx*-A9d2W:UNp=R<Ju$Gt2'k=idPxw9.G0';V<Z:jo2Ckxq\'j?U?j:J
U"'al<R;ZFRnvJ^\6vk+C/mXZ9xo=#[i;2IzO0Ml,mUMyaMD)(eBuHR+-EA^RP5EU
U"\O7>_W0B<oG:qt;>^f(gtp:E)_RGs5SXliqz(OD/]#GbMjUGpf?ZHu(Pp>7*).r
U"A-uj+\il\eerrL1E5QHN+nwfacxx/6=JcoasD.:&,Pb*f<5v'\^Y[DZM9^SMBQ5
U"f]9rxaTI5bD$jng#HQkJF;EnW<XDC)fB=F$I,*AZ.sfgL>revjWus([FZkJ[dq:
U"%>2n+a)PKp4^,3;i%0%P9Od4U/,Y>G3QuO*XM-uT$HQsmPB*+Aa]s8)F?2*8<]>
U"cg+,v_+i\,13jFz\Ze*>I0/TW5:l)E/h]gR+hG7Z/o7cNu;9;\$j1Ez)\vKY]XT
U"m_e+5jP/^S<aad1;Ju>8J/IjgkkZL%_(],7oDIBG62U(FYrwD_>YvgSM[,H<<dw
U")TJCIqCg;5st;b:_T24'pM;XcMB8P09S1>LG[OX+XgeuVd)=za2L.[._K-&'u6r
U"hdRZ_-SS;1e<FDvx7'm)4g85I^j5+=^ln:qE\A4>nq9]7RY]AB=].enp=[#bw1.
U"c>+I.^(?I++)j8J:OZuu(A#6ueMEw7+9Zg4H93B'kv]MYSHG&cSYm7+zS)M.Fr;
U"bl[7Fmaa07^6nQo_DkF?fF921-L9xHX:XpgfPi=V?_Q,VOWi8D/l]pmN=]Om1/5
U"ETEsd1%$p1u?qV+E(:)J>(M\Ry#5=l)Jf^SJA/EGql7TZor_D*lA,Xh>-JKV[#H
U"T(3ScS%b<#)LyC6_sgGk4+LP;Sop9:\YKQP^'w<NHq>#f(HZa5qoi$BDAt'947P
U"mlVri8oG2IfCM]0[lf9Yg8t+oGKX18lB&D<9H+]4'>;40#HcF:T<TtK:\P[6<m,
U"5u3*G3meMbQ4x4P*IdU.JZx2:cgX3nSh\0h'EyTh]^U8FjU?Y]4,W\0_uSA,[X4
U"o:5]#Q?CH+r?oAT7akoG=dre8<_/kt%N.AS(ITlg\2AS(j3iFhuf0yXMnm>^qM,
U"8h?g</eT>\u;rCp\k0Y[Lq1]um]2d],]iOh:ag2H_4(%v9cDKYgVp#0_oZpN[//
END SUB
SUB V3
U"8MC'yJg4&2M6z)jkTPCW:P[P'4XlBq^e-dJbHYHhgE-hH-DuiW:DarNa&XA]fxX
U"d0VTd+GK#&f';qfgo<?*IsbImJs<;Jr/s3,'Yaad/SD(&5L0#QT/i5xm8_GVTch
U"wM+P6YEna#P$]zK4;i\lK=W,'/Mjf/3tvuD0<l)[X%OpSgm&<)c+sGu./eY57&d
U"fINw:vUxw))B4yOcPs#7W7YiDh2sD&+;tAVP&'OFo*K>Yi:?q^FHKcPR;a%XImv
U";2X)7WYifDhsNJ&+tA>x(6qdg9sX4iZBa.'mRXOZD*E>?[-i1P=+/-RLNY<*lEy
U">lJ>rdSPi6U)0%l>C:$TRk#>SCt.1:5):B<p3ugifJ/;wSU^7RK$Tiw->%__1i.
U"GclnA*wo3&(84+(V2arm-:V8mHEa%afaExR?8<Neh8OCZ27A.^lR\VSiZdu:N_g
U"'<uplm#8q&Sxe=p,A)L%n$mIZHYT&'R4m-I)/nM0vWl[6sb^*6^xh==JIx*q;3G
U"DQDL)>l6_0?l&>k8X',s]WS9=g6O;^Z14Bz)(y=ThetW^/AS$>d4GO=.c+OSP.9
U"q)hbvC<K4vq+WUDLkWY(k2U.JFa7;UqGWa)HeV_\.qbaIKn-7=cDLdvVul)1UXb
U"0b>jn$3vJgM8TDP\#X0+Iv;DC1/ERs,y5J%$axCnhK*xn&sD.rKb8vpg86-[%ig
U"x'U<r6md1o$6hzzJP65WtD_v,aC_q]gS-X>.njbchS&A0nICYttkeUsk2fwS#[X
U"9<27/NLRwu-8L6t:'8L,^iTA&4vlFlfheHkp;zB>aqa9DYTmv'I7Ny#1\8V5_oK
U"WOMbMem%Dfw#/aW83pf<3S8nJLJ;nWC./R$gc^iZSQvBosEt('Kc-tPiWAsV.0/
U"^sJ=jp*JaFKN-di/d<<P7pLVRag6a.iN%lt,fb#U*>hYqi2[kNSxem5bNf^-C/(
U"mLvImCHpNLf[YC[0Epkmk7-ZJA-T[TYm33F6Fd,05>Uggnt>hgkG;mIk:UDocJ$
U"3n]7fP*_<q4-,AGORDZH),V(;.J1cY,&)VJS?N:-^>\Rr/8H$-D2rIu-cO>XX#,
U"62g*k1Vm$cl&2r*WNb,<sYX6-fhe,*[j]/KM]/O^:y,tX$+#x_FE)pPc$3fSg9t
U"3eO\K9+IH[rN5F(F[uE0G'(S<pf)v31j\]kF4EP2hu?soG<i:;#SBJ*-<Tz7#k,
U"I\hNFg$If>1N5^Pr$a&mC?Dm)LHS:=loGp]>oPLv>[LLDDQ$_CPpV6Ji$0A9x7(
U"G])dkH0IVK?K/jWm&P,D=A=taNG[9Q2SakRZS&HThEJv3^PnprfG;t3XN%Cf].V
U"]b5,j1FrK*?=pgccOeoO.DQ>YC(mS6O[Q+ecLh26:aus0_4lw6FN06>7rfTATJD
U"iLn?Hmh&Gij=/r8nMQWa2VfD\4cTxU8\8_(-83?Exhot3;YZCMe2A-0(+Z+Ba'd
U"8PC_.j<KsY9H<BRWLr04%M>ws4eENO'YJQnx4jIe+\8Sm[E7&wK--Y;n>?\7U5v
U"e,jg0=k(B^\w<^2_;TaYZN%oWSn^8,JaR2)>42b=[r%dp%aOfUmGGD(H)FRl0ga
U")FTo4oJ*NwAEFV$:)v5g^$FbnS[:Fq^ob=Ef>c4/Xe^rQbr*jD<lY5;iX<^',+_
U"5UF5=h>acSB[gwngaUb.cIZV;oF-ev9xNUo9GGBRzyTZeLGC:U?5Lkr)JUZ/MWq
U"(w3.Nn9=YD<<zFO?(aEB83ER#?8bGsG6?XtNJ??j\7SSL[jNJ6XYN<4Bf1,Q+pc
U"'k5m//_,j4?YE&s=nFB:Q<(CRD,dJ^:*<qs8:vjs9G*tTmQ8Fo1)9^cU<oe<acC
U"tm^PxrQviI[FsKFBG6$%X:eZtQaC&p\\b*<TQpK=3.CmArG4ZrU5zQg&4mIOf\s
U"Xq#iFH,r^iZ7sGKZwcYV'p+)[S6un11;&ZvaVKh_R[(]J1CxWm]>fYd)gwV#4?L
U"4VDeoxA2^JedVbsbZ&fZA;t)[H['<g9Mo#a;r$o:2#\RQuqhGHFoZDRFKFAOsID
U"bpEx_C$WpAHcohUO++WqrR:O#JYi1^O22N:E-j<3#r4vCmP4S%\eNv]A'1n%iF>
U"/^OZg+2W2=E[qbs%/]M3FDaPMKE_0NtL.(/p&mKIh(f4rm1;##ZIF0\;Ej:ht'M
U"E09KMxR3:Mw%+]BGS'L?3p]=R_mTeg>#8&K2*F70EM8DS3Mw7Q-BGn]3?aDm'uT
U"%ratr+zAgJn*bPL%KffrgmUQC_i_Q[I=r?n*X?uoj6+_BpXjXR_^'M-2Ua_*+3c
U"ng#W9ye_S36#QU[FJWs5<7%^/Au7o/+%uZsv()fF/.%fW1wU5Q5CUE(9I*w/6aX
U"95Zg7*1S;CmzfpV;PCAD_TaM,oS=AZVWVK-5ujF#Rm+Q3C)_Q6[[9f4;SG3&\zo
U"0'+%f#GRn<R&36l,%xxx,?+I>P9e7f/rqC:Fu>_nNuj^Rru_nVjsndPDi4j.HL:
U"aU3*)sE2\HNh+GO.r'^)^PsdiQtM%F09?tvaq_c_qPx7_;f>2sTpuJmf44]AgN(
U"5gLBS,WVxoaB+e[ZscPzCt&<6)fn97DT3esIE/H8Og+OZJz.(73]<VbRO\Bg7*5
U"SIFmdfpOq;J;gn<h0MUI_T=cWZ,)tsE0O1MbQ/3MwQa*BGO*W/6aNggrcL;3PP2
U"I)_1:*d.EY(=sMARI9n&Heo.#f;Mw7L)BuCu(-a4j59x.U6hA_d(MU^dxlT&%?4
U"OB'ne8QnIdTN,5,<(_mj\Wr[*b;Bful?fYbCJp([;KUJVDfqImU>PlOFj+6v?NQ
U"%k#U#GG=l[okG3w;&s0*D60IsH,V?2QfTf+\66V%jUk[83Q)1$6L$tQHfc-Go_3
U"OVC;f$PZsW]B2h#pW;+H=Zcl^k9MzhHOK+39<vS$mxsb\S>bHvcpv>eV<[aJ=6i
U"0VW2va+6w/FHu?5Vc.$r.grs3sQUNPlxN<zX6gOQwVQco)-ACMfcJsNX6_BK8Q9
U"2QOH.aKcxQHqA/P;a,bD\/x5gxUw$*H5dLG:sw6^2lm5g(&S(LMu]n)wFGuthhs
U"PrIP]>=r3MiU=_AzXwIDVsM;OHhAci(%x<dG:A-OF#QOiMSVE#1Fc5KGgcd:$Rn
U"/;s/kJ$Z(HzZFR79%ld.nf7Mg(pj^t67,2z:7^4Ie4KZe%UA$56vdZ<OI?c]>q3
U"]=IA9Y1/J'+d4v13/1u4'Z%'&R,P:_>TT=gA.5+69j:ZLaW6xWNs)Y1N)dQt-AD
U"um.5u9hUFL<EI2RTSP(ESnhd)YodhPID0eZC9/H6bS[T.B>4^,r;O*(lpdM+(Jn
U"k)08(l4GHT3t&l&^M+n+Nq-bCZ$DL*>D77#SV8M,%cIs:GIG?;iW5]LnfaSmKg:
U"t=E>YP)ietCsfE/skwFFf%<x7&jEpo\3ueV4\pH8t=OVoMC+#oJ%0./o9fRWDGn
U"XOI9Xh;[85gHor&T177_6)M9^VkGgL,=Cf\VY:,&;J:.uMD.1WG.xEA-9RUXtfT
U"d)*t/^<Iz>tqe%Wt,UkpAcW<H)#bSZ]^V<>0YPi;o<$:g2*3GDbw$XwfDRcrq\g
U"uPFP<DNW>wfJQu0B9=8jD.ol$uxTHBcL^H0^$%qFXw11]d[#H79cES[1I2miUii
U";95;cIc2B0=HaOWq$5wgnfhkiq$1iI:HEM9YluTb.rtg=YqxL'enFxIv1qc%[:7
U"9,cTye7,xLu=mQ>qWQ(&puY2_6'rnNd\$<Xb:7bIt+18Sfl.^m>//RUA6P>LsG]
U"\7b3URx-D&KGffU8fQMUMW3$^cNf%TIMMH.8uHNjvSFNESndp_[LAgZ8:a4Sk1J
U"\,w73>ZdYpq+N2rhGya0IM+61C<oMEU?vi]ND&I180Yu3KovV(JuLeMikV%T':3
U"=c^=^\0ai%4fb1Xh1QF7b$rFn2DZLSr^P1IiQWxw9n/k1W)4,SOM\9eIEn4Ku%*
U"MO))[*dv.H>%;cT%\C_KZN,i(7)7*D>o9R3(7)S,JV[1,6eCfPfcD<F4SK%&Z/L
U"GiuXmb/'V2N[]2bLe$DLJuEMNm7=7wVg89Am7=\ev1b^$<=tbKy(C^v1*73b+8C
U"N.27kVaw*S/muJo2UI7+h;\A5gr](+rjQfd2Lt;j-/F7hy3a^JC=051W-J\Rv13
U"$[ed:;O4tCT0=U)+uTItGKF+C:UtfkaVAxS&=muut94jsopClp2Rn9_#4.hh#.p
U"PD:CveA1S\<x1Nz$<FXb7brI9aBV[kqYobm:o:?ear)Kx+\%<'Ci9E,;R5WW0HO
U"4ScE#>79c<S4aBI[;46Ytg[-o:r?lIGK,-^7i0vBMnC3Q>E1WXr?hhCpQWd<T35
U"=7INfH[IMM.J^uHh_vSlE2Snd_hX.+KT8Z)1;*D^j=r3EIKm7IqRGL7qP8ZJ\.d
U"e>g+Chso0hU-1*3c[;d79cSn'M5<i1S6E_Sm:t:/9c^g/(9Ke4Kp(EIB9Hn_:0K
U"qQ:/q/9z=M1Co&FVZ>hx)_jM+7to4.[./ofaKmY>u[u%M.s)ZNTWXvC\W9\b:wb
U"ItaMpzf$>/P_N3X\Lsz4BP_%'Vd>cOGt19Ru9Kui-=^gQ%f.K9D8%7sV8;M%cKR
U"SU.d0l7HVAbSV4Tj7>/\:vT:rP5kG5TgwDeDp#f[ajVa+wQxmC5obT_qmg;pT5;
U"H0CbTu-6cBI8nwGGUTMKt:Lp,uTh.L1oI:,w(A'iK]nA0p3:./tS'0joN#UvuB>
U"M+<gN'[u)=RmuJorUq7Kh;eY5;HYUrUt\610?i1NR$<F\bwb$M/eAmv(Nsg>[1I
U"=:#CDc[Rv7.i8Dj?0k=7/ZT.6o/r=89RQi#VIx>yShxS2#muu9k^Jwg)w8UI$E2
U"K]Q%M/+\PAC4O)0c**3h<blb+bIV2w/Cf,=3BFQVA'.11l/\\OuA.x9RP/tbT):
U"*to9PIW1#2M%9PD=XpXWpUcl1\4wn)fh-piJ]5f-LbB/r7ilF/hjGZ%C_F;;J[r
U"g?%nl#E>/We9)4[$<FQhS_Re*8LeT11\Re*Ad8B#i;,6JY*'l8N(+ZN]n$A8PCq
U"Q(<7j9.G%7[X82M%9j+K0)dcgrqHGDA7d[St.$[_K-M;J0]ih-[BmVW')0$l4Aq
U"C$u;=8*Ius/F?;5jS3lpW_v910c.$:18gQ2]J8GrTJ<,Kpo>X2#E$^J=57)h.N0
U"a<=tbKy%w0w1ik1=8Km2ZjR5MipmH1#WAg8.%nK)$cI*Cz5:s8hF:fPoC(oI4.)
U"&h.$(^I4b'pFpwK3At0Oamq^Lagb(KmFmXGLe5JK-(7G0\j>)/i(4o'T2./(o<\
U"yH7ZG07JXZL=l<j&Ttk$e\NwNP\$<xbg7dUd-ILB^n$<,mbRpP]men=.Il#UmJ/
U"\KYO*jv)jsQb)UIIC2cNeNf%fIMMT.,bG'0AeZgrWS:3ESoAdr-N1#tb4am<vbk
U"%yw4wO1k1msg[HECs(5t(DwR+/<oj4#./o<dcQdFqVS,EhSokFi#6]2+w_HTYqK
U"^x5s_r=0]ng4g&AcnCe>E1\Vc6DDZG;<*f;mVR-ySU#muu9d#w&LnOm1DpqwBJJ
U"O)jWaN^ckJ1N,aFoccY(f-Yl:<2dn?nM#?rJu-$h_ooMqmrd6_vejE1;D\>,bro
U"=I5..h%.tPZsE06oVJu8>gjYgxY>huj?S?J]9wd(gj$,JI34=e%?4,TCelnb9D5
U"])i/S;E_&BH7ffU_#GSEMUzob$40MAa;V>gQ+7RIp+l)h40R0oHLIabXl8jC*+/
U"]MAz7m:J-Q#um<)lH0Qt;e>Qz6a>OJ1e)w7%;A%o[RQqW+yCF?YtiB*RuyB%F[;
U"HeWGe+q4o/q+^<j/bXhbB%a1M<>AOKe.[yx<cKi:&0)?wlN)KAz=D&\,ZLV,zp0
U"+uTjdQ:U+ZA1vaM+&),^yy(<RqyEZpoXq1X'*gf[mt$R.v1G'/3lDdexgM>BNBA
U"iIw/n+tD#sV_/R6%Lsy?Pj7D8Dg^]948U3iWPe0i3SA(Y]pZ)QI4l:[,E=a(GPs
U"00?c0Y)SsCVEZYQg^/R-a]RaS'(+)tr0DPyr_k&$/5K3NKW_JK>B_c?W??ep]tI
U"CvwoiH?V?u1/a'kIG9X8E0U:R[A#ulZbO)7e6,3G1c9vUSYfB7PT:PoKM/riQrQ
U"k^pg\J+*g\w=/y5XJ.Ig0yeBCYY9*>n;'L#i8WK]&JuD<hj/OX*s&K=I[SYfD7Q
U"*:PoiM1r7q>uIY^5$wQ&w9?]cUs02/]v9hR:L*gCoy[YU&^Fw[jLV9;N##'R[^x
U"9uVKDHO&rt/]2JUS+EVv18=kd3d3)tOFB_Sr&?MoNAC9O^mx\ZSC[lzV.Ok16/d
U"yD9p(-?i'$S5]^3%ugk?h)g1Lt*$3WU*_S]fHphN<_o#M+brB.,,QCoJ=x#b]yt
U"[9_/.9#>5f#[WpMGw;Ie7wn^l=VY*>TJsns1\K:ij8Fi-'/w1q+kd13:)dGU1w6
U"?M.mNCyoc1$'s_8;DInQuag/\19r\i$9nl0IW9.W.f.S#TSlAaCS3b]1uLX)F?m
U"EM.g1]8k2%1:CA&aw/CPT;RH[gthFJp/$'[gGY#g%fn^64mbA<>/#kEM'C]R*xq
U"/Rr<L)WA:(B1\B+Y^K*aA>HnYD%B(GwAyIPHIxY)Q\?EM.I)6i3dJ+W()Z?mi:N
U"D%wXl)/wG#d-R3c);z'dI-op0PX,h2zAlWet>phjZ-(0YB=4E5h(-Gzw]lZ&Zes
U"-LR93H4Wx]tDu[<.##0)*]NttLAa>j0q>7_;F+acVQog]cp:-R:[MK-V&Aq,t'^
U"q48WG?=eg6p<=[u-wKv[kJTarmVCA4%V:qbK2_Bd&X<82$d;BVOm0=Zowh9(o<*
U">t:[NPn*(o2KBb:nS^wDKK8o01:INV4eLZE=EG\hl(':\dXpd^Ex0bsKt,[mt=^
U"cs+\J)LE>'KCk16<HbMr.'CT+aA\yoTe=XC3DXj=q&9Wb0?X/klPFZp9d?qpi%E
U"\YYXBL'l%y*oQmL6c<E-:LZCf]2Wrovq.>bDt?^1a?>pe4-MBYeu9Ax61Q)5Y23
U".>NTtr'1\CNI;qyiYW4,,t9UTDj7V?D4SzW&drYm]e*qDCM)1?(k:13:)d?Ugy2
U"?aIlNKAoN=P?A49zT#jQ:U63108[PgkJ81UEi_dhvmQS=[q*>OLe8EMEMlC:oK:
U"BUc3#3rNT=t'3HN7_15#kvzoW=ASAqmrS?&p(a[2ra49%R+w&3;si4pvV(SKWFe
U"]mgzK%3/E?gF7DmSUGx/EnwE0j$O]OB&f'ok%P13)_t%=NZE#_K^991L1WYyg1I
U"e_-STvFHUMQ#5Lyk[qi>o4--QYeuP9*09%kv361NT\o2p01kdvzk=e1OxS%M+a[
U"/rG59#R+\rAD,,QFwd3B&fv]9&t9_/2dV#>%jzV7MZwsy8r=iWYU8;5%9R+b,r.
U",,/QoJ=&xb]y&t9_/3.VX>.jz07gpxsknr=iQ/[/_vK-=g['O>A-LOl0sHGYu_j
U"wawM.>K59+z>nQDua/\Y19\i'$Muk*J1uX2)F?E=M.gUC]rMV2scQl,piUR)rwO
U"ie1.XICAq7WFze[2]#kyuV[q>ob7-)Z.eu9./q_rM/VicwK#ODSMy[qy3c);z'd
U"I-op0PX,2*I69[R+3V5+mI*8&nQwWcL,[Gq:88#C[BBf(JF0g:dlOUaAhNl2sN:
U"&xiJy'+elP1Yb7s4j^i#BHLjfn[GDbLg1J_.[S[sa4ifQk7+OwWCuSriEm#\Nms
U"TB/]Ab<gwIE''GVCAOPl$y3c);zt>b,^6%If:PQJ9q#=-ow7K]9zS9gU+2FMzm%
U"AWvo/^yw'ZEEox1/c'sIGIS8A&g;R[A#5fjt_6t#Q+O<HmB[:BcA-1Lor;:-c:E
U"Mgw;;*')Jg3R+t$sb67i5^;i)-e1KUR)eIiyGAI/r^=[>J(>1J206;hY'-'O+Dw
U"=75el<BH-:DO]'*CXy^kA*hP;T4'.OH)EK:dS/p+vaqa%x5K1QIZM\&r<rp86ev
U"rlf>4\4ca>mPOd5G(Z*.kC*bN3N&*3kV-dKpZF=o]F5Y,Tv)qf3f6t6?=tZFahi
U"AOk:jhGggVO;=L=+F72D$MF#J628waSTUzg'Omv0ZX?0_]ZIQy82a#pU/5(f5/G
U"am%+BC-LE,O\9DHRiSo10v-OQ0Ng,W2B[_Jp+o2Hla)e3YnsP+hva7#,>NrYla:
U"]d>u.7n6iLQO(Fk>gSk>c;W-35V)p:75_hP;$3T0Td,Dp6%eY:[.CI<5k7v^I3.
U"WYt0Uv_/_=J,>=vd3^FM:7koLh*)W+>u&*g]]iAW9u1C^4Qi9R-329T[B>D#?VN
U"9=XL>8d&F*<-5QBgf?2<WR&Ihf;$al^=f<U9UZL[8DmifgAd,r4E<L55VG_'#oQ
U"L]I3j4kLn-WRG[jhl2p-w1J7S+6&Sa4,pgn3xN77CImhU>X:8.-li/-JY?v[o;;
U"^Y78r1w=L9#757Ol^&-rB?(=JpasOF7DN20O#FG*\k7,+=\lcrec9WKrbA<Bq-?
U"R]a]4\/E*Lb.z>G*NWW;F/8S+<4dBMI;BHO1/\f9,5bYg]6c3AqM(]XLhlaA#B=
U"Fcs8O7DN&2x6WKKZ#oLVMwzf[J<JLYp<2;VBd_axIl]8>etCadiZwY=u]p$a17m
U".f4L(DRcj)O.7XRje^j+&Kx:Y+Npr(hG^[lIqA/[jDw7IVC1RwC,vI7R?1tl$W8
U"kEN-pjyj]6kLorAFA9S7bmMoT<AKg%k\lbp-a_mK,xtRStg#*Eeb15YCrjA.-2n
U"uQP-b,Q9<Q>\2EeS-XY$bkA^%590Ue:K,U'k8DVZZK(3$=wX4h?6CoK(\;nu/t(
U":W2:Z6W?MMTaS/ao_ruX0oiesm[H6S)Dqm,DTSt67R7VmT;fCX*>usQlXH8/MV5
U"7<flmGVf=\D$&]D(b#U,R>KHg1c](D>Cfc</&.s*2WDk.1I&i=E.:6.,?f[<p&+
U"QqPT^n3X]\U4*aQQFSvcg+tnddcoEV9dLI36X&le&rX1ta,I;hs%wd6NG;Q+5Z-
U"u8RW#jpp.6pIeJ:;EA.)TIJEs\mgu:1L'I9\iV[&o8?.iXtm5BFc+l.ha)Sh8l?
U"#fG-O0+)9D1J9N7;WtQ^,<s%[H]&h&Rd=Llqxwv?'$Ff7#FLI,aDkKi]K*6^GeD
U"*llJ7ZkI15IN%%z4*,zXgqRI6oPjej7%g/$6SUqRgnBU'=hp62_d$<v*F#]v7=#
U"nIQr5j3:8lRvEW,BGiT/ZsijC,8aBt]e<9=nmm?3,^uuC[mj?5LS_r)%ZgoC-bK
U"T<haWBmLAY=],Y[2iC9wdBBNv2&]]\/Ar,4QNQz#C-mGIl.'RT>8Dr[V2J/['fH
U"N3=soo6(35#FUX0es=xIh<61w5df6+&qr8:uXq/1Vs4d6GL_9a(%1EYVmSJB1pa
U"9:)RJ2U5ECfxC_7De^&eHb/C?U&OC&_h.:KO(El>J?.M*sIe3&5#FX50isCf)%]
U"(b[e'#X\>6\D$Pjyu0\(nZCTjI]4h(6:BVcNZ%04k>jad]_W<)EYSj+Y'o/%V4;
U"f(CM?$\o5V?YadEdQC4(kIe5Pj-1^N^P\rSJt%(x4'2k-?XSO)A(],$W*H2/H^4
U"BX0(PO=7lfQlDF[8dU=/k)ozY;xOPl:H3VL\+MHGFf'(2&uUUuJQ-?14NDEPI#s
U"2*RqDYC[ss&&3e/XmXqbwFOw.>RRdkSsZ/88.IL3_4u#gH]U(iGC>=R1U+RDjHE
U"XI[64E_,d)m.1$QVG.<k?Wbi?mZnjl4r64BrTN^V.%Mg3Ex[<F[ghJ>gGe38P^m
U"Lu]9OUi:M\uMPuL#J+wd/Uq:M#sDBctsHR>fCbIcif77>\h^l-l?e+N+tNtH;lj
U"X]WtKg<2=Zwi^n7kZxY9GFffYDW04E%t8KUrQL*JOizCRS$_I0nnblI%)fi_(rX
U"qu>3j>6ZgFf)\7p,)fc^F*kFWocIMqlc4>VA8<0juiUrc0dnDmqGH,Xn=1TJ2Jf
U">7<xqi-Lgb]:TKCxX/G9?1SM$SfEo]dx-,:T^<s,Wp2i_uv$9>.3D(K5fZNn;f\
U"nl2iF]WE406UEmgJ;$1j<7VgsoHD\E^#hm7FE_u1/A:d3Nm7uC_->p]kU'YIfMs
U"a6Ddm??9N.sHu*ZRj6OEAFzM%UA'^DRMR.BNB*+R^t<ZcP/+1*>Dsk,l[?NV$E;
U"Ey\[vf8v1zi.YW0X_1+qQQte,]nIn%nvN$pv4Qb<3-s#-eA*EE#]#4p\[>Ts+)q
U"'#VkCG5?q=M_?fWtxYth8kD)0TfcJ0'2#An]Eu>NS?x<is[qbHhp;xJD>B\<nxq
U"\/d*d5x;=MF[]9<sYM1*82f&b,f'6IA=f)#()ukEV$:4L4hDNA0vtevq_8bZ4Hm
U"xjWgc4xJu$oij<tX^J]rhoXwt?Rb0&*Y54Bgr+LpYvpq5Z(X)JQWteWE6D97Qf\
U"m]CbG_'rvl>Lqk>,861faqIO%$;yg5-iT<zLC*%Yq=T(Em=B6,ct/pE::o1]QGQ
U"D8%q]&C)luDi^pw.pn3bDRs-hmQyL3(da9w&42pAi1IdDrerN&sd/0Ic:\;VoR=
U"c-:%FZ?A&T7GyOPA2HIL](C&rtvGiHr9L^v$cg>.Os)=PJN$zpq?M9g4%r/Ansv
U"D>Ejt<]d'KV\]*y=rg=HejnXD)4&;Q?9/6emhHC\>.FC[bVII#L<nWCunZ2+q[_
U"4Av;^:_Vk(QfAUekpi]'$Nvy?':[K;p']kGntEz;oVaOarQnMJ[e#b](717^'\,
U"Ds0wEwYL./.jLQM6b14wduA%;:A$w89XRa<)6L*jiC7$*]ks'crd.+EsRUU/uk7
U"_xhP8-3L$$*y+pht_m=#6O^V(.Gy+ooL/,-HA]AuXQ2&+oC(CyLz)TbL$LV/0mD
U"dUaNONMHM.NM&dDg5z^)g/_<hY((p.7Rl=&PABlS9:\YD<]=WD0pQ8v3Vu.N0#T
U"cHWo[j]N&Z\8un5xsBDxbnl3G1wW%i87=xFbrJT;P)tZ<Q6bM(*ws377KW??I:8
U".2:<,d_)KA'orwOR,AOK687J0aze\+nwicAUa3'0w4H<JYs%ap=Gv(KkU4DmKer
U"K*%Mx&$rPm0RKC4.h,:2L&OaL-r9luPG8[+tOiI0JquZ2Ybb^t9\hZh*mus&Vaz
U"1NDZ3$*m:3p$oVO%(:q[e=cunvUpOD=;'$?_o&MWQyRRLV7;gxR0td'Aw#.:XGz
U"<CQPEFXg&n$:PcS]/;=2D6LcG#zHhD9-tYe[#8>Z)h-rFW6(u[D\N2mB[A(q<+g
U"6vgquZN/0muCi8=PR3I,;#)fL,v.m+o,3)40/uS5D/Y[HkGM#;,%]fCivA1VZEb
U"Sl(H/&ul,aZ_iN]kQ%tsY*5(p]=$qQVYz)?dLO$_#bLR?0;KMP;w#B_bfVBD=vE
U"\e4P'7I1\YQ(07HAPDc/Hp:-C+*gY=w:$D&V([]serc/HIg?HIQSBrf81QK6U2Q
U"CcwJ=yaPM,Z;j8%?bKAi*DOAY8%#D*mtp3]N7K3:md^=9._)8bI:\Ro2J:;us7c
U"Uxq7]a7SvKR9nKa&4LRa.^hF-AZ:aO]YK.o0BN_[%Ar%Sc.'j&Id4p#UF^ob7GY
U")pMUo^CVfe't[^mMF/0o8cLA9-g<<S;A8s:_e-l;AJL9um%Yg3_TirD<W(NpAP.
U"*GaGmM6HT-CrzJb:VKB5--Jf_fL0+/-t.8pAeA4FjJ\.T7<x/\(+P2TsI=cEhCF
U"wEjnD,BbPr7&^;[^f1p]cqa&][JCe\H&sYD8*s7A2U^[jSKp(ERu$Jb(Y?Sd+uc
U"J$5<?jV08JfO#+Cv.nqD[iQA[0.LrU3IQg(2VuTM/h^93J0PN2a=Dj.#nnckwW/
U"?gjP#k6uWxj\jvo-4x(u%p&'9%09%%[%-%'Cg>STtHx0$[4%%D&1%%1%%%%%%%%
U"%&%%E%%%%%%%#%vh720ACjJGSA#&1up&%'909%%%%-C%dg>jSWeb-)(Z%+%cQ&%
U"%/%%%%%%%%%&%E%%%%6%5%%vLh70AJCS>1&9up&%'909%%%%-L%jl=gSS,F%/PR
U"%=%Z=(%%/%%%%%%%%%&%E[%%%a%j%%vLh70AJCS7C&<up*%+%%%%%(%((%y%%.%
U"$B%%%%%
END SUB
V2
V3
CLOSE:IF S=31AND B&=29691THEN?" :) 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\29691,219);:END SUB
'>>> Page 1 of QCHART.ZIP ends here. Last page. TCHK:31
