'===========================================================================
' Subject: GWB Tools                          Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of WHIZTOOL.ZIP begins here. TYPE:BINAA TLEN:11944
'-------------------------------------------------------------
'                  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,"WHIZTOOL.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%%-%?^d3>nM6sw#'%%%**%%%.%.%%%k%nsiS#gfx4OyDAjRU9VFSud
U"Id+oU>M\Ak491m]a&C1U+2a1Qn6NgCujZwx+&[7Gsc8TlKbu$U#2K/ESo;M73.V
U"HfXN6wwIgrW%gCU/\^-$_yTD86dS)NX(kSEoa)n%d.g.+'M]2Za)79qQeQ&2*(z
U"ps[mLYHXJE[kxe^HLJy#qgn[oc^]okN7FjL6KNFZhdjYgCi'KlUP\EV_21qxA-C
U"-41;1ZCQRhH#2%kjXG3#?)%]\1LD4J[><2e1un0jqQ<\PH<^:9vD^?;j;G%'0rp
U"_+2n%[07p?O+ltod2flkQ+5O8ufd_#VBJa]Ev8=vul^^n$$du?Sr]Rsq1Dpf6d6
U"v^.Nf&Z$o(v'SK;#PcEhz7KqG=L.n((MIGXW&-CEq5'M[Bq>odH84_Bug8vlHhg
U"x,E,Eb4$e5weE%Gv=Z0PUSel&N/YLm#0xI<e%w.7\fiE([%eubu,uQJSJyYqI'r
U"hp.:Gm'?%?>nR4C4#XDTSrn83v'CtU8#+(S6H/0ass\F^I-1Ch3XBGpj*Qi?S9q
U"2>;X4rv<,R$6Wto</QrS-fd0Q<M76A2#UD,zxL9OsSAf.p<MQ:52VFO-d92NPQ*
U"s:i>qSAGsZX7egECax:6_A5K_=zQP48Xgs3:*Y/U6f;[vUaA\VB+rp>':^'aNFu
U"ild^j=WE9Sk#+.-.;*Dz_t]S1;>:GR[?T>ACGKcoc=%w%jTtDLcn7'Dv3c8<*KP
U";9D(GYx*1el*MYfk*K1/<6crCH>/m-hcY1fFs[V)<(r+m(piihGAr*u\T18*/jb
U"p>R&uU8dTx%%up()%9%'%.-%)E%5>?V&yQ:'.%%%)%%%.%#%%q'%wjkS#gfx,Oy
U"FajmU17h-E7et)i<4u7$Xw&:7J\(XIG[_m2q;-;LPo&YIc\&W+P)JH)*JLHsrI2
U"\S5UUN;DSfuD888?x5iVl5t>ofat?pP>/#RNp,%;llhy%b'3yr*lb6w(%)6Ye;_
U"JbX4naPhB0*pbr72\FRtOB\%o$mMlVe&%)w'sKv2Q:VhS*V)exwJkZ9t6Ws.\K:
U"83(V36G4/%bLtqjo'e,_)lZP%)OK57o/'<Y<2ko4:(epepxA^SQx4V2&4GVtn.]
U"4W^+ia+uN(J%1\[]>0H1_S+LP_<B%9q_s(82?Df:Z6/?D1lhI3?qgkPjOh1lO+_
U"Z?Kb&9K#'?YqHYI3(C7#>*kRe]:0qNQ*nWPxBV*Ptv7uu^g:%Mnip.fN19g_264
U"l]1l\e$pXF,Rw/B?5nQ_*;?H0ZS/Dx,s&7aKW.sb)24Lu^/&IbAvEqMK-Ovs^Q%
U"WRL],sQY1C*SVVAOc^6,63AmaGfaI<sMt(AV:j[mh1Uz:w']]tGp8#yHS$Ioo1;
U"^MQmV;:O33$K^##WBr$_9oQ3s9xw,LCO;G-+*vuMbo]Q8c[G-/Q:%&5#eR0q'8c
U"d/i*;5f-S/aEmAiK%\i.z]+<xJ;ygam;luk]>pN#_7GUOsO>'6Rp7K.-K42\P3K
U"B5vY^H34;(l.=MayuGd4RsXGU8Cn>n7u,%up()%9%'%%-%%C[5>eD,#O#'.%%3)
U"%%%.%%%%qm%nyxS#gfx,IxpbjmU17hQEwPm+YTbe;#5u%p[G<:F5,]3ePng/^dp
U"b0$xNOR[KFbqsJbL\hb+#GY071#qPfl(rXNx5rarfY89daIc*T23Mx6:V^INp8r
U"BqE;Jrqnn[OS]mNnFBh8fpkz_s(Fm#a2;Ik%c=3;OztqB9WfnBBg+le2g^oK$gG
U"X3ZR[lS4Kg&W2-JXP/kEf.q7'j%Uo9xp\<7*#Q[Ccn3J:kI$Q&gq6KAv#BLPe2b
U"8#XUzQf&Q&C(p>,Fn.NPOzz+#+S^B%yz*Pyox=Bdk#++lp.r[wzzC\[d-pH?:)+
U"_bX2):n$sKgxW]h)\=LaYEH:DBIC_'SI$?-?/hsar.5*9s)QlN%gJ^L$lYw=^MG
U"<Q]sF]g<PG]w//t0?20O^.##l=%I.j*H?4^-:Gkr\PD3?QD%%.D3VD-s.A_qa)B
U"^VN\Jdij)E^pEno+TZ'8[?=6T3E-XCC$pa\0Lq[?K3N2gB$*2o^TluF.]C7Rut.
U"rIV:?,ce58Q*OsnsBb&\3$SjGN(e(1FQwnVhhP;')3J-/mG/5EsA\Xg/f%'7ah#
U"=?=;2.0Q;/RiP[^1BwX2p8U(Mpo3[a;Rl%m,s8'CXjurc'a5-(Faq\$n>RcA#g6
U"A6t3dB)BCyWY,L-Eh7ssS)xpI6V\fs4qK2s#i0JCHP;6v$gdRg6L79$gCnn7'u(
U"up%()9%%'%-%%*c3>te+Xr%D&%%&5(%%%.%%%&%qnx%ySgfLxd$<+p<U9bT80wm
U"&dV>;Y\fk5=3uTqBQQmd*Z].c1XEq+rxdSjV<3dM3RaaM?mjb8B/?=Oy+U-=[^T
U"IV3C2aok^EL>[Wjy(iELMQU7NMMKL.-#91>;HSgjQX&g&siiOkc;#7#>FFNQ6u8
U"MK%76T4?BwIxs+4AX=h)x/.HgM%sh%3pBPSRbv/EBSCL(^yQMSZso7k_XnWt0t:
U"PQ)>c[hu?4g#Rs7sTMgrqPJZ5PkLA[aUd9.m_$[QNl*=sGyuniWFFe:A&*FPDj/
U"WjHF'n;Uw\0n*#gxXXo<>'Rf'VQ%)#T-$RMf#7g\2F\mBZkpxq?]Mkw#MPAM)L=
U"uoxv#Tmm1WFX6;jG$uAb\PcP;-Gn(%up()%9%'%.-%jGd7>>u*fYW)%%%j.%%%.
U"%I%%%'%wjkS#gfxDk%T=\.[5LT9)dIL''[0m+P2:njn/g^X'3Ie2;(ERgJ#Q7T/
U"DIv>MwG1an>sJ^%eiG/hX&3gxu8CNGfMkt(iuh:dNvB1IBNYC4yZ*L[hly6nRgh
U"Pg&r>dGT14^Mqt8&cNt>qour;)]z\y1eeMZAwsd&5flK.c8iMG02_n3DUDnPdoG
U"4TrLTn3/Z^jt*%ZjS^Qqt14?FDkng)(e5-cSV,Nx9nVYoeUrD$jEnB.[k=P;$;K
U"8,K$;*Kb]NpX+;a<G[)^n$9CmTWr7(5jiQNX4apWWIJbOaRGx3EaKf)u4wSGKdG
U"(GrWK4er3y3nP9g3DMN=]u\bu#M4inmY.'(>[N<WDPZnuKuqu^dS>&ccCNJ'lnu
U"VL=VyXZ.7Z1m_tnFQ+$3i1%j5Fp?'H_]bQF$vh;,y*bXB*1WYm3c1A);MrgxDOX
U"s%8&?_K#Mi;jmGzA2Cg$i$$IN1u6,T7rvW[B>Kw\B'v49HUolEgJts,3(Y-MbUS
U"?X(FE\'Ed5:irh8m&NAB(KM]HpyLU\Cz-oO>MDEV#3W%]r\Bb_'^Nc'QLl07$&d
U"]>TSWp*OK#lw[Fh5C,XpayZMjy,0ItLY8SD8R^/V5OudnhE\Ig77P\p\crYffeu
U"/kzio,h[[;A9Af$#g+LEIe+o:D4JNa7jI\%[Cw,Ss)l^.>I*y]lgkE/4+8mP__a
U"cG#W#Ira?qAiFGe6'(4*0=0u^-P-+0^>Y\&0Hg.n<o'3$kLRFXdGT0hbFg[L&bM
U"BGu#z]\nXSTGRbVi)1Mh^3_(pF1&;;'#e^\$-CM*4FMIf=ZV^FEm30+mE-kx-Kn
U"(]4_;'/-#]3p^.Ti,G2XcSA>nDL-YcZq=>#q'86-i710?b8DWcGNnv-;Y4sJIRI
U"NVa*><dGxUWgf[V9:AQrVJ7Vllbu51m#z#WM[N*d;Q?b]Z%>[r&epC8a_j?9gHf
U"Z9s4u5(/[gpZx3iA-E<;)FSIweYSGxn<)T,P3VH$y1R(spcKSmhTh2(<P/f^liP
U">&76S+'s/-o/M2xFA45&9NB<n=_)OTLjg[';ickRDy<].vy9*P34a]s2Y:UAz%W
U"c_,no9g(%w1E\lI=>OMnqSbIuPY^,.\6]*hq+(ZqrAs8-la?9&XHP)^4E+$cjGP
U"fYgQ,06q=N#olG+t6I:wCeVqV?RAMJ&]S5WwM3N$dzWHuRkq(^+;]_D8lm(C*(t
U"2&ZTV6ncgM0xufocqY]JY8^e\gi=eMMXXRC&.xM]i_h09j)r%0sdTdLv(8,$dK'
U"eaA/:3;UlHhR<f;q7lmUH57^C3\DZZZ5tXDCcCbu$9Uw[1fcG3&'ir6p;cZth6U
U"X-%]gc608F+US83y3u:-xWd>(dwphq_Mv%.up(%)9%'#%-%gB&QR652VWa%)%%e
U"%*%%1#%%%&.mn)y%ttqS#htrl(x>q#e4=N'K6PdsT%.*zV(k#CoG'<OLJu1xOQT
U"o3Ai'h(F/E^%[BK'K*pCSrPKdVHS>nv;)[N-V;M/QA&P4RK<9ETYdIj'[lE_fFH
U"q$slB.J/t=lHp/UOn6slpoLgopaHhTrbHrgCPV3fH2+aI/+n<U]I1z$bNbCWH5>
U"5;]gN4XE70]B<je%Z0'52jwFoMAj:''S:j.'^0oEOHSI8'g$]m;3SBw6>:faU9O
U"_IHRc#k2e\6%MIS=B#\rtCYpiE/RexqjM?-'EV?c-'9O=nB,<b4M.k,:[s>x']e
U"Nv'&'LkL.^e<)kaq9;<dXiD*\Q_kj#:GZkR;r-Ib(0hh>lW&v9Pc*vFIh/g[ab>
U"e_D_6fHC=i%S]c>K\UeN1NoA]A^2cXMGP..vF:X4anK2X4u2u'$G,(HgmOc*L(#
U"ThNwP6r&)64i2lr$cn]n.^jDo&h?3#8be=k$Tmh;57k>>:?gPF-'5(aqRe?#jH&
U"A*[q\*P<A]Z9FNaeD%+1sSoz)UT]R0<o'F2-ASp_yeY$I:YJlfkf+,SXM3yc+l3
U"7<,[M:E]9C[p2E+Av,K2pe1lPt/M)f=,w8aOln:w?^_$AiyApLRjvtvWF2VA<[q
U"Epyq=E[axwXoqp#n83=^eKWM82[N0kS;$A6;4ax4HrY339b/W-VqlQJp+EOdXIR
U"Yu#9rT&<]b&tHtd^0hns^PGACY[*NAceTN?BuhD,YKX]t*5O8OQj]:R]RCYY><O
U"&<;d+=<R/i+*ndDTNWdN'W;ZS^<+3Md)twQA3%^Vfp\DRA:=g&ttes-qVA2t)G;
U"rJ;'.U&ku3g?HoQZu+;f*O_'mp2M$4^fQr=J2Oznv2dS:+SP*kvn;%\%BBwpvay
U"*h=^kljOE6/U2+egq]Y'SOu+qFmRA$83igxvrppqu_<+9qXZ:+Z121<qWr]q#]+
U"(nwED2T3yep$7^wM;u#hY4)Td[z3%B?oFnf4?%.e(yyIc_#>TY8q8R?kjILr&3p
U"pne%:,gqKpTk)m44<>NMEmma2ZJJ&THC6kt3qhV,CF;qWpz/qA,\M=qdIfE's#t
U"O%(^HOgWf?BPc\PI>Zv.gWs=M>BO04'F-+;oZwE))hc'[.dR%#.MT#VN_qxX/U1
U"Zqj^J*PAXZ&M0/e?d&u^=YZ%mGgc8+cmk^TbKLxE)0.Jn9m<TWrHpxw;%(%zsK*
U"\MQ-5aUX(Ya6jQ[0+zpn8Wal_=3bp?<g3oQu#J[s?JG?<'2$-UEUzt;kKpe)zT*
U"H[?C*XJS^RgK$brPQh's6XHrF1cKM%ujLui-I9EWog6ZEkzZM=1dEE-32GCSXaA
U"t]U2qiW_nq/73o&mDWofHr,R?>=nIRe$e.3nfXdlK*6$XKhge$$P,Vx+u%p()9%
U"%'%-7%R+Q=Rh35-8?#%%%An%%%1%%(%&mn&)ytt%qSifjyV+VS=AP$T7\YFA7tA
U"SC'5+cb7Rv]%IpvHAZ-j9^j)wor'vtE^qVbV9\cVA5\ZV/KY,WP*]EDE9tK2-6)
U"X&zMvNUcuY=R>>1$;;YVVNDQcpzn-_#DjuqufF=Otor5+27WhXaA62XZ,y-([_o
U"rV\DDS\pj20_H.SocR'tiqr^4=#(CW3$\RPJqrk+]#p<>dj?4.P^C1a26TZ?ihy
U".q&7B<r5k0CS_=+:$p^m$,J46<%V(-sAl,S$iJEj=++y\fc?CDk_lC,:#EhEv)K
U"/imfP*v=*Y%P5#0b/a2gyL,>W.*gq5R1WoFajKBrTJ6,91'HE>VsMQh(P<$i<fZ
U"+;Y=[O#P#D<Di9xIu$T4Hi+D%#DD%;mkFtAfYqCZ$2(q.CnsSH_A]Q)Uo9tcC6>
U";Fq\kbd603IPX+/d^JAVDiAsj,?fG_]gMQoJ7-T>j+q,AC6sF3/;#iN$It>9o%J
U"eDwdWsl(U;az'm]2Sr4^,xD.9KgKZyq+R%(E,1^9On5MEPIwcfu7?*\PHgq64>m
U"XT+O0NPLUvk;_&o?>mv6\M)4aYzULgP6Mvf&L[?C1rPiXW?XFR-45-Ft-c;(wP5
U"l$D]Rtla]jhJYAIkOs/(3(Z5HX#DL4<%,NQxP.=tLw=hi8^)(p-nhn6tH^C4k8B
U"j4/N-lc(KMsOXgX]i>BiSCzl8g6t%,vClMz=8uoYjbe<U#rJ&#JQJZRV8.MZDS=
U"Xk&Z+AX,H&an#r7RYE(V8fGj^PB<#rzSzbGfH1Q[Ny+<#_JY2I$k;DD%^HEujOz
U"9bpJ:CYmRqG,RizWqUmFf5DQ>TvUn<<_&53E#a(cZ>I>TiSBVdjEkG,hx+aJH1B
U"v%.e72vPPuIP5v<?<3)$>?nY2'*)P&-H$YoG&8>?q0_L4/3kGI;+/]X_s:x+FHK
U"vOq0kKDVxuTU^21TjIZ1R+<oAt-y-'&ee+*Mrv7KPUw/RAHj4[^rw_B28<t&2RW
U"-\q:Gr.LZmM[sQU;Ffg35f\Mj3<b'B?P\b_l?bB>0K+iQE_TxXlnjaWbn>'2oW'
U"v#&akajBCecXGdv?&6.ljW)-B.)P]hAZtu[[dDAha7VBNDSNJN.4JqaYlCH>bSi
U"p$S65%iIoF-pLjybcIAh)Om5q$jS'S6>*VlqZK/WK]$ay,/_1+)GCvsPc#Dha_I
U"$q*SzjULKO7+UzWKo^0L;77+,L[BqBhpF]Mj$Bh=?w2^I*k<lu'>+ebuZ%Q)k4B
U"fb;yW2*MARRh7fr-o-7nk:i=*XSE5OzRAtn&ocqkA_bX7q$X7-6P(4Pq&w.QY0W
U"K<g,f/M>Eaeun]Bj<^2F\K]1fbtg(DC[n-$7%a^bJqv:apFel7r8s,F9&eh$7u:
U"96[EB#y=fM-ZaukqneKWy(:ayFFrWZU.FEr\x#Y[O')R_.E_2FR_]Jiq)e6OIxI
U"E'Af1rl,=Duf2iv+'sg=<\$LKPx4rv1r4&FkGo1Q^y'N?9[84rteYI4A#L(31]&
U"Z>^b#nUAG\5^^j/k_CSLL#>p?apOnB?QlA>[v*qD*o*(/G9]C9D102&Ts,B^%^k
U"w)KH&Vj5SXku;8r$]J=7.fuMAo'F5?[MHpi?v/W9:dMZgy):0USzVCJw6w&sgl0
U"f%xnp8&2rqV.GFSAPuQ)[B&g=f#%g8vtD31.05V<miu\8.4--qlMVVVC<?Y[&Xh
U"7M6C,3icl^kTqh:(RXLI>c#02)p7IF^gK^>,<i-<&fC[c67UIe3-3f,J#)F5%Tr
U"7\F;X04FMe^qC]J=AqZ4hxAbN;?=0fP)Xs#pRVAcPds9f>T<26U9_1:S\GglRp?
U"2T&&s>Z?:VOjH(7c6sasc[cc[3r<>AsV?m-E7+U(&$T/0a<n-&a/ua,9Q_C8GE1
U";RWQ/xfToS1Gl/c4\sW1U,'4.1^XJ*2h'gRaHP(AO\9#;+x+a_01'8Ct,Uk9C(2
U"=n/XINK;B#,SBLKSPZr]XH9,NN3W3HoXE_/K[37RqW38ja.+'bk[P&HN5UCmVLG
U"U+V:=qE8$Zh#UmHVJCGl$qFFm.]w3qXkt*)<0-AJ+Q+JDKUcdO5m/AtC1+7%D#J
U"+V[yUWs;fIuOhnJI-d,?C5i5#gU]T?Ve?1ml>#$XF%8Q?.zqKvp5#Ys4z2dx97f
U"-dpbhGW9GYNm#1%HC5rUtMSCI&fFzRQ&O^Das,0Ay,luT&G1Vjj_'>D2gW]#*;&
U"'MzRtYNu(7VV7f)Ka%T6Z\>BhE\M;'$EN&U-Z?tQIZF$O/e4+dnwYlGax:6,PtD
U"l#4Cck$EFZ.LEHpvBfz.B\rJh:8jw=R<YQi/3g##SToV_t5W%hp*=_y#_qK_J1/
U"efXiH=o8gQ8AM#&mT,BW7uXkZPa=F6=Fu?+Z<I'R-/'#?lKgSCQ[W0q&HrLzo(+
U"KaZZTGOm[1NZ95F'*9p0Ch:1u+1FezhYUT06O.u949I/Kn-;65-qVqA&,S;]Jm7
U"K'A5:pl%Y#c2RU-YxADJ6u25j)W:>^h*2.fjoX&/+'p]fsObub)LnpGt'q>#5pC
U"-#P&=lC>-$19HBGC=%X\RII>u9g#=n:;\D2:OoV_oIn2Yy-6SM]DXo1Q(joBvjb
U"h'4naF'S3o9:FpA52T))oNZC:W:BdewY;\lVeblVJ2PqvI#kK^mcu#bnQ'?V/&p
U"Ne-Rn/Y2aevj5&j$v*VP1H-I><:\>0qB7MWzp,I&Xj+:mfW12<Pq%Wb$#1pzc%[
U"(/P,L):B]Jm\_5xZYa,VqnNjDFlLtM?obH47k+S=8Z??8)g;H:m#7RU28:tw0HF
U"$6_;g'F<7D9,jfA-cD?+h18c4k)+7.m[Sb_+PlLFlN'YiX:axwYY<aBa+KscF#A
U"Tmi?$M$[*B0vlRqz/OQ)jI>C&/F/f#fLxK;lyFm;HO)mHE(m7f0ltLkl2r0*dcC
U"T#cc^hM,-]rc\,Xuu$^DR9rxuDn.EEGu?J>Pn&T87R?l(]iHn-5d=lf,l(-g5VK
U"Mu9ioCy.W;'b8.Be,saa9+9h$^maf^tmB3LoXKHH[O/L/X-Q(p_+[nzQjJ?Rbrq
U"uBn5/=(/Rg_QBrxapN/3f%_^6FgCz7Fe.&)emYQIC>?62:k/Z7QNRo,N=/XSU/4
U"EPuKEfd2u1di6Etk^PWm]tba7.B'Q,1o(;jGh?v%68^r_''J8L/1lJ]KEkg>cui
U"Go*-KCI,pGeD=E[X$i2YnqP,J%zbiK4Jr90V(vw*fFJs40u]LbGmi&5q&Amh[T]
U"?NZ](xe71=XO+\G35Z:^:c(-Z=>l^<zY^m+S&$9M*[xC/^au%Z%qZmGG)5&X^'>
U"IA9R5]a4atUk'*^TwM>h14/V:aj[OsI1p+J+GmJXl%Zew%PpA29v.HYRi3H#W\:
U",-^/gU.J=g7aE$zoWNecJnpY/uI+]K=PQM0]M)w?m0ltFVT2d3#/C&adguVd_=,
U"C+*AT91J)soU^jt<;AetOVdOu;br^zLlbz9-I_)ep1^Qe?^ZG]p)U=FB?4FNiK<
U"hZr26RAF(CP'Yde57SH>AFq]%;aI4^:A&&\D%qJ3S<wKRle'c]#BT\0%=VCC?Zd
U"R]qd+4SL=0$NI^R=HX66z'Y2XVQO7LD;tzq7N-hH<bH9zk(#9]&_/W>BC&a'wZ0
U"4=C1kp\LNZUl7GzOF-2>xn^H?J[_oaq\$Lsdec2Qf'hSSEp*'MXr6;88;prQ:c.
U",i=xJB\Fa$MeCQtXwe0h27UpJ85J2?\Z'?b%CT-A0V$<j38fPJEk>QVC-T$1GaN
U"MRP=27)#M0r5Xe\Ycn;,s80i?q2f%N]:]6;sRUIDhG(cu]cY)Igg%LGRN9OEe8D
U"dZV0.tL0vZPCU]F4-%58Q9a&j:D0]NR,I$ETs84UvijI%(l*P1agN1u,T*.IfZf
U"3Yn;Y<>5TT/GWWsLFkeb(s5W-F/-_,6QI;e<dmur*fJeE6)-d[63=mT;It26Ah8
U"?09;s:&F/_F3_7FdJQ$+iv%4UnW1^>F18C#vVP=MD\6'T&z'6Lh02>i+=O\+<E2
U"C%2_$3mhtCtVIS)m[z4b1WXu:(O>Wvf*&S*iD[2%_PvEo2K6oAu#853AG^-.m(J
U"p]168D$V?X'kgv(SOAzqms\h5_?]ehz--b6KnY;nL&1<f.(EL+bnDl^H&FLYgm2
U"61B7[3Jk,bgSn-XmV5(ao44[,r,zi6LKIhh,EDsb1oos95m#L#<T3YeJROuh&%d
U"%C_sY/,n,Q',sIKekuY6\4ObbW&V7EE]Y0Y;pN6Iumspv1V.?Bx]4OU]FcdFdE>
U"M6vje59qp0Xle;Q7TFYDhA$]1w#'>1(l:6/=$NCo8GDWi.s4H^/uZkeiqWAukbu
U"NA\>Q%sLS+E]-6O]a9*w(+Z=66.%sdI-tbea2HFEpMJ-n)=AMHK*Vte^)v9b[SO
U",qi#%i_eIb\/XabSp8?G\;XK^]SjA$Ik[OYlTL7ga$I;Fgf7cDgYKAh#9V6Y7-1
U"KQZh[he##CFmc%4i?CGVQ)+P:ZGKA'9qHo4#:LbK6<hdo]70r2LzLb_mAMv<P,-
U"io_NM,ijZmxmpb?Q#w-e$'Kd\HRNh\^SPu\LP,BWVS#'Ok&3#ArETb-245(]Ksh
U"cf\s?fJnLJN*m%wxBmps%%Y=.x3Q-NP(6[O3KNKciR?ut-#O-5Iv3^s%F?m$iZ*
U"6YYX%e*'sYammhp^S##&p^s=-[S./EIowaDFSxB;:F)TeU.d]X?O&0g2myV56l.
U"5'7_X]ijq&^e,9nUUcgk?=TRmAqW:]&y.+dxNRa1doCaSh<V4Vg(a=(&-0A:<Ng
U"1h8\PcYcLD?MF;?Kb<5JOa5TS/6Gj9%F$I&G?]1foS<S&<q-.i2)O:8R3q%.rE<
U"vLs9aw:.EgnkUP37[N6s_C>t/#Gmc(X'>+GhrVJjkDa)v?A5h#blfwP?F(eE?jh
U"$F=FOEf+Cf_KM#$;$LmKtqn3vVenAsVf-c;a:#4kCT6Zj=;\&k_ihI&qH26vS-X
U";Mb#.RU?;M6()<8*9oujU:+:S)pF3VY#V=B9'kY],h-(&G$4[cYj%W>?:7O$Vrr
U"bR2r#*0$IggBJ6Xf-s*b&LU\kKT9k/x)A3L.6&,S;BOW7b=^(sQN8gY2;8e(QQ+
U"vxp2H..26?d*Z<;8+#[4+m9B^]Mqd#h5r%M,&lMF#e$^6R7AWNTYEWBXy.Y(>\&
U"eXNS3X]&8$XlVCF.uF-QT;*Rmm$d#.>B7n7/esqGBRfjPCO)iz3$.2H<'#xPsSc
U"=.ghe1WK&qtoM4q[qoA&)iJrDFfM2Qr$Em<#_\sAKV+B7ogbcd)ux#Auq:nk[S3
U"ib8NS8DkSOD9'e<SzqCMXnAKPL8E(I/S64im>eWqVdi/+K=mnVAU)0Id6E2f*fh
U"NepIQafe(Nx:d9y<4iUUmgTV/JoX3$b^ULHcI-p1dx$^e)D(n>Rf/7UB\hUcin%
U"%b2Kf0],P?.B1)Ov>MtrfE'r/'Dmmfc#\=\iZEeC)YdBcn7[=(+UHTS\^,&<(Mv
U"*o:IxjA7A;kJa=Q3+OB>:&K<AZJpK)d^4/L4Y2SVMs,bKGQ.kTR9-Z8vkrF]3&k
U"[/X*[wHMO*.L;ug_ZQ9ZP[f-J3Z-0e[jy3.n.CFb+[KupNv<shv'6FlKsFN:RrL
U"kKEJ;rN)A/enlG;lil4xe1n/fH$llVjD3G9c#vT7tG1H#9JhiS+RhHr^d[.OjdM
U"M6(9FG(*C't+4p80P\)k$AtKh=q//(^C4bciE.1A1(:QPQai,#;Jt5N:i.kDtQk
U":,U]nDIjYHZ<c&]0M0*I*mt,Ff(qRPSk[NCM<Oic6N;9P]F3tt9enKR(lS6LeST
U"l-6(rD_JjATA5l0<K?Wz_-/.)%3d8$zo4.G8<Nd2&Js2\<Jz3kY7hfI8H:#:JlS
U"3#>LCbUpi6eVn[#=-QfOCE-Sp)d(b7)iR+NFSi:,u%vL5Og+FHVGqSQOWTreGjB
U"\3GRE$+dCYHH/==(?gi*?g?7p29p-ot<p%cbu*Q+d=4<dkudEaZn1lN&uiBId4r
U"#7*R;opp3P822b-UsKexx,%PLvu-4A'Q8E5v$jf\d:FVVt/NM,Ix'0J/$Zv0b^(
U"XSY-.S8+NfL\v[^2X988h\dr)7^\j$Ta?vSpN'R$gMTR8c.S+#j/dBehA]9/:JG
U"e_eOgpk,(tm*6]lhn^lD*M='0L*<G3?Y+mZi_.^'2EFep8uP)8^ElA#MHIs]6<?
U"rtW4<$hyt]KTrgz>g=Vv=\,ef+$gk<^%dQbGU0X]*/;P3L^:GeJD'?e<c'p9eD1
U"Sr?Yp2/f>?J=gY_u&nOqP%Oa#Vo*KS6J)RG9$T$\,0Dv[Rp$B7]o.H1D=ji7nG*
U"Ke>WCZJFIoG+&&;B%E,&mhiC$[K>:R;01b+2O,6<mBuCX4du:k9)pH[eASpst7O
U"+fEyY4FCRK&X;v?-/+NYYu1+1&c38:+Wgn2>kdi,cO*FPwfogu00VUaS=BMZ]GB
U"1Ow]E==W0&^hQs1JC-yxcU:LdylkWV]4N*85Bp]h%=<VbgB+Yc3(YDu4r?^O^S;
U"<K3mCT0OcJvUCNCYsAm[,9bogDWde^P;qIm02K+4lB2,8/?;E/0]3t2P?/b<0/p
U"R-z%XQP^*=j70zXa&5vrA[F7=mhCOg,FQ+DQo4*k^:T:j=n&\w,hJn,:hDWKt=b
U"S%9#v5E?cgcKG)%uaNW(xM(F,;xKGqZ&tGhvt[l%Kp#DAC]/r,V4HiXHKG2Tu+3
U"\Z(t?Ab]wrOg6$dppPSfH/2'1tY[PE2Maf+FWBRcKR>#iA;c/(0>YxGd*EI_x&/
U"T=cgn8r11.pQN*YsJW]teu2^N>7p.XLDDdtmI%J+^Tb^CY2'+OIZ./\hDyJf'q&
U"6&DcU8rt6[oq'r9yMN-Op=I^p(A24N(J#Cu#xfJ:g+x2R<sx3[6vB?#%X[(dO_L
U"D;_rAVcPpCqLsdmAW8?sg:B8tilF<(SXJl)<,32R>'k&RWvNSyWB'Xmi<IEX5m4
U"(0ELF4efwy2F6wP<zPsqM*c._2p;s7,bDrJG4k348+l;V.7n3wtFP3[by<E(v6G
U"2aEQM0x;V66W8RY9v[D2(3DNWTa+fP,(WHtCcT<2dT\3?2]KrANbP4XH&.z.Y$E
U"e.5M*P7NQtP3M)>o/pSFS,=f^ci/XA(fj>J/am&vF-i36bPXFV]]_R\1NLY>h]8
U"i0.+SWJBGZWwr69Yawa>72Ld[[J?f3D&.jzqPI3slcE3v9S3CZG46WX$SqqpZW6
END SUB
SUB V2
U"CBTG<-R5ZIqdpd'8,ZgtORv?_3NjfoZ:+h%rkMIT-HsP)Wq%uQcxv1xsbsuZdRd
U"JtJhZr:rf[Bsi8<.aB=TP;<*2J#'(O=B$s\/d4Dlj5Z\Fa#N^IRYDWV>\HnScs^
U">[GMocroKjVe1(6eVl6m&p0P$Oc)C76hDXgj1)JTn(1;;<;uOY*MOv(3n>,[6_&
U"O9^$AMZ\a+]%^<uvbEQsY?WTHcFBI]e\Qs0D_=pqRna.Zb2zR7Wd6d_na73j:p/
U"X<j+gkplg2a.ig9ZuIU\8;G^k$C>6nekHIpwMEnMgN[nN,sxW0J%(=&50I-Ngkj
U"X[d-,hUEApo=[7=qF'6os0R7h6at6b0$.UF=6BTpa>/0)kvfE_sIV]Yu9S^dfOr
U">0M2DFs=#iA=rHEgSEwPqL<%6T23YK%IN'zn8B,)s+FLVXKj^bV:#rx1L/PG:,u
U"feVSp5]f.by][7;=<o645.EL['7drNxTO-$xG)M<Th+Vq#WDA:lK>q7Rp?&?/V%
U"6=RQO=7<S\Oa2d0qqL'tM%*t(ZijU*d$ja:Tnvdx]Y6pMI'S<c1bem7FV?tJ-1E
U"9JrqRf3W6Lj0UTA;0C;_5SXKIcIua^:MC;*(ODI/rR0[DmWqn,8Khh-F/k\D0KX
U"utS$t_,h,Bg\zGgn9>$QO0'0.kwl9ddm:i]g$V$nmQ.t+ty9&YZG8hMXP0PL],X
U"3OO-hStr:Rx(.fcjK^?qW=)5FGk]D#U6I3>jdT/5AfWSY-lM]D*-$d=Ri)vpX2,
U"Fx-_odgiY_tg;'on?L;B0F[Yi3T9+T>d=9b+SQeonLjpE/$NtIqD'hi*SRT^0^(
U"Dr.m,k(Nx=.[b;un%NBM:[8sEwZwS*06d)XBQTg1NsNI6THA]rV;J>QEO.RVE_P
U"z<=U:Bfz%zs\_W;?k]d.H./:+.V0HWUD<_pS21CJ9SqPv,6fk&(q0Ya3sJF$TUP
U"ogFOwo5TET.>:;6bBI'7?\ff4bMw9vu*tmanKD6eBB/qK$n5Glu_8dT#fTtChE'
U"63Y[qvJcauEH6qjnDosana]YLa\8Yp+74\St9C&)Pfn>g4V9OmsaZfJrvnH?KrK
U"\,G)^[dYwYJD$kP9w%H<3RGd6>L<_ota&[+#\N,IETqj=1B/Ge)9s<l/u>nb<t$
U"acui4SEK.,e<qnvtfht9aida0^A7ARlYb0Qvov$o#a?+V?X\WcwJ*d]]tZTd#;(
U"p4*Yh'MFmDP,nOr%l3f\ObeQPv$O?GEh?$%SL<O2^tLNBVM6mTRN]gts9XjFTK+
U"jt^'wBs,0+,HDSQ&h;$_497dY?rm[W(_iCW4t_W_$NCm\>sEDo_b7&1jGJ.w.a&
U"FWR-;^T<lx6]W7YRQGUnRV1y3WQ0<?d0u[a.FtMTviVEP&,XKGu_,Yf4Ub?2](/
U"tA<\rIvxsoJy(?H[tgu'v6f+Z#W8aRdR9f]Lxz&UQk-JYnAVJKeH0.Lcnllijsu
U"W6*N=V:6ya^j4VQ3ex/:UeCD<&.pD*,[Ot:bXnPw(ew%N$qE274bjaOkf7A2Ai2
U"m+l+Gwhq>)_u#JqL(3%#IT+$5*KS0,tJnk*1_j=;pqWfw^SIOi[n)iZJW^Dmeun
U".ULTRU68KPB;gx4TpKe)up:d)H<T8WfVoBmq#ph]$RY2Xf4&-HA<4t+4su<a;s0
U"hol0ttmVb[LlE)^higLI6magwD3tnV#+9:s*2Zj(M]Q/Crz:ZrSJ[P>^ravQ$Tf
U"Prth4%d5CLt/N*2o,V8F^QJ8=N<-$j,,6umxb1-p0UM**6/I]g^$#muY_8u\ctl
U"_3h<7xUqXSYCjW%3cS;_'?]^a<a>YVx8s.[qQ>v>\ksXLu*JN(u%p&';%09%'%%
U"-%?#^3>nZMsw#%'%%*%*%%.%%%%%%%%%&#%E%O&P%%%(%%kn%siSg%fxup%&';0
U"%9%'%.-%)E%5>?V&yQ:'.%%%)%%%.%%%%%%%%%&%IE%OP&g'%%(q'wj%kSgf%xu
U"p&%';09%%'%-%%%C5R>eD#'O#'%(%3)%%%.%%%%%%%%%&%Eg%OPM%)%%q%mnyx%
U"Sgfx%up&'%;09%%'%-%%*c3>te+Xr%D&%%&5(%%%.%%%%%%%%%&%E%)OP;,.%%%
U"q%nxyS%gfxu%p&';%09%'#%-%j#G7>>6ufYW%)%%j%.%%.%%%%%%%%%&#%E%O)P
U"+-%1%%'w%jkSg%fxup%&';0%9%'%d-%g&IQR62*VWa)%%%e*%%%1%%%%%%%%%%%
U"RE%9P'.1%%A&mn)%yttq%Shtr%up&'%;09%%'%-%+R+QRch358'?#%%%An%%%1%
U"%%%%%%%%&%E%)OP#6.%%&m(n)yt%tqSi%fyup%*+%%%%%,%.,%V&%%%0R%%%%%
END SUB
V2
CLOSE:IF S=25AND B&=11944THEN?" :) 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\11944,219);:END SUB
'>>> Page 1 of WHIZTOOL.ZIP ends here. Last page. TCHK:25
