'===========================================================================
' Subject: GW Basic Data Base                 Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of DATAWHIZ.ZIP begins here. TYPE:BINAA TLEN:22193
'-------------------------------------------------------------
'                  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,"DATAWHIZ.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%.-%4%%SRG'*.4:#7%%)c%%%1%%%%if.yf&m(n)SgRfx%)(2CxzPm8
U"9ji/8bICuo9S#pMJP3P^KYGcP;7U7)Ss&truA6P\g[0(Y_K-V]:iab%E\UfCj2P
U"c^?+NPD#E;]zgqE#lXzu')'Dd_QMY;#,u=_D,4(T&3d0=kPnMuVxxWbf(K>];q3
U"hrn#XvuxgxwZ8h6>cchP?T(6hNKP8cRq*V;0svS)/cOSu4oOslw,KZ&N)i_gYI5
U"#cFF*\7hl%1?FRbyx7g&tOL(T<0lrb[8:hG;g[g]*$MX[hT:GojJ9.o3>7/NaXu
U"JO9d/PcsO7q:CK:M'kE;>t..Y#S2xHLMko$e?y1f&LSW_%tx%QK5yWC4#vAa.]g
U"8moS.5K;$G%dm'iI,2NC*X#B/k3ge_qM)N,4Zq>Z=sAR60HG#WAS+MIEihn<V-d
U"$fx&</N0Q+vq4B)WTI?b]CVSh6:ugL[n^IB/3n$n$_p_ogYEP$ly5?iB0+k0g6X
U"'lRAw%X74q+csa+clTe=T]+Vrdhg.\-[Zjmd_XDpJ%vo8h3*,C=:D:a[(nuC=rE
U")4?BKq8agiVRZdM/Qehl.V-G4>mJ'VmMM*,#8wS+;a?[Q9CU(ROiGeaQXM)2lvd
U"5mg%P2HLM8,QfNfE)O9[[41v?_E_K]8G]325_ZHU[Qjg9/%Mk=JX)FRe9+1jX59
U"TS\Or*,A$j0+7-;KG)gJM=fV+k>^Jo%^I%EV&h#FT^CF7AW.j8AUIO(e,+-9d\O
U"(,bp#*c)Jnv9:u$*SQ>iZ\R,;ao*Mt\l?JX);.Vbr9t9IFUeSJOZ2i+3k40B'lU
U"Vj3:K:&MN'OKpY5O1jG2;_'2c)gkAD^IR-%vXl)Fr(W9AK=LLJ6.?qO:PQstG.b
U"M5UUA$cV>2J)AGZ<)lmg%w&%6'rnRULbx3U]/:d+):$*e?pu&HXXdic8&FbOdmY
U"TK:1+#)cHA]-wk%JE(&5[i?%?;URjB.NQ_DZaOL7167;)iuQBH>$,*cQ&UR'ChB
U"].<J_8BR1(_b7yHYiht*#KNnp7L=Tub2=jlim%q04Eqa'G1)QhFw0/F#W,=Dg[Z
U"ni;VG_sErfgBdv0K%TVbhN(AF3G8&[#=$GU3[Ai)TwgBk*q7:lL-Jkakj>ckmmX
U"x#mTc[bw.XudM0?]*,TdN_olo2<aRD2J&,+-Z13YA=N^mwgdO^=^+QEI%:zdPko
U"8u8F6p&g2$mu+l&q:S^Ngq[P,[#)1NcZL'KiauLI7,,XBb&I*7Ocg3xeQA7Y*r,
U"3Z$_AMwItO6sTdyt_&l1'SrXUW_6+>4,r$\_y-,Yi$Pc/1*wds(bsQK_&X<hGp?
U"QaN1SE-1(9zj3tPwB[AiD]/QKijn6&_[(c991eFGaXqiK)^A]1fI/?uYL4m\qtC
U"w3L'P>(/oKuFj2OT=9A<pqH0ia%z[N0Y*<GYXK=fnOM(Q1Jnr70ER?4(l&,\QS=
U"T*F%??e4VwPuXR,>^g]Tsey%16QkVMBT2jeB[NxlEbUF;*JrT\gRo:iMACUSE(m
U"AD^$8W9Ki8o6UtYr%R<-xPIaqfXpfR)r>b1ZYgiJGQ2Lm;&ck+4'Di3J'puG7Ug
U"B6f-hQBg,ZUP'p\;YHc6*a6v1JZQHd\n=EtI<T0l<Tp,/Dyg[gaQRbTjV8hNAs6
U"Cs'fs0^?2QEM[\NUCNM,5bq4dII<-8AIDC)Qba+,o3CNg=q*v0^fSl3:=F8%sp^
U"n?-iOe7+;82-WYYr3u[_1/I.uP/)gaE$LFXkD$/b8r2ML:b4WbL*f_o]i3/B65'
U"p,1c.3Lp<pGK;BeF_>PUPCC]4rN:rDgpy)e<B<N^E\<T#HVvOMJlSU*S^b-5v8-
U"zm8'I?233ARpB+>&Qv4mTQ6?k^.\R;g%%E_YCz&19b[ntwmQ6jBpy_Xmku](xVk
U")0HS<.bV9*-JQfe2\QbL*n_Y=:A\A.*['7O\s&P,(W96(.[J/:L(EEFl,4RVs#R
U"VBrg:Q6j.g3HDa7FG$D^M5jWrI0J'jbWix*bZin*=Q0;#j9sx9fhR6rA+5[$y9s
U"Hx+]S%ec=V2km)IiuMF,j)%1'#T*hTaEwPg5,mO<Bu)qt*9SOLvw>QZv*1;gGUt
U"t=/bHLReg\d2fYuX6xKtrZXKtOepdvsrcQE;#m2T9M-p94GpO)9O[$h[gA+I14U
U"LYC':O/%'d/)oonreg_1FD4t.Hg0U9_0e^c-m#6K/F*'L=1lQ<]bt7t:K<E=Z,H
U"%qL8pSnP5GX<rXtdT:u<TmGs9=F6qM/L5a%A5'bCO[aTHS_&_Y9QSwP9RqXOMsv
U"wp#yUyWI4wbNmYo^iK)itG#a;<wI#Ghx0rdir:uoreqGu_0WBLmRCgITTgm7s(1
U"F#hoiUz%?Z%aSk.Y(%Yah?ih^W$xm%A#u,(YQvM.<1tmECCC[Zg?KgKbBAOUA[D
U"'2<>Z,AVVjhkiBvm:0DWE]f^*b\GnKb^\T,BHP-eb\=XRL5:ISx[f<1aH46QC_c
U"r>k6qnp]Ok'*%)xPNJQ\CIgHP>L8*2/9T:CT.)tzD:M;nSUvOS+ymA[SX4&aq&n
U"+/KirQ]o4QT_526/hxbOcUB0D1[7wt\HD7uWMRA_D&#hqeFtCm[r?jE?wA&pDP;
U"2y#W-kAh0(f?_zGLEEWBBejn,FU&<6tvbnY*RVDqeg(Aon50CXsvk4SQEGlR]#\
U"uB=Lst;kZT(xU]jhSR?7$Y],;uj*D&[124NK3+9(;#qHHG-pbp\7+k5bU6?PQP'
U"9MCOPH'b#U0-]'8yp_DQu&y>CLFFEZZ&FF6QXDAlu:]_)N>wLBBf/xxYUhbXh-g
U"IagLFCEJj(w]F^>x1DAc,YQfwM+HH;nW+5vZI,B'n2h?,ug1ofQ=b^C2W9;fP^4
U"D7aHdTHYBhs/&gO*q_q3.TdY5_b&)Z_<\1Cu]v^#)ayrO,DO-rZ&v:P(BX6w>-v
U"%+0^4b&g2C3A/lpL_;0oNHdjm<n'(Yq,mm%?SDkm*Xt%8%b7y_b<tCW^G?DXS..
U"?Czco&f47G+:UWk]OpQT)iG&'8(=B-a)]>%T]=:?25#w#kwclqGBd?M7W7%2K[y
U",TTg&nN_)VXQ.'g3MqARo6I\')M?Poc--AWIp+GK&M0h;.EjJ25>m,Q>2Ie*Q(O
U"4k02BHWHgl&+].6,y3HO#RCWm(=JqhX4ia>,Eu4fO[jc]F:>Ij-]Eic1bEUImDW
U"3#'HTj2CCtJ7gUD=\rf/e269H-&s3(_=5K]jK8**c1a522yuuM,dTmh%rh6zMzN
U"u#biWCZ/P+eB,mg.MOc3dA*K-H;sveoW=Pch]O)-j9=a5n<9Bqr0q7\PmpI*N=G
U"X&,9S=m/y/H9*Dbzbt/Dy8:*2nzXIG*NQZN&v9E:K*NqbQ&DPiUh;f1#Tcf5(d&
U"ZU,HdX=I8hg3dYd4N\s0E3lg7OY/otwV*xYzhqcv1_hv5dQC#Y'\P&'1bH^t,#n
U"TjG?hC*G-C<Ui/+Tu3VeAM-NlGdv=+_\P8.Q;V1Es,,LJb>BHX-?##YV5^H=wYr
U"qdK7kksC\jQt2h)Er56'adMH(Fv'x14[8VrW)M9KALTY&$)fza7>c>\&8i+ldlm
U"nrXx.\+$.2:dM'pEk&/BhvQ+#KMZokR>Qw37[IAY.,)KWAVef:vobbAnllu[;,[
U"yRPLaO&8%%ISLDhg8#'^z-U(CO%Rq,bfsV8ZM/]Ya&V;<(Y.Sc*%p/>IQG:2:D'
U"[j:$)HPO>.KF>OH*e=O5ngN?Yv6BX(+2Zx9;c);$,n$>#=hh\f/5^,e6#E(9+N3
U"DJu.>lG]Dc8=iaz0f$$R)kNtyvItY-U8//u&QJJmzV'h*]<E_n=#J.zlab,b?Vd
U"$8#a3EcXI&l,)]\DzmSuJ2Ek]o7qBY.?9?f\AkW7rcf>%)g0z/(sOV05Lv%Q>di
U":+g4sCn2X[]EBt(*/If+,IUpW%+VLYbX'n^4uc\$OYdTQ7DqX>nTi>'iEkli'*e
U"qzvIqxgvWDBK>4dFd)v(FbhLCPgqKZ*Kg3UZz30i=Ebrne8gr-*vH8;H1n]UL3E
U"#/z,0%c%FgwPLnT1&-:>;,p2eG4%ozyfLn>vVaAZ*,U[#\kclYLn>:E7dnhh^.X
U"(lY.Q:OpktHT;$<f[o8AsopT+kIc=uY]z0,_&Unvyi3d#z/c[*<5_&cqX3n_JcU
U"UUF3HBUTyd[qX4<5+W&\0Ve]06N5>$HdR^8]Q14(ju<O9e[.5w.ufIH_]k9caoa
U"=r1dpxICpD/9W'rh+d^o8cN96/,\7k/%qE-<8f^i&daOBU>]rUxKk(dR/c-gqF%
U"xlVH1\jg3<reo1O_U.J/L.y.2Oyo%1\7vzEY[6%&As??jK:qLk]v+f:RKKn:P5o
U"cNls.wiV]bwr$)2]L5HrEdtn9$;kcNBFMB3jfuj5Mr-0M-[fQ'UTf*b,8.GOb#y
U"Wx+V*g\lHW3lhBE>9Uf.dztInn='E4CqJQ5g6K0cXSdrk)VlmJX=*V+e7xhJTrr
U"7%/q_T\x$j9SpZ#pF;accsPpa3%A.t?vRb+mahk4Q6wba4>[*S?0tcdRlZW.0x:
U"bHl,Cbn%ipz*qmqA3<3M?2q?YN1IO/-jp,;FqhVK((WNqj#GQeUP\jU[_*oxmv]
U"Vu&V<J.U8A6a8665QDtYPA;15I4,yX(\?UFJIB1ggAJ'CXK4+OK:22NtB36&R>$
U"elq.\Hr$)Uc^zG%cb3:_VD1R;A>s:?6WHi0ICV:*;2'v)ii'NWP/6?)]J3LZW*l
U"So6&F8KaX[i(XUs-VA1O3GM*5<M'Afqc987,;VV=P]+Fh(;3WuH<\TSh]jDU_[D
U"RSiO'PrS;&BZTW,W>]'1HH\Oarn%feM,4vDVne2YM,Dd6l%p8(eo'GHDI'$:86M
U"+bB'r$RD,D+JqM6)StmKGGs>w=ohkEEGY?9oaYEOG?6Moy[YldnvapBx/H0-auM
U"RPQ:WuffRXqP)Nqn:Q2Y:E.nHL_rnfa<EiF07refZB-tO<S[?bk*(OaBUF^=>BF
U"l<S:xK/fSFqbF/Tw5d6o9gK]>%lCM^F=x#EkMCSJwIvUab2EL8Wi*X9sKfX#F%r
U"$OviedtY4RW+4$.B4&_Cgo25VSBaWMj\p8-0j_5SK;4$.B4^+CB0M[akoPCtF]k
U"8f\?x/]2tQg1DY2i\wZV66Q[#+j]dB2,K]E+r7Q+DoO#O_?#1bWWJGgBU,EBj#0
U"/$0mWMT$hySH068l8AGw5?%HR%e(X](p8N0*[<W[-aHUQvTEBtYC7Jw\5-7F1n]
U"oym[Z<*R5<?sT#E\kkDa*<a%[[sYWLvi(<;wd[%J.96%+>ZMdn3)DDlRT;53tai
U"<Z2Ev-?+UreMeIaY.vwBpg<Uh&PsFHcO8+q;JIVa?4C\Uw+S+bZW8ffGKw44U$%
U"k$\Vi%4b4HG6p#VgL,&hnHz]h[XLdLLl8<[RG/rk,$DWEXI8&uC[,T%;k$<lCbF
U"<k*$$VtxLJVq.l#q8EA$ITw*y),:Kp:NZnMq7h&SRVKd&6bk;m$j+EkMB=AG-Fh
U"pNLdp,giSzl^KO;=n.LiFQ2QyUGZu8P+4QFvxqm>ju\FkMwnp)9qrR(-X(k%Y:_
U"f49#:qW\EQ<ly;Q#HP?T,U]?2SU1v0/Z^l/Jd7Whe4ih+g:U<^:UmFm>l,u0AK]
U"lj[]7L-[+>oVQK:O^Fw,t8;/]\#rZ1/D)X%'(St7&8As7xX-&4t(iLYkGS.24AK
U"4?FUe,mAeM%5&e,h0NMuMKadEH:>FWg-j;?$Z%P%3AC/sC('_N,/DXOqrRa9[=d
U"0B0:bnW&caqqft\U,7Mys/a;S:CS;?RNN[OIh:#&WKnL\a[WmO&Y\UWSD8Kqd)A
U"/+,=s*ZLyR4DE9RVBoA&)CFK-)V=hUO?U0TctelwcUFIoXgXS_q=*/^3cil1(C*
U"oXIkc)D=r(##LarUTRvIXXip=JN2H$dO#Ih8CC1;.YlX/&KEjf58wJW06$)SyNk
U"^(hG)J&&ZDQuDAFb[(CwU$u?>)?1'rVG='s%+%Z&;t'qk2*1X00?amRc:C?Y>\H
U"GGfOG4iNqis[^)a0&+M]zDH+d<-KD3i=WRpE6N\9C(;=<i)R4B,?p2KIof.*i1.
U"n?j/L=NkhD6ufCiM]bqej<D'>gJu'IVN,?<m4;GLYPMhO:ufLc76G.R4LD7OMzQ
U",C4J,9<G3NStVZ4Nm8e\DWjj,fpY3;:^FvA4**W2UE/WKw[P\]$eat(e%4t-k,M
U"l?#_<p*7SKDMH\$[C+i(hXqAqDi]4MezDkSf*1\AR:y%C-:G]]OWB_TX;o(s%H7
U"*JwA]]FoByjFQns3u]UwOZr3%7kWeC04Z$Sk3u/V19.wV=tX/'KdBGF-g_Cxhl8
U"A./Q'L4vFHwGdk]W8VPsDj]kynfGLjCl.qFXuZ$Djdk^K^D']4n\TE]$LBCA,\w
U"JjVBOKl#vJe<_P5$8=ip.,J_Jrd>LvJP.3G<vMVDUVPuK0vF,kU'85a:)q%do;V
U"3q^3(Om#\KhN+Og\Kl\7TM)>GGra*/Y';jL;>cBA^4m\a&<Ummv,KOQ?A+Gkp#M
U"Mx2H<)25/&T&&G-<,rK%CyEDgfC2#_+X6uJW8+c>p)(J-BR2LtCr<s[l#sbFE%T
U"72J*fLgeNzt5mqKxrTV35oj^Pl853H4r/\dqF)KfI'+GP1u77IKUA7]Bt4a]XTS
U"Sa5g-F9#.aFlq<-Ltb<*]3YKsPWDab'^s?R#3R9'Ov=c2Jz&IdiU+tDsM$Yx])z
U"7ndfatV8BUV=#[EJZ8?mt#2mR9$^ee0$:fto(CKm9k)?sP8WF,qn;oi5K?iTW1=
U"Jvg3IG_c<_7pVELohR3$M8>ADs>C4DoB]oP[3Qx8A:L2\zW$;RoNZKgUJGbS=Yc
U"U%E43+QHYCNj?Cupgt67nn*GXIR-xlQFaSBM<O\&SM7yAs;Rq.5iYT)9Ny6U6n*
U"7h:YcsVsWgi%ihj6Dz/a6P5g2.ZBFw)\U$XXek^BGPhhkH-A:MB;SJIdE^/ARrP
U"='hkWx8#tY5$#<wri&q[MW^Lq:XY\3tF0rHierZ<x+r5-+v?WsdSjC3MKG0+,ss
U"5).FA$oab4$-^AoJab^8SvBnaObNwmcNG$9B$0an&8d_1]'LSatff1.9t0<h+bN
U"I1r2svc')i?tkx6lVH5)*)(?Gp<_:PdT$3XXi(<&(L<H]L;.Px2F)7E*-o.1ED$
U"WG;>g=j&8fjk-mU+f1P*9I_rdk(\M']2L'KPvz1;r%8:n?vLB9IRc>hDbfd-&,#
U"qS)WaXeOsC,U+_Mv/P[9z>/MWTj'T0'A>(f9g9-bXp(8CKN6;R5uY;[Jf/7Fi;E
U")/?1-uJ$LP&R\_,1Zq/N#X)>BMQ6XQJ;KhlbnZ8*ew44)lW/D,h]jf[QY,a,Jl$
U"Y1L;57t8')bFemi2-97R]X.6Iu.1BBTYFDCRyq#bR>]V>T:L=CREC&<,#LgHnf6
U"wcHJ]\T%3xxF:\J9>'Y,.peP_g>jfVil&f#H_+\\I$[hTwMeC#chama=N'RpqEC
U"sTs'I[>hrd-7gdTnuh'oabCR\h3YY_0mgu-PB:;PZ?]V55ZZ.JAFCe5y/Z/U[U8
U"rK/N2N]1m2Ca];>\X-S]]X793Wi)9?#PrZZC4Zg':uO\ri^dCZoS':o2L[KT38j
U"dwOWe_9K.ipBf9kh1ne1\;+jS[c);ykd:aPCfV%(.Bwmx$sKs$s)?*4\)H+CB7K
U"g=M?>V_5h=UzF8b\$sn&T^KdE55.zEu=vtZ'Ohsjq=TwU<wgUK;^&rZLQcPJU=K
U"9y7&jRtEW4c7;#b>may[z2]NaW4_k,CfSb=>-S06']BWNrbcFJ6B:Ic0k0#I=$O
U"?rf<=C&V$Pr[*cAEWCLOu;'rgA;+#R?T+WAV&ZQ#P]n?Gt$t><AVJn^.f#p]OrO
U"Rl$07e7nnNtp'*'6P_M[Sd/kTpP]QB;(Q\#g4;tpEp<+sFN#,2onCSX<6<KL(Kp
U"1\_br*>B:yA])&&#.lKj#rWs5rdQNdKgHqU6B;nT?2qc)L_?QYiLrErk_kiH$eq
U"FnBac9^=_^qUq[';)YxeAplR[:2^dEbAj4Q_0YT3p%T[/4Dk2>-[:&=u[Zq$Vay
U"Oi,m56dFL&J#/GSMfYy1LPoS>M)8'Orc07%ys6M=nAltSX/3Vr21nJ_jX&i%Cm8
U"+JP%rA/*H5$UMRbpAZ2e<f<P\_90(mtI/AZ)%,XX#]sVWlK[5)Hi98b-RqFe+o7
U"+>w%g7t4Z&B/s1%U&=2_sMxQX6/-:,.XTG^6[Sd%_bYeng6=B,UQ4[-CP0:\j\f
U"-#VklRpU6naT>\G4_(H<Bf(L\zo$Jg^1h4.oU+6x)6YXk'[CEk=3]/=iC7k^Iin
U"gMPXX_^;Klfdm.G/RViETdw\q;n[v?Yyt.0>8-WTj'W\n3T_I)P3OkI&+[8#M,x
U"63NN&1:SwqH$GKc*h]8^%rXRj+rOJN&cqz&>MPXPn$bhMP)Zj7Kkb>:Z$=PB;c?
U"t577*-'=:hb-$VJ3[D+&%jrxMNzw80c,#r,X70c8AKnSty?3m7L:1?qC+_#=;,E
U"PlYA<b7TP3ZEk=Pk(5-KltUKXAn[qG?li_\5?W+41WS,bna5Spb(JL3A_+:TC#P
U"g88WsnLN(X$Rti3KU1h1[Cg5^vaj&rDPZ?iq.d&%92/<$AYcg4=eAGhD9d&n=jT
U"U8:-Eg942I)^sW#(9S>8:$yQW.<]\/QjFrhe:90c&KPM]$T>j%5U5lv.>aLbdM4
U">6Tfk9gC3NdBAr'w,$GC-1M;r$ii,Xe6ri9DouQ;DQ\F%b(t_6R)^e*YIPIQ99=
U"GOj;r+(=tb9o3aiFm8MGKeLw(;l7cjU/6Q2GtFFi4*xpl1H*tfjC8aRRM^uO;p.
U"'$NA<H'WY99qA<hvBCYFs62rNu%p()9%%'%-+%qPJO#Vir%^u%%%%%,%%%1%%%%
U"ify(f&mn&)Sig[kpy9#47Ncm\W+M[ZZX0VsdrSK].Ps\0StI*xh^^%/h=uQcwY3
U"ZukBS]]:7ldw9aBKPt2HIgE4g'D8'J-r2h^orxew]]FSx>n;i(%%up(%)/%'#%%
U"%S[OD#B/w%]>%%%%>%%%%+%%%%i&&SgfLy6F1M0B82LE30CM0F78AIETB%_WZ[%
U"2/up%()9%%'%-%(aORRf(POd%_)%%%e*%%%/%%%(i&mj%quSh.trlxA>q#4p=N'
U"f\dowO>SQNQEG2_6;P0d74x*kQS2u+g.'h(/fE^%Vn['Kp_CiK7un<50_sM[?Cd
U"SQMG/QAP[4RK9,ETYIpj'[Er_fFqf$sl..J/tl-Hp/Okn6sproLgpsaHhr4bHrC
U"MPV)I3GU.B_=7^U-VmdDW^6,1m\lEcSV5X*-#[GEejl&W1Zx5u-cF/&Q%.p)'%*
U"u5>:fa.'%Bhtk0f(MGW.3Cg=:laa68Bj2'2S:o.#?U6eab,b'JWT0ewurh9)&_L
U"=D)&p/[s2c'mVc5S'/k*6wP^7udJ:L0rMo'#['SnCZ/ZqBp^QpkBrF$1_zrnevX
U"O060hhO>GrvN9c#sAFh/g8[H>e3__Ff/H=i%,Sc>KK\iNGbMA]BN^cXMLG.DseF
U"X4aF.2P4Muu'$RGRWTh_KKt3+-Uwsuhk(r-EZ#cG'NTkX8A[Mf*V[JD<IOoUG06
U"uXFI]jX/[<8.5UFW+g+R)[Zk'H];j.4/S$(^<jxI;X;1=Imfj/O0B*=ET+hAJ8.
U"fCdy:Fo>Ph_$(^44--8ByNi2CLT&5zOeNAd<mU#3^Q33AfQu>'p<8wdV&\sIz_q
U"bsYGDDaZx\_t+\Ttt7ftB$S>FjXzhHU=JfpudYp$*8;=E^KWMN8[N0ake$Ah64a
U"x=4rY3b3b/Wg-qlQeJ+EOo$GRY&u9rTP&]b<stln%o)tK#2:(4?3?9(dMo9\3-L
U"3SjV8kv'f,0::HFY;kS;?>[i/Q0/:n[Z;j*RrHHn:dh(o&ip_zn8+M3d)thw7#(
U"[CPh#Ed'OWIVpnQ,kYbQp2)G;Hsf'&/UA&3sghoQgZ)ST22D;bahvGDkA)VU/q&
U"&d\rO.P[1'0]atR%?.RK:R8lw>&.6$D;CRm*RI>(A&N;8p<Y<CM[]M7^Z/s^D_P
U"IH39#co&nexV'=-f15jne)X9&arg*'r]Ix%*_ePEp6X\0DQRb6g%A%jm/N'jDK/
U"t('qwJijZJtd%<,AlWQSgKDL**jp+ya>APlbZOp&JQQqr54k[7-l(7IB;zbXLS2
U"_eqA:;jko87^aH3*8<*M2;EIb+3LOR0EfT2q7%H8JP-.]>aF6>qi(d187omV%Vm
U"s,JCmm6mi-f)Ko5c=vf;Rx:Q##\$Dr>2^2<?(;9QKZ'o-\X8RKQ\rs#ex#4f&vs
U"r^Y7NOKUw+5??$Xxp'*2%yp^42jF8]jvMhp$[mM70^\)rol%k\LKOpP7B6P>U_;
U"eEKMe#CEFNV06UMx1bf67PyO\[:\o9QKJSdDYX%9E:ul#H(aVtU1irhBWj_;UVG
U"2+G\C6+s87COeU262U_jhP6<Rk-xaE/,^i9zriF5u0UU.c/*+\XOUm)gE$-/nm>
U"]v[Y*$XKIhe$$<PVx+%up()%9%'%I-%oJ.RR$*%yc(ZR%%#e%%%/%#%%i&%mjqu
U"%SifyNfL*BjA#d_94HuD)9:BFaU/#_3>a;eSs,=TB;-I7['Aolo)6NVHRa7ybzS
U"zNk7/Qx:oMkqGS.H>bS6#sa&kdJo<ier*7BWPez&a3-gGs=D0ZeFpz%_BYb$kl[
U"pJnkQP(a>F3+[J+VDdpu73wlOTBjNlwo6xilvnxXqww2GAZo&J6jaf9LOBkHN+r
U"5KNO8zb3R]rHwFdntNl-GuDONB0$[-$3Dj3v/&<D[jt+A;HJk[(4zn48S\\F,pV
U"8]*<6xv&Vzj_Tu,jwkrN&xtnz\uuS:=(E3\ye&b4[_MZxqln=U8#zPh0dnpDvq&
U"MMyT_)tDnz_1cLR2+ucIP.ujvZXPX#o5cNogKDRju7l-su<e$fD)Vn3o\;DoDJ\
U"+Aivj_w9U:GkPj1zK<eaP3?P1%CoH7gMgyw*32f<g;?xxr\ClHbNfD?DL;S6+[L
U">&4j<^4,^=1Q6#u_(+bix:bJiBB8LI/P-s:6jxNa?_H0n]Mw#hs96;3.NKHFzwE
U":753w7QTF0;Zt8gUHr_h&LQ;g;XWr^G_ed<gGf;$ADI;>.Wa;wvOrcBlGc&wV_(
U"3<Gnn3HBWJ8vbuUZxqf<\^,gpfKrln.0wGAfuG%c^S#5&0ohc1#KnMDA<g*P$hC
U"n+rkb[_1x4Cj$.fe3j$5;#gW_e3lTH/)<Un\vEWo:ULlUVnNlKjV:hu:wuvjL]W
U"MgszWGW.WqjZSfWEhPAhfN6gvKBWVb=+m=4LA6U#<S%wfsD3pIB=Ptb*UZZHUdR
U"p>_(KNeOMSXhqe>n(Xehjb;]SY+<+tN7GSuDUq/5:<kwh]+.MPj$D<bgXRlk%#N
U"^ZnNHNVUzG29vUDik/H9$Ga2AL27k5l:Sx]'BJOn)SbY+p'NYNj7)\MM6&%5Vez
U"oVj6C^KI,fa<XSf9rtfTsaLC?ieV6bgc8G)4kmF'*S^.Qi/IR*.0lIAxI]],w=3
U"hxa$<&KKAU3BactC9LZ#=TLZup+>kr_q'L]BWQ6D9Jy^$;\N?%,Rbb_o>i=]do)
U"l4bAnErBvWD.QCVgdWDi5'&>LoEhwi5I94zw1[XDI'CB>L($fakm&iqu-&fJ8mL
U"nY2(0RI>SH0(6jAz/w%;eh3nKWw3]',j[759-:J'8oVv<T=WI_*2^YV=Qjc_P=N
U"*u^+SZ1]e=:)SeQwq4nE7+nCON%O>./9;rUig[5:H6'>GWT4Q2w,z^'$E%r4?_z
U"L-NB[W^y_xa\6c.&iSU8e'Ble\c#bw:uUjSUakMkVrig3aKTA<4U4NZlQKS1y:/
U"NQd3,(RbzK'UG<rUOhaZShPrx#BCTKL]vfhHe6#?+IccqC'2Z1<gcBOMfvW_?\v
U";Dfr=F')5]oL_Mc<F\(ij2,r&U=4k#m3Ce%TL*jznu:5Y3X(P3LKh:h&Wr-\Ja+
U"V=pEmgHu7m+xH,4.Qg\=0nSzgJb(\fUBQKDf=2*-FQOQtzFc/dnM1,q3(_8/._?
U"rNW5+w\kwFRDVH0M#oc]Jm%[=mG41vd3B?z>\gxc;P?:St:-c&#F^ULKdP?4fCK
U"RcdjnG;Rt%l%FW:\dsV$xA;)TcIyi>VH:aS5HlfYOr&QW?HOW/aBejWId<<;#hA
U"[/ZQ.Dr'sBMA-,#K[G]SK8k(lXKYP)3QS*ru&\[Hf?p0OL?R4D=R_(5SpF(coBq
U"=[U,V)gCDODCnQ8P]C=JazV/DB2t6r>%Y_x0A)5C\HP8D4_Ed/[C^lIS[1EhXb#
U"WUhmo/nWCqYuTJd%Gbjh\]j[?PM=C%=&aW3D3pGSki?d.<*Fv;'o'S*V]7v6/8p
U";;k6nJu8wY0s45q=a%+qin4NmF*>C;WJuHg6^guyqfp*u2<6Ns]%6v/WVK?Q[aD
U"aklL_[TBXWC?f31*7JtZ\B:mTGBiC$mK1e#^FJXF?pb+/H?^80H0B#NCa%E>33(
U"hD$dr;6]+qE'd^f#zb<]A-[g';*9,A\LO1JuQJ'CWg3O\J<&s#^$zie0Fj2vJ4-
U"^y]EHPPn1tDrAmQnRES,QZr%U9;//]TXLxPm&kDG6D3j'sc&'zRiGA-ql+p9xN<
U"MTDE-(nv=&9IsB5e<$PAL/*T%<$5<E5AZz)3svzn,KL35iDF0gwr9^--f/,F9N*
U"]Aks1Bmv'i[gqDoAO6J8'TYer.pyI.5U5xVHJaGR:9iXN8<(x5UP7VG%Tk>[x/X
U"dBv]\D$&ELyMy::WOQ+<kM^8tR6zjv<mRFMpl:A,I[Pqq:/%ud.JJtMwsNZpwrf
END SUB
SUB V2
U"n7=*sNpzAi\.IhRH-j1qhuEqJA:st]ZsUB(J+4wW)b5Fk<+xfdEoV^__RNvC[UI
U"y%Q%N,u_:,wYrnMw1(^j.MXYm7E>^064EgFb>8.\Ev-w+#kXS8iOXe3A)#QxQT0
U"WI>=T_TXn6=x9a=TOY\[u3T9iXmrFBw&lz=M9uic:ke$1xl&3DZrr+j.gb&_NtO
U"TVnNUuILZ'k7U9=+M8i9k*Dd8:-$q/G4:MO-Lp8,\c=%6D2^1L'0Dn'>*=le>K\
U"4hjp\Ri2A7:CE.xk9xKJga:G9LVuQ6;Lu*A4YAujfPtq2>vjk:PB]3NI3J2P3RE
U"LvQd'=hi>cDj=/dSqQ#j%2XL,N&#<r2y#-r5+C0N8W\usD9U/%4]MeAn<:pj]r:
U"G1#kQ/6;qt-FH5Hn,K^ile0'7Bt%zJB(CaI5:/j&F6D[zhGnNxnL?+jT_ZDcrj\
U"WDmrXj]$/L5iUM&#g$Z:>?OiKD:(He8huq[W=ZWUI9=;GE^eCMg&Aof<9yHd1;]
U"ZKF]Lgq$pp)awfbNCM9]Mud#JoCtH&_K8?ed]UE8AQTWR\SGd[R0ZCs5ghy?Ef?
U"2)S]nuF.^-+YsCOul3a1#X=J,=<seU#G/'AiVtMz486lUTY<P0\+6K#xlRA\zG6
U"C++gg0a2-mlj_SW[7beHLi5\P#[N4e]:w]C,Ndsy#,NOl5<9G6UY5)K.sq6N-X<
U"s:'Oa0;#5l0Ok1]<]Xia=vIWh%wgvWq#X3/Be/;Z,PGlqR>)j3AS^%Z2olEdB8t
U"&VG:_+O_X*_,/EckP%wXB_mHS75S;NY^ZrEUFDU7h_Sti)tJq&^/?3#;Ee=FK?X
U":/;]c0DRLC[n5=bPM;C,'8O&Nkfh1CNhblD'oolRf['[ej69f<Q$pZ-scIV8j^+
U"5v=:%J.(U0=*O1n1J*Bn)PP;OOp,%Xwi[%nbR_3n(ba#CDyqftL'?T\Qw2MkCNG
U"Imf(qeoFv7$#vpZ9qy(q3fGL'R%fMt<VN)9fd_>5]=#M#6Tr*zFp2igIk2.il4k
U"c\>xp3m*&v]U:,A:(:(T:i%I=sg/-S4yl2Xu1XL]L*nmTEUeViEWJu[+hBg'QNS
U"G0;w-\Em],)G<gAl*3B$TX/hdv,>bUQn$1J0<:DWJ<,TpJw)*nk41lj4ajR4+0=
U"f2N2d>\afh0>yfhWRa33U2iuF3dz3CsIV^jRThk.AsQ^JS&rkGFG)*]G0['i3Ea
U"Q\0$4-N5GwdVw9jRkKll;5P.H]942RkcB=W20.pGJKXX*Jxn&Q-W+6Ml5B(t]_8
U"DKGO[1v62%<G\1Q9'9xwbK,kHMZI4(e:GsLh$r4d$ZPekt$4An80+8]u)x-LWaA
U"UvokEEDn0NCeg_D4MK:+>\=-OE<N&hwACZRBI2D?Yl;1J-p<>7WM2#P2Yh1FUL[
U"g?aS%Xh0p(IRN$YOi5)<(A[hr^h%[QZK_TN5hT0pl1TY0iZ1-QBc7xoDvINhtEB
U"C^VD2b,r6y<gek\)CmFBKAI?LP%EVRQs?t:JnJ4q4:G$QNh[vZTEf0p9*YJ_q[O
U"_km'wzWesu7KASRsCq[5n)8GZlTZ*<e+v0YF)17d;d<pccJopRA>?6xZAJj*]c?
U"^wtv(f'wa^.y(-tgJZ+M^-]U=Z%ePs:T%12MH66u3DAW,p]yEx2;q3hb)e.&.#e
U",A1a]KY5]Ism7'%_2[NN)_V'/;d/fmoaK6KB3d.9JM>D+Mub(6Qf'eC)XdCh20]
U"2&&B\)NmNbw2SgpJf%w&S4r6XXG1$,I67e5#:T#-$+HO+cmUW.OiR&,^kW2X4Jj
U"<,9;TsopZ10Mg%-i'0cUoi;#tL0QS:4e2Ng9AXZzVgh83;65U[uG-)uao]nN;]N
U"cR>XAId>QIbhQ+*Fg]p<N#KFX1^CACY&/kfJ'\sLHMFk47ORCyx6E193R+g49Nl
U"Ie,zCjkGn'BM3)[$K;)GBe)y=+kPP2=dcSQR9>DabM)r2JFhyK14p14cs4uro4u
U"r4=urHKRyQuaAN;Ay*;31xU?5_m<C9hM:t5>9)cTD3m3D9Vl3PL.'CL3fNo&veO
U"O>P;Kx8b%rbgAw3+Ex4NFXbu9Y=vXhj,YeMfy=2..:SyWAXlATCCk,$^cdLJi5f
U"7_C<v4UFGE/t?i)RD%/sb&W+_,FFO]b%vFBs/Ti-X;M%a_?7ql+6IRbnJi8ER1a
U"IYLID5hGh\kphhJbwrPeW^0JBYVH%gf]k#Xc%<\?eD9##7X%U(</DK\_.w&j5W.
U")[d'Cds]nubvJg2;<kly%u1)[#x<Ka(VZOTQTFBV02's;,iBg/a=5#q(_G%5s%i
U"L*D9cQ)VT]_nB>Rk=M*--4.jS+l)v7wHUG7J]+'*>l#QmJsokC5v-bM3DJ1tYSZ
U"a]5S)%Nw6nXK\rKM,5gihw?l4S7L?#J=C_a:EZ[fkKdLHbEW$:/4+Q-T5%wek.^
U"AW'#I#E43QZdN-i[_/x*iWm=Y1+6jgF>dMgoSw'x]WPjMH3;o%f1M.Vhdo6L,,X
U"aj=aKAiK),1swZWmo.%4,8ah%lfV15QAqiepRRG7]X0Kie4#E0vW^tRL]Bob^u%
U"jQR>dG1quu5Dbd%JnOry:bp1;&myLFE)36,QqD'8c6gdP<4I;,:z#^?^0?X[**-
U"uecsu9I]HeA[a(J^?H;ptn2MQ:ClgfNmWu8+D2?IE0r*h2ib:A6b3>WcnDHngci
U"qEoc)9'y;gmm6U[bS(7=O(HS=i\iwlePyG\*81A.-f?9H<B\\bTH''F813)#0Vz
U"0'HP2R23PQqYB[]CCVevs?LD^C_(j1)E=HEdQ]D6Vk6$vHO3t#0&bVURf\nwjVV
U"vBb3^HS<tKcCoc:<HTEWWd#1dgM)?WRsYnzT5WKAke*iYwBLe*$EoF<N/+<8;,0
U"9F+9.UtT-rqy9f9hv-IiQqCV2HAFSvJulLn=s<&G.tqKwTQe5N_VS/83=VVlLg\
U"WjkuDi%];#2TI.6p6J5o'g#OIFs4G;x8F23HWe1ET_[vh+h's]RXH\c/e#0KpH[
U"zT:aQi<EA5&mbgi[eAY2FN+RJ_Io(&JK0pSVf,I?&UB#c(LLSIGHsV7Ap.]ffix
U"$IGg7&,NNpK^f/+17##56ajl0b=BS+/M2V7?QAOJt9jiHxlqVajXYD'fgFU8]L;
U"N;h4TO$3TR4>1dK03+>ckMi&%4^8qqB]oK&MO?#p2\pbsPc/O1.S8l/>$:RD;ws
U"k\leqPvZVlB&BU3JjFBV[7p)NdQjjfq?gnUd5Mt%&=aMrl??9bVFgIRENpoX1FX
U"-Q%ijf[AhM=FFhIW](R;?Z>L2cx?CAH*7w(]80t<rV%#Ro6EiU.$jlld/kR>#Ui
U"HLOOC#Sb4,c?PiQ)Wsv9kZ'_:;0eK'xj]u2RyeblAXF5=vERuF?J2o[Wh-rhu/?
U"?WiS_USb$\+Q?Z?RFd8JBPitqHGwP^b#vR9b=q>CUU1*2TEb>E^:&n1o4vW;BHl
U"l4\i)ztS6Z*#OQaF#7oFii7u\Oh0l(/>rQmOjgJfW<m7#mu?ow2ETKBD4-7x*Td
U"_S,VS=+#wEPE>GLt]v/e8ylXM\<gYkd1Yl5k[)=FR7U9OK8#>*Fc;rK&KR>LaUD
U"4FYYqbg(*E[e[4dE6+QDe<Mi[9g1X<2M9K,hc[=3:nsw6EL;v&<i$WQqB'=OM:;
U"C$Hqgt/J$eWUJ/PRX[Ka?twP1kBNw,T5h)Ei%UEec0Cj4B'5vUpi?3bC+Jb)SOF
U":B)'fzZ3ca;-uJfN_/<v/+qi.>+Ic4==O\28#[4;)MhPkdIV.cW[5iWegRG-r/C
U"Oi,7j*5GE)k4bG>t9e9%VDtMZb9h#wZ<^'5nR-pOMu1e'sC,=T2QNZ>8i_.AN/t
U"Cy[a.9mr](^F2cGp<hRJ:U?Lbp$;F+bE8rF7p+D(-NJ*89XVHLBN0Y(UPYDt%v9
U"_s/+.#g)j.-E:[$oh^GDMks(TLp4C:=S=FV4mk11yjCFID;^Yvje9&KYnIb>nC3
U"gj0ziW18>KMx^4\/'4c,q'/hJChU&FBYJ>WlH0btP3Ghb3?4[_Eu2*C.>HoTba]
U"O?w1=X$CCLN:)SI3o+Cg-'^6,Vg?h#i-b*?e3$,XnJ'2C<HSrbDq66n[okfsRoR
U"4G5+x1FIgKjX/S3C*+d^A9v[2/ac2+[=R8\fCV[b.CoRG<:SD[(FxcHx8,t(?'=
U"Pg(uINNYHcT'5/XYb3nhjVK+1V8:/7A9M*r6_]tmRd6d#BAt.Ipwe(sjXh;WD&W
U"8go)j=Y4kK8EQY#uljV4B&(tP2>B\%EKNJ$&SSeQ4;M6dVkjb3TE/o[>0mpjwo'
U"mhOoiWi(Aj=#\d8f.NduBk#k0A&/Gd]fYIqNe<x)bl()G:Q&uNhbSd:1&;S&:E2
U"f)sX4R6gPvpVO&XXm%-QQj2'GV<RxY$Hxq9WipHrecF(97W)uPzcH&8[VeF;3c-
U"gPVBhi%SGx5Sx-$(8CfLDNv+C_3yPoCtw-%39_8>xOYj>NoE%:10.kAX86VOHE'
U"d)iFlkXH.wcqdjWEbK^mS<S2)L^\g<r'i4Ei:7qB$Cp1d?kt(BIww>oi5K\-qR?
U"wJt&xir_HAQx.$p]DIdbLE?7p]a6M'31WG'7\HQJXVNr[K\/WFei<frj.UqjlG/
U"l16D&mcd^1EEZ]b<I=#u:KId-%=ISdLX>vcK2*<D2D,]#NA[s&2$-KB9In2Q80'
U"vVR-wi._hzU-DngT.8d4tGsQz%J.3a6fN-wDoWEr#eizwRC*Y>7u$th/trdx*QW
U"O_ud>3,FP7-vy0$=D/]/b==)*<)U1V59%,t^,j&]aOrK5NT3(VoJHB>uZ5Bdg/O
U"c0+U$<YAIiRm6vSmPz<^.FT)MURA6meE&]YbJV9E5<t0HM>u2k(M79:Ma8gFdBG
U",-Ij%w0PAm/PEX)9Br[uR+A7r>nmab8,BL^'(8j\9FJyuO3ZWhWG'e;R.t2H)S/
U"36#_a+Eurrf=qfkmwE/ZxeB]V&Ntvb^fwr%rSzbcROkY&#z-f']1b^'Uda$WTJo
U"X*F1pl>xVMN/ke7ypHQ4P=kn^\,w-j&g=rl:3$38x[EtdGXD[^cKVH>LKrmu5No
U"p)$eiq0j-2DQq#,;ip]i&aYs5]-)bO^:<K6thzKX9=d9K=Iu\-y+7dpi;RtwiJu
U"_/Ac1eQQO^l5+8>cW6rmKxBZ4GCfaw<J$R77B(x6sJ);=/8<j]uxq5\-?^yy.h3
U"h^6Kql4gEQ%[4oG[.=&sqRX1^SwW?qf\TruN7+nQobpTI_g%'6]<RORpasY[gm5
U"*jUd6NXZ\sYJ9;0b:T4Mh2a1U)5NrL+>QLg7\)%db#*]IL80(=Gw;7:SUGRAW&q
U"n*'Zb'd'\y.T(Xa0R#n:RGY*x,2[(6/ErwgX_s:M:n0gED[[-i-X7JYs%jnUB0L
U"_%k#1<j#7<:>A4INc)fCrZlHpir\HuxlaejO^wu<DFxc4KSSim(%-#rTOk%?XvQ
U"CQZG4%FIsXgV0z.D59)]3aof-4ca9_Z=2Gj&+-o6tw^%_EZ('[tU+[3P%&3-k9G
U"FPAU/:RJ5OZ[610L#d1uWZmN_^JMZVJ6Z#tTV7DDC\tF4(I_qrIsWoCXrAcN[o2
U"u\0o^.S^L5CpfcWIuR+b+#Q40kv)43g*uYQ\=x[Owb?)ktd^vM06zElNlFX\LtQ
U"5TOZ4lc7:cl#F>cb7R9Drg+JhHDfBhCcgVB5?xWtF\.v*C#'E4R##jc&rMY>rfO
U"p3c,%BqQkkS;O2yOpm%^zU?P;ldx/WuUN&TU[0r&(I6t;9<7.Y;0fD?TU5DOdC%
U"dgv;2Ot')'>h5Xc10uUeIa#-7#Y^o%'JanrIj%k(^yZjGTgI'5Z1,MEU*%i=\P+
U"ie)H%ls8R6cXsidL-4Z+:8_ty(kPv-tM_9Q1ImXKMULdLACru7tebb,5cC3iO5m
U"Z'L]SAg%bOSX.Kq_z5'1oQCy2Ml8DDf.h1DI)v=azfu?D^a:=9A'R8)$/ne/ev0
U"vC7578m02&1&c8E$MQ2\x\9mpJiY.mf8O8,KIoVk8QZ&]RI6ZoPES#To%aCUr:y
U"O;4Sh;_FIul-pWF*:-I8<4VLEDb>^qnHPRmQ7$(n;:A,(m)6/g8&r_veCRO03R#
U"fVz7mOFS8]/>Sy1URE92Umb=<RF^^[Kbu2<UcBqAbP?SY#Pr7,5iOkhk%A-NEQA
U"Ek_pT&%p7mR.mc6O&j/:Q*p#po+PzO=8?E+f3nANMdU&z-E\Ev7Wfd(1'&uW/J9
U"-.>k,e>[8NOrqn9,NC=b#tn*&u,+1dwJPDa?Dt)._eY#R^=4X.Xk&uOaGv3.9%W
U"T4Z$'[#Jl..L7]&>FT0Crm2*Hx$9]coZLD82KZdC(j%:^$GB*h3Gq)_vqYS(\\1
U"\_aSijKt(=WcND3=8>_A6m%#^a4;ItYu(JyeetJ[Z%P1dY4XV2EG7_X'/1)1Z*s
U"CO:sn%CcF--G)E8kW/>ZS7fg,9E'K(flq\I'K*(\Y>NX>#B#98(]t96]u>oMEl5
U"MsZ&?M;kxH?L>1v-E'>YP(nXQc3ak2^PiUZ<c[o-)$9d1ptFsH3V4I>_0s.i8&7
U"mftopcp10V/eEE3IDRF,T6)h9+LJ)/ku_<e%>QhK)XwnPv?u9<RZbVOlHeD\q/A
U"j9n5p__1NMfO1:>FpQRG313pv+6\8*g1w[IJ+P4ZeRMr8srvV8rK)VBz%g,S$I:
U"8:DPPYy>Ps9DLMCKEUt._)a.c';G*Tt2isyp.DLj]DM3[i]5J;6u(BqGXl%Fn6r
U"4ka8V&#>tq5$Nij5tglCd$RbtdFd*tG%D_P$.ciM35wzz+$TV#g$ZzJ(Lpbx)Fa
U"QwONuC0B&^5*Anib[?-lCk^Bl3Wod^9JDL\ff2,fh1?5C>ojeedL;0(cu1]xv/X
U"mX;da<fqlE)/i7R;+u4AHKR%aTWnfD8Ez81?.\?=-IUs/gZ?gUDheQ)<)Ma/6Gu
U"XW]3pATA5L'k]T4FqU>:m0;CZ9gIaLh0g5nj&\g&V&IjZ-$c&rb2JF<)W_r&_'g
U"Zn\Y?BZ_10JNX)HmGzqHcBnD+7(nj*s:%eaE*h)9BDzDo;^vN;S\p23*3DQLY:Y
U"]bkz*PQbo(pU,iOmG;SmlC<3S:*]wrVRY^u$NK0X\:isk%y9/m+k,==:VA$25pM
U"m*d*Xfv0BA4*RQY-^>r&^JC=R)1G^E<R.CoKP+g52K?/mDB[I)Z&$E^z^qJ6t#Z
U"#c-9_obY,-sIJ3IMU4.nSshA0-PF%d$Z3ud+^I.j'P/:/rHe(ZHUD,20YFfUYSa
U"3gP=DvKe1g4BveBA+y]m*e5\2U.73L3+GuUr(k=q\e'+ls=lN=?L,(;(qdD8drQ
U"gkW[OWXVib3ZY)y4Fk$WXz5C1ouTpWR]b[>Z>F;N.Ju'&9KK6/FWZYp%MIe8>iZ
U"4h2)pE+jYMulD]octB;k0gAKfEUJ0\9QOjTeK8x<dSD,ON.R1A8fR3qXk#-H#E,
U"vU+]B61)'n36H3K*Y][M*p_b_.G\ralQ7e;cK:U]5)MR\u(g?eEj%e^w30fM>6^
U"%%23mh23l-er2/Uy4Q)4De)X*:7Li2h5g)W,20NN1k&H>22j5(Tq3TIpe=r'^**
U"xK$0>dU]pYdV*eT.[?fZL%Y)XgH75JV<?xkMTPL%bF?W9/>dESYD3GYyM\cZ*Oj
U"QLbZ6IA8;w8MP%6ST&AoEb:E#Fg1L+e[b[<RwkuQ$Dm]I)NnmF*tWM,#?VFc5fV
U"e%vlY]0DueC8\Urn9$g2Dcbv0#g2PknZJDLD2NrXJO^nkHgh+3Nb$'clY:vH.>*
U")V1P<\M+$$i#pm=)+hxUu9.zK-tVRb(TcHYb1\2&T1_C)hK#G8opObRldmT^M3#
U"32x4FUDZ*_cnK_%=^pU)9L,\&h)nWJyK[]%Px?;EJBQvL+]h&(hJ*R2A/si[NFu
U"JiIkL$BCu6R;c1+\B2=klk^<oD4z'8FHa)NA%/,79-m)f]';##3GJ8YV;-BSzDk
U"XC1UkH21'4^-fWj'T%&lR5Vi.=?/h%\rZGOEY4<C+H^i,jAn,I$By'Kf\C)6o%,
U"ES[7C<C)[_+&-=)p#-l)luuZ5D<4Cn;%rIVA03X4NR[fOFJOYs/4TjOoM5cU?a-
U"=>+]fqA3I8%8IB\q1MiouwC4)O7UtW/qAC*K%dFvz4*D-/-%t[F&aut.+b3<?0l
U":*8FTCZBQpgw.>'s&2EKlz*bosqvatctYW:=;<ah;rOHH_$W.?bL%if0pvL:WNG
U"h&dw-HF%i-[l4R8<hm:I(k\kg+B?#n1_Ap0cFwlE,0RidBhi9s6cQ)agtp.>n6F
U"xG..Zu6$Jvq1$gN[f:fCqF\79A4f_HNI5/yB4y$X9\<i'FT&H2XHCNg9Gw)#5pm
U"&LZ\lI&b2Pla]mfTv8](tA$oV?Te]NU,Afb0Fia$3Z<QtBS_sSYpE]11<U1J*gF
U"neHDe8eL8twK7njBX%H5kNn')c^MwuASeNV;P^0*r_-Pks8$99r?gil.;E5'6,4
U"^mTG)SA8(9:FnUcf%^\U\#hnCaNQZW3LTRZbIG+7Iy[Qa#^ac<k/+OF]*,*/YBf
U"rim02^JI<om_WKL#Y6$<w<d2dnVyMvymwY%JF=6-n^^yXF50=T(XD^[pT^CF0WT
U"W=Q/f3Se:xAn;fHC_cL$XulZ:L.+(_2Hr=g2OsZoEJbc+]v2m*Yi5,BfqHn/5&m
U"ZJbrx\5ZN13GA4V'KLBOWIYQ&]>h&Aa]<=v0giYNCq<RVM:<A<(%]'9<:;,yZXX
U"VTJ:Tve02XUiSZ5E_49>21ST(da5iB)wR*=DZ'(;?ps4^'p,=R)[]CoYXn;(-Ut
U"tQCDsF$oa?merh6dun&-adZ;j1nz,K%.m-8RNb_^v2=N;1SGXKoMD[)C1%&J+mY
U"vXlDQ$uZslK4f&]j*m3*X<F%:yh4b<&LJ+Ty8mv.gKogV85VA+3;*,TA_I[Tn:E
U".c8Fx]dnaS$0k'lt'phk>e7EsHlkl'EU\;RQmv1(*w2CaNv8D0a\v)z7h=T0fHN
U"O=UA/s_2)VJX)bq_Ia_uLuJ6yOl%tqG&',S)U+T^EY)f=Rx<Pgp9^13E\Nad9Kf
U"EZ7M8ApA)^pT'oEwQh2[_WqQ4ADG)$LB;LI?w^%:w2]1;**lbC_YqK.kY-rD#MV
U"kj'M:0QA$*TKa;',Qz3-%3?_aFofwrR6d]=i'5:Wi?j2ApzQcP/$l)93pVv<[E4
U"N&5j]YV*VH3%l<vosdVgYI)eHkOjP:vj)CJq,Lec\UOyj42WTHbT%Y+Wd>,T%r<
U"PSfK[:-0NT_*(;x_KRrc$l$$HmUiby)0$IJLVAS=l*86-5dHRy<dp+q*VURYw]H
U"BLbnh=rfi3Uzqxo\/h,m(I&^(JHOJZJwjGK^]E2XoeMCQ,zj=An&rOP[vUfQqSc
U"r)'Ue\6O7DAa\phbvj'+x'[AtBsVI[?^*efF4XJo#Mm0xXKWcT,ga,qt.02Vl[%
U"?[<XO/0X-_PBHpgq8Jk:0U2iZ#H&1nkGQ,&xst9mgsDn)h4fen%Z67\:b^[_<HT
U"itgRFwj=NT_UMIg<*Sy5n[oXwn&tBTruPfS%oHRvD7%?I[<d][ZR$o_IWAM8ANg
U"BnIBq-LE#:Ez>?eB.LnIohUHoU>q:q-quibzwSqIV0W^/^t.h<.0ibHS**\M/NW
U"nN=%Tg[yboYBSc;V(h3nG#WB4*.R&%V:BUxsUPIhk79&MqXgMNtqjcG-Ap3uDKZ
U"_)%s+fv0]4-9TNmG9LM:/&JRK3XuCw].)ZJ0Lo'&$]'FqbJeu2X.DHA7k)::v1c
U"Me+,=pLKM5_=s9QxRQAW4eR3nHvAJojk*>rh?S3qVz5KK+A^>?b4)Y#nkhO>;Y'
U"UX,e_T%aRDPfd87Q9Vmi>C<]X1iNC2RgCeOR*30z3%l*sKuf7V]V7WSr3;,oQLg
U"JD7C+3ZlDU'xOD7K:e;ulCv2EW&.N6Hvg3.gfdm'L(l64__qktJ?#is<*MaglPO
U"uIJO5\mSL>QPWbRuL##xtK16j/)6YjM#X)nQR)NIbAsQ-s9Q.8oXDUW'Rd^0rf4
U"I;gI7I3ZJ[dzD<_vt\*UWrNh;t/HIOodklpLR'khZ\dO($nK%I,9JJ0ZrF>4MP1
U"Yw,Q9$G)mHSUlG>Fvb4(rOc_'uI^b4_[%AfBG]h]Xni_kZmortu#mmpnAqehhKZ
U")(pe<rDO'Ke#jh$>6dA2nOO&pp1#J^0(E?vzFG'ld<qO4%5S-G5iey,0'fhzJ,6
U"HDDM)Oxq7(DeG+4[d6?r$$6FsOsAM?GCE0wQHacu$BrZnqBHB+da07eWj^1JKl8
U"0SKHhgrzWNP%l_^JhuSXWB)jPFxlAODn6;=GV#aHXw4-4ZM$SlIQ:1e8mQ&iMdq
U"E>WmpE_3hp<$aE.Y337vw<72XNk]2t'AjKBKFtXwa_bE[J.GE;6r+.%_Y]VQYON
U"u(\_57Wh5b*4*-kAa:s1\m>gk8lKVfbk+5>5nh;gzv?Z'2AjFup3J32wiWdFw0P
U"d$P5'e5(p)F*tAiyssu#?ChS4DP9sI^<gz9NG$PiFpnBPS,ws$m0X?un]46NZWt
U"$sR^X]1wGJkMHP7)$(LcJ\TJ*y6D8G_W-tTT'&Apx;\D>diU'IlAaRano=UUvva
U"8gq+MSy[mC&o81v)Yo;ZaukV8iqszray#;/+PS8Ubh:N-:l>s%uvddOO.PEuTF9
U"12,_7>aIiEpd:+94Hj]qG90/QEc,:XB'nhEQpc#<<Bq%2rrdD06:?7nCsHf'rI9
U"X/r[n[p&f/4ks6[kU\Q:9?JyrUo)TWE&KUD/u^c$DbxN$\&cq1;hl07mTQQVX*4
U"pe'+TndFfDina##JUcB.V7gsDU:UsN/GOvnt&L&7ZmTqGsAL=$:3<1hVniN:p#(
U"YX?h3i3l_Y>1b8+Ak;o&n)%k]4:7G<#p5m8gQJDB)zlh8rcRXms99CY7=m6>p&2
U"L\=Z-J\hi\.XieRFkhf[tf&^)iQde,F\*k,\p:s_.xn0'7>5+9VXh1qn#PTI'$2
U"A0[\J?$.R,0r>0)]msA)G$u,vj-L6P3%$ViOSV8$blkpfa+3FwRymQOOYj]%EFo
U"\yi=ddd36Zec(5N?Vm'7bhpL<+w(V^?b[OQ8fsQhYox/MY0S9ewFya\awJ(T^T(
U"ziG4oWG+rub&+A(tTNi*#,%YEIb0hMj-O-vrDEH8^r+ubsM4Y7^Y4NXS]jMGJ%i
U".2iQO4-#ldAK?OUW)KAY1+nW+pO_k_$n3/RvzC3i>j8nX_[tgv$ZL_9VI?B*Zq.
U"CJdq[_8&YV_r;vl+1[9m(2ox:jGL77%E=:WI[2bxs>fJP8vu/Nm['lGD??RV>m=
U"$^^qjpW'Nk'Gb+mPnOX]b%_$1*Y>h#(l8oVc08>,79kmZ%p8n7-F3W)&0KtJ=]&
U"-0uu\U7t[d58#-cqft%=aO/&[rM:i,4x;8h_dbulAqTff0W/#8[XXKOF-w2Nt5T
U"oBJAEQ'WgtFa-_g%st1J8q6=N9*4NC$0c&m6fSnBVdeV)DGd;cC.GYF_\m2*-;_
U"dJq7i=/G+lkwarv(7aACr44Xmn&Zr?gW;+bLa2#21/BqXXB9hYNLS\icf7?IQRk
U"7DcX__WTf7KHML^2ZyiU5CQf%k^fwthRU\K9mBY;\)9H%s;S<2,H#/mG)jfWgB3
U"6%H3,=35.uyKux^K[,Xe=&-FqA2X&]98KXs)Jiqs'TJn%R%1O.5at=%V*AF$?Z]
U"=KVsCIDF58d0sCL):UGXRUa:cj4g>(D*uDA9#=k#q7dwnXS0j)q1,?:YGrR8iX%
U"l;-It)W4IfFDqqx-c+Cya;D$NH[]HQL0mrr9:\]q.cernpfC3>(*nKvTTpZQ.7F
U"r.XY+VD(3G_']$vP<n\;4y-p:TH,7AIRzSdtm7P1=7u?Jd_/PlVVet+?FwrMAAn
U"]5X\c.xy8'[wj5VbVi6U2rjo*3?;a0-b?8i3jA4z3>UNWauFI%mj$d<%dtsFU$_
U"w50Vv2UL8>_IWsZxeEG/Dvdc&3May[b;0wAe:s:>hgrWNuJTjT/=?XkZHn:I]XQ
U"EQl]2_gtz2LA6O0kISHj1v4[,%L$ycI8LA.r;Ya*,NDD+DugVslfrMs[:3+hFT9
U"_,r',fWQb<BZD?*v)CxEcHeE<Q+=wM$_)EE'j?^=;#\Cqzu[K=t24xVbXN=U.WC
U"-xJR<[=&>9Ns)':9,\oVqnOOs81w:?wCbp\HMj[AZmP(0Y2]$fW(Z;\-[5*WQYA
U"SUXX=mYNjbW=vHMZr]i2lFJHjuZjBZ(T.AcC^WvGh&M)&'FX>WAo^-NX&nPsrg%
U"r&/J,T+I,$')N4O)+l-&_/N1;rC,(f)/(aMeK#A=i=BaVVH-.UhSIJC>yg#I:-O
U";\yy6#oa$U[m-F?5r%\kH5JbW?KhS+;i&nlnQGc_v6XShc\Nw8mdvvrw,Z3alGv
U"Cg1VJ[]2_a2Ay/j>eg[1fVqQw1L,Vf,NoVUal1P94brOVD3J\VmSM_F.?3?KO*3
U"K'X,03Si+c9)#V&BgrKoz\i&6e'ruJoWIZL2^,3h7Rs#QNmK,x'mG5SV_vG7vDr
U"^M;z$[<^[Ok&a+LG/wJU,RikFpQ*\M1<G$BA:%wLM>'?89fBBFF\;$r[Z)TLGnn
U"ZNdI=3HuBbW:%E^a]4cP)rO*eKcJC5QsG%BNN0+fyZc_-zKV+2>nTGt<fPvs%6%
U"PX_0P,J22WSRN6(hLjSS2CoEYcZIa?g%CM?cOHccTFsa\5?*8Rql72>4tw:Ux$<
U"07*s_pJufn_?8Q-$f.w1U.hn$acsY\:7lfx.ae2A_d\F\Op7&3c#c1G2hj_NH_k
U"j*66.j;<N'z59eih%k&BPuf(4?JDY4\4E00;s&:;Hs1k'EN6R$]XJZ1nd*3V[MB
END SUB
SUB V3
U"NHw.;nw.SE&X3P6\Y-Lo?$sd3F5aK['nXbba/'Arj?LldCr8\iu5?(x=3SA[-dR
U"6V;#D,\3U::,_u$G\$;7TX9J1vH:rm.r$l88jbeB1L]1#So-Q8bo5b[KX4OxISH
U"8?3q-XR-K3qm%r5AmmbJ,&Zr<t,Y$V-\[Mm?=lZd_$qb:dsWB$Z/QDNdEPn*X$r
U"cW3BT9q'b]G*vC\BLI1+KsExU4PnWfN_MDdvu&ulglvmPu6lWL>VG_5NOdVbNDM
U"LdLsMxu_bM3Tx6U2LdIbmNq898xkJWK1\AuP90/dinf9*F+W,5]P&BOCaI+8la^
U"Ns=kr(sTW4M)Z#yprC[FM3YG6[$/HkQv^TEYcbKB--t)gj1VeZN)7tnAm#gNoSd
U"u?L\b:F^'J^r;$*r3qNj\?BfSl5G'uozdtM)(qCw?Gu,(Fk]NrIma8A_?7itI4^
U"F4NBB)PG3E_01%uKoE4AS3:ea518fOHaxvF,YiR_,U*JZ[,9QAP-;R0Yc&rNhsa
U"gggb5PkNCWTE9SDC,p*,L\U^kjGh'0]<g[hCqoI-p%G.4&>TPH#XgVeS1/OMPPK
U"h#5(Qy%#TE\W)k>uY0LC7?OYBk(X+nv(wVEYc)6O=,3u5+[<57)7ApaM>uN.%Rj
U"8tDj#6R\fEk)6x7\gk8,&<s#tAgycl[H_i+*d(B\F%Si(kG?uwn\H*38T\II6hE
U"2WTp*/JH2)\E$pgF3utYgv3prF*l3]LABf$CicP'5JXC?h%tr$R6(W-2sr-/aS-
U"&ROMsD+':#K_[GV,pgThdC=5qS]ICaEm)o9$Hmnrkc%s]lYGIB$$88]F+6b>UmR
U"4V:uQ&?PggtVS7er*(PTS_t\j#%IO#ftyn&w/Z.SEM[kV=.yB)Dg?-\MKn8R2D8
U">C6[IoHgbFWBUbpI-rNZllw0Jwv+g;'jXuB-S.eDsZ=52(VRN5xtEQ>8/m4sPzX
U".e5[)(Z;TF*,5c<#U32PT+t'[_&U_1+SZW7*=yyQ3Y2>S,Wk/gT$m.6'6(2A_?h
U":T=\Lva?gW>O^An/uNFVG^O]U-A'[\,Tri1jfZvL#;D(9=k%K=3(?w_#OMLVbI8
U"(W#Q+pGca#a^.bS4-H1%jkM;MYV2m;(HlE4/x/U<Ww(VrI$i+-dIIxXlM=f8C)p
U"K0n:rbnz/A3'HtxOL+]p/[:7h-YUMbG%T%.2EdKW#]%oU(eWj9wsm6/P=f'(jpa
U"XWGJgO4buTBtw2D*Yr>x<n;$Wr$9^)iCxVljPshTKI+bL%y.Ig]8w+Y3I)F<Who
U"f^2-=ZWYq7i_C;Ha%Pglo.s;KbIMr0CJ-XV5JXa%#b26jdiSY$Ay\ZA-fC^t3hX
U"lJpsUXpsX_&l_]E&ju&*5RoKZ%R>QB>?p#\H2Zgv%5=fWS3_vW4nULbjsKd(5Ws
U"L8E%n5XW#8j7^3$U'][O[=>A7\ngJcB(7j?D=*8IbI-f$1Qm.$2BL2SB\2B=T2l
U"PD$8#2kKa-72D[3tRmFd_RLKBpAWPx>]MmNpjO5^:D&FiXF9Y#Y.,?/\Fmrs'&'
U"RvLaaM0&4Q$l#BX8eEiA-JM]tT2/9m?\E\Jx7J5Xg<n/yP-LJ$QmE%rMj,>Svkh
U"%lGXsTn-mqiUw5f/A:Jp4x\Q*:SpO'oS$miH#)ktYR6loAo+c4ktnp6,TA69cI?
U":#fL=K#*t6]CKn>b0fN7p%\G-U?#T=Egg&6UK:?Y?rswqM97YE\r;Et)MeOZ_c:
U"#+u'SuY4'lp/%H_S_enm4<Z:[\t;--$J8d-;2QPCyDOhB]/4ypkb+.cJYjbC>]d
U"y?g4;ICY1>'57a'PH(I+ogz(<6L%yxY=Mmi0[Xv'GJq#K.:F]WQ/hW\OW0_DqJi
U"kf3(TV.jn0mOGa6:Ymq\ReloSfkQHwn7:P=h(plXBFt$]))m]Cx=X-wf+Uj9(&<
U">zD;srqnHftZpg6qjK]C(.j8aSjIBfrZ-MmP&LEt?JS'3Dz(^LlHP1T1+Hk<XJ;
U"F^ioaJ0uh7t7>]w>2?lr3$:%1H9Zd?%:G.w;nez+MRn+-78&laCD%XX;>F_Srp%
U"7JkhfR/&.L_t+FJ,o'>/zTu'4hl4hT_urD%VS9W+Q,*xqPK(qN5S$[:bo^c9F>i
U"kf6=Zgp7D\mmBz-%i=$=akRrF#&*zS#Yn.o][B6T,GK'F2>02<F<3KgU-XnXqBb
U"DugWWWEgD<fs[_Z&dx-Rx&u%p&';%09%'#%-%4%%SRG4'.4:[#%%)%c%%1%%%%%
U"%%%%%#%E%O&P%%%%%ify(f&mn&)Sgf%xup&%';09%%'%-+%qPJO#Vir%^u%%%%%
U",%%%1%%%%%%%%%&%E1%OPd%#%%i#fyf&.mn)S%igku%p&';%0/%'#%%%S[OD#B/
U"w%]>%%%%>%%%%+%%%%%%%%%&[%E%9,P2#%.%i&S%gfyu%p&';%09%'%%-%a\ORR
U"(:POd_%)%%e%*%%/%%%%%%%%%%[%E%9,Po#%.%i&m%jquS%htru%p&';%09%'#%
U"-%oAJRR$%*yc([Z%%#&e%%/%%%%%%%%%&#%E%O)P'E%.%i&m%jquS%ifyu%p*+%
U"%%%%*%%*%=#&%%R%z%%%%%
END SUB
V2
V3
CLOSE:IF S=19AND B&=22193THEN?" :) 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\22193,219);:END SUB
'>>> Page 1 of DATAWHIZ.ZIP ends here. Last page. TCHK:19
