'===========================================================================
' Subject: Array Hash in IBASIC               Date: 06-13-03 (  :  )       
'  Author: Jerry Muelver                      Code: IBASIC                 
'  Origin: jerry@hytext.com                 Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of IBHASH.ZIP begins here. TYPE:BINAA TLEN:8327
'-------------------------------------------------------------
'                  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,"IBHASH.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%R-%?7AMR\?97xv9%%%2_%%%5%#%%m0DB7E0MAC82D;4S<V7C6*&:x
U"#l?Owuw3>N7P8dZ'EOF9E;(>?&7+k4=M5_\DJYx&Jw(JD=rCPB&:u6whtqkB3$(
U"GS8LBR<A*GibcLsSH2Go]I*,>]S43,=nm2=<c&.U8jS#Pus#uMb'6y$p#CRmiLc
U"RZ:sSDFcujV/(ll+'by*nb5;m(3(DRqPFMD_q<yV/X_009>vVWvlT4loulGo/k9
U"/n0QTd:>it>JF1DCa?U#FME10f]RrGX,_A/V,TJ(C45O3+*Xe]eBmq9Lfx/U[^l
U"Xf+Q>sYj,x<(BvVQ4=iNl.T<s14N<Dlh5KjrvEdb?oD\<:lVf+HfDeAi8$0n0OY
U"jjY\n.NO[XihT7]dD3M41lJH-p^nyg4TrcV$&tE4.lL'N<>r0n((H&(2u7Kzq8^
U"-br[OwFCi7+8&q'%m[Zc/BQAt)-7R?uVUSM:p/h/s-vfkac;8q$6\_JZk4<X7=b
U"'4LF-A3S$XLOBn:=>p,_a(V#;1fBUMjJh2R[B.c[$3g;<B_FMW<L$B2MX?bTn$_
U"XJ,Gu1[V%aRAs=Wepsio^]o8^soC/DT],dDSJc>Cioq,,7$_0dDzkqB:dvZgjO%
U"5FId#gt*<>&K>_QYW//IT$295b^gCeblo34g,JRw6Y%FuX*IWet+<;0Q6:piY5R
U"5xtNFFfWw=0y7#:C<\+S2t^oHBf&Ejn*tpCk0lPE0N9)$H#.O35?u0XmGMJ&VRh
U"ZzR6?,wrdNoF/cq8q#-*L81OKT7d<Lf4*-24*USH.;Y<RMkU=8f^<*\u'E\uKnY
U"<t(hs-]P#Aeb<*?9c[Jjps(vTf<xo;Mr9UVg$I];%*)l(XdIBDM^n?(dby<Y.Dp
U"P:>B._qa2/$y$\brzx:_R6LsNagIcGD(qQjXDaX%Q2]V=D+x[s<(iVsoCc]9#to
U"f/S4fA01HOPg+2d[/FfrZUWb3\klO,a[SyRCyz+k_5a),AhsCv'cIV_[CZ-l29N
U"LRTF8V1SXdQ+ATf1A.-#jOKJEz>BjN=\+[Nml4_<f>IU$-;GyMKW1?83ge)6^M:
U"-nMMKA'qYML?Kq\I\ZZFyV6v#V;Q;Kw=Yg]Qq>ueXXZF%Gop^0bsF4EGBU:';Eg
U"a4#b^B]JAy.aP[4%8iE?*.x#\md*EjiHZYJY3aziG[[g.cOK/FsF?Ki+J_*^UCM
U"b?g+t3R?DToXO.t6<WaEVFKgB1>h3kyFU*K2ZsqAbvqQe$]72NL\T%MefZbQraK
U">\F?U5WjZ4WZceYF4,Emk'u:ZJ;8\w1%i&bG$bAK<W8Z\/j+hOq(Y%6Inz3=RE6
U"[(iBX?JWwhHTjqg7#WF^TA9<X[TZh1D]gRNHP\,;KvrNvgcpOe(&OW9nle8#RP9
U"mKVyk\'4vXX0>H2Br.\#[ncQ7=GFB?Z4jfb2#c>-%coWQP=)oD=gHr^&YUcnqo*
U"F'dCZ=AH1[1HYGi;/(wp(ODMGvRDLI*+5*$+Imp(z9N'0u(P,mpa'-6g=n4gh/T
U"Nu>RsqRH=)RE4]L(L*jz%WJ#->OW(<1l-sb+j\#qq0ARJ4j7L.KF/K#K51&1;>m
U"IXVtG[Xv_/Er3o_Y5MLmBEgQ1)DWa47\ER2<j6#qe&UXl7ngI+,y*bW9bW#K1sD
U"avWuWnl*AStfi;vOc1uRr=<s2+],X'8B(KQ]3V7seI&ChapoQobq^aT1W(<8,mO
U"ko%R_Z%6KK'RVz/Syp>=yI=I>WF8(9Bo58NgeV(,mYPg:^a^qB[NX%.=R)Y&h.W
U"(Q#UeIo(NGDUrT,bS_sAu+[NJJMS/Y-1D$Lw();KOTK1ZQ:\)H^#Ge7KCy(7S1\
U"sFg*E2'3M#^qqo)L>BE;xfHjo7<>1[UQKK>p;Zn8v%:FS9y9UInHXc67),So7l6
U"+0N=,E0Oou[x];tB?cFx7;Cu/d<+AKE$W'$m4vZM)Ueo[$?4Y,dm2d9m:fUUr=u
U"goWhD=x2TT]N3gb4W#Xg1v(MU/%_I8[6t-9%$aiF(1EI:_<?YoTq7a013p7UBQ1
U"q_d9(^X_Jr=_8MAwUg.&zpi:n3lM2Q(NJj7l1%wUKudSIwh,r^5aGM7UmA8-YFI
U"jAWeXJ9&+.qFF_,,$kHw((u4h=n5D*CqpQGA.69u_,i4ELp>S%q,:'x'7WGWuJV
U"&KQ,wsyJ>#92-F6.V?$Cp-eTG]26do,oG.An;1+G;<RFG8L/Ei1/(JqzbI.]FDo
U"->ZxO2&A4o+bLy<.xoe7)jR]=J1Q&91=V:cMhkX+.qZuErO7J:kviP#Isn_23CP
U"VV1p([h5?FeP6Ys2HCIj[MG%m(i>Dm;90>g3&B0qzBD>Dn0fRk$o+a_B[Dyz>(l
U"w]Ig%Q4J1Y&P%EGbdAHU%%Ucm)(e=#8%CTDB_aQ+:Kq,&;XDN:*0S#01tqxNaCh
U"V5z5e_9:O?fQcE(g/Vr##ai2K$QlSf4Nehk:*6F;>bABhhEt%6_AIw?t+9\M?=R
U"<;:D,FeUPlF$'/7R'FnpA0.t;3J1<JZ?8.NEze8RI',#u#2ePwjswp4ts6eF[HA
U"[/u;GOkm#kTS%lcVN_,A%Yr'z2]nf_Uf+tJ_?ZWk=7o+VX]44$OpP01f_MH(BkF
U"QI+b<NyXx91(EQIgv&RM7nYWWKhOqC*GQNEqydlz_YPmD1wB*ls\MU*ESa?C+<M
U"O(T^G[%px+AOJeFy,5p7*cSgVV#<.5e6Q3*[^yPqvY-:)6QN/Zo*qwJ?zi/aSF'
U"m)^9Hz<rk(_/:u4FiUH8+58;4.CM]qQKGowU&s+WbC/[9G74.u956ZWH*p$U7OI
U"gZ/DD;kr-A:ImD7Ou5?<pMZ\$HFRM4(Sq85a_K,3Z?<XsaYf*TzY1'13w9g5[CJ
U"nx0\KCKa_gCjOHp)Maz%TXsh;tQS,5(Yt7n&k9.bJ*iAlDRcP.[Fm%.NFvK6L1<
U"pR<+E_;>YkIj#>MHd6fb1[6He[y.D7FjdZ=h*J=G1\Fqbb+J:&27fVG7/djnY[$
U"%s.[[TJisUoU/PH(wv_2i_XWSiM(s#yyIh39piB2+BY'Hm6r=4itkIhC)85KC'\
U"Qd?e:$_q)gY&W8Fv,=+hfA$\)A3ZrtS\wm413?q]qd/FYFY(63H^,ZY46'ot&^g
U"y[W\D,tCpy$j=JTs).\rU1#TgMXY'J*3?T^Ja\i/_x1YJl'Q++GvNOS.N=1vg_y
U"N:HwMRx'eRpN84+Mlk>L%2:kR=T1;L]i]CcI1&ot'sUsk#R1=q1oKx)YPTwa.tK
U"$S2lRZ%,#1qFi&shhu)=$QgMPil05K^u0H8:)jccmR_^#&50)qj7.;koFPUZYY=
U"h3Hu4wTi)QG:$f:+6Ma9qq_l.6cb^P,*N307Pp#T)K.]XykcYG^l1QG^^um'W=.
U"dr-kR/(oq1e&.>B9/,&nj*IB,zkZZiVl0TdGWV67YfB\z>:Wh*QPhDI1kDr+:PQ
U"hwtqwwMN%wfayY.<B_GH15Epf(m1iCijWZM-E]%krVz?R2M/IQOChJt[$NO.6p\
U"KR6^P[^[/G2\?](8m5^=A6x]o/:+L;Crtq\86uWe[:Vtm%=6G3<nb[y+'+TAbW9
U"[*3?ni$^BYqgqKp'7:HUk=)mo[[>[sTI)JtOIVmwxc)KuzkPnMd7V,.3s:e^srj
U"ZH4?mgR(U?p2*yN<F?6(Z_eJIHU'O>FHIhmoB_S6Z*\G,J#*S/27zIfRX<BDsFq
U"mi--S83*#,Xdy<9GG\WnTINs6kGRlIpMYwEj2)7DM%RZt>ASM_6QFFMi^4xrFQq
U"e#Q;[c&=FAMK.>8JYwl^ZIU<;BDraQYaCkZRi4+SkcOlD.rU^t0I7&#=Hf9D5$o
U"#]&Ql#T&ozP.e_uLLiJZbMc*EmI42QRnn>&,xAyWtPnFDSds<+ddOBQ(,1s7uRW
U"n^$ZH^=1bwN\I,+x^RSB1N9C8:2\4WnH3EaUKF1Fp6%0=]VI[l9na?[Y,fFauG=
U"S_'Rf.[=[]Su\#T:1dcG?u-Uu]UAXJs;G?ck$F3EL=HethN:em8l,H1ceLgXItE
U"#]ex6>.cHUj3mg0jF$=iY4TXPC=l+H70#c#96tu/1Ixn])MTl=g.#>uwf2$CH%5
U"%,X#(TB6<2Z,(JY)J6ov(Bv6-3Nbl1cn8A(Z&BkbW3R3L3kReSSBPpYbL)PJ<Z_
U"gaUOnWvdDpAe[J57Wj2$:Krt;3;\GAn>1F6sRIQT81>CA:4nGW#st&$V8Qe,M_[
U")Y2+QUf#HC4#\k4oKJWuSEOFx),FI7yFeZ/(J/pn[0?up')IN?n#9<N\14S.2O#
U"WNqo=DZ$nEK&s89_n[qP/^[52](/GN'llx,5Q_lH;ZOdW<$4P*YQ_IqRx1-QWY$
U"w0M33A5mZh]M[AiV./gjZA1z'sMAGNgKLBCJ^Y_%JYhl'^KlM?I5nagp[tXgBPr
U"A$LX*j'SQI+:nm9_o7a1XBQaJV<qW]1A64-UCm02,pr1n^dI*eCH4kHG0<I2l$b
U"Yxd4dG*ok6lNTjMq[oCx'AV#?QT9NjYE'\(k_UovI-Hj96rus'3W4040hhtSgZ0
U"x9GWkBpbfVv'SWt3x&Zr9oVN#*%%xrol?s4ty4kGUK_5J$3,=*x9^=ati*9YS[Y
U"h)LWuTqtmB;1IIOCrD(4eR?XFj%e,Tk*.DIP>Mt6_9Hv%*eYQq:YulK9I]?D$3b
U"_eYO]d>UIG<_dPu2PkGCi$Rf7D#6IV8n4jxM^V:>q/$H&8k5&op)ioRWgkw/rU$
U"64YMPK3z)1g_6O],CceA(I3>^SxL7#B(OWc%qDfa(rQub*$H285Tvg/aD6*J4o\
U"/3DvW+lc\9jlXx/W%;%<&(/*469X[p1DsH5%2u;pr##,-uH<;80M1[>odM_l[6:
U".eB_Dv>o1o.ng**lJ<MqgIb8Voka1Bz9:z^kF,W/Q*\59Ql^Gx$KDE[G%uEaCj\
U"YJA&hC]UTa0c:9DeaT/l2jxZ%'_Dg)CW(:G?xO8/hSa3D\J?uq9]Rq*UofJm<(h
U"GiC)wEi9kMv,cFdy-i(yMXn#kkeW(?)/+75;1;q0>poDm;(]hh-Or*ow#^bYxl-
U"JW<I9Fi88?Pn<&F/r\hU2Q\Ia34UCh^UwCwROZM(34M.k4EW)9Iw8+RUE?mUhL9
U"#rx)'d12C58_);415[e?<&wBB?l%p8PSK?9V7]N,Z=:.N)$pAMP_aMw6Y$2x\Ua
U"zXCS+k555u7wgYl6uE'Rq-mPX'pV3)eq5H)?y^B=B2=n*Zv2jz&mp.kM5(-O?4K
U"dp#dIqi4M$_5Mh<3RMzXgmaF#;eu6#=?zeXf%ej'?klH.&$KW6-BWDXs,/hB%Hm
U"JD\JVp]UR$U/EWHpq,jQ>(ThEn&lQh7Jvymm8Ic:J0p>Ik9FOnM^xCMg.&kKDe5
U"LXO#r\'A(Y4/(sDKL=UbN<HK**JCGq<>o]]>tq<fj-Si8bt>)tMeH.tsXWeS7?r
U"TPaqp1Nt4p[[#JGY:VLU:o*H:=W2w80^&.1?5a&9'#S*7m,PM)ApTyt\,M_S\M2
U"fe6>U8z0\$CPNhd#sl]*#3P(Jn7oEK:=IN/[?k[>ABae\g8rm9K+[\gb$0AS+U8
U"UI0DkLh&X$8p)]NWH9xFf+Mh>emm6gzRhb8iSd4f0f]_Ioh7+2O1rmJJh]d'^\0
U"F5hnAVgsW<28'oZeYlKLW*vA7D)[OSCfWr7]^3Kx_RGD<=MSkNzO9toMqAn#)F$
U"6_oOCd(4l=I/H6'5,9'i#Ie=46oyJL'&L&hK5:5pV8Zu1,WcroN9X$uU<[s'6vo
U",&59=Vu8flpebS_SZ<H-s[0x+d<(NlIZ\aRf]wn9ZBT<zs\vl_k(h3Isv4X7Fw#
U"<6^<&BnLrjN-XN0Yyux_M&[]_awN#jzZYF$VuA*18M^XMk8id:nPBP3$$MX>gKc
U"2/(XIlHn$5;ApYB7o&%#=6zVOkM;NnZd^rjT8NwukbQJK4ZxpLlPN]9]x6XcWjI
U"b[v05k0$MMdrW<h/)T1PXFY<LQ,RWd,rF=hql[c?IB8]<yr5yxoJ\AH#QNf,H?&
U"/$D;p%2YZ11%.a5Ly((A,1+g<>(fQ1EC*M$l'uMKAE#bWna%;_*mkt1NOwF)2$t
U"0uoFTs44VwNrjQv'OXbPiE.A^Sf^/3.zzR)SU6xcSZb#=QrtMFb?SvTZftOH=jt
U"v[+^NBvJfBTi9.ysG(ns[W(H$K3&=j0<r$R_t)mWWi-Jwoza:lo*nX3Hsk>G:3^
U"gpD(cK?[*Iu<LJ5(i>g$wxnYZR^>-ZK$HFTjxK2FV*g'<A;AA:Ann3f(/Md&O>k
U"98apZpq)Ddfhbvf)Z38&5t-R,K09iwOJy\?,ex4g4C+3uI,gtT=DKHxxc%DzY#S
U"iPG$jOlwNAr;T#<_mLCvpz<l3nc5Nd*9i\JeL;gBj,66q/9NQR6ih$XE-HmrrOL
U"$fJOS0']F*5sn<$qN;TgsDTomh^<Joc#/bx$3<M$rq,Y(tSFL^HAw#o-Zn4,f(m
U"^,tdj^b<6Sj*=%j[7A?p-y]9,*WfG<A<=o5P]2,5bW&%R*a>LrfOnC<#hiw>^Xu
U"Vrkjstx0#ohav;?j\A+I>6yuSDF5+\bz[A:hY^gtoQ[daaRfFko<Cf0wsp'5N4i
U"SEbqs+fuR]tlVj&/VK4Ie[rPGD6hRDdi)K8PYoDDN$a,2sN#V6-ucEGrco^zhdt
U";\4jTa&Gj?uD-:a28hrG1811a>NMjl%'rge)'*$kPq)b1^(:>N>C,Q[vYdp4Sqt
U"RP.VVG&6h-\.NsrY5pezuYlgdhe.KVck'%_V-UYjIL<&>A&v86B107M>Gi$%m\C
U"h[rPvKTYJM1>LA^zL]]=d+;Pn-d0IBqO;uncncm\OnPdFcvfpuFq[LmcIFBw6Yf
U"<T'%k4CjuMNgDcWBQASkKpz?s2F_s*SN&u%p()9%%%%-L%i7MRRVGl(Qw/%+%eI
U"%%%/%%L%81720B7Sh810^2(*>#d\;M/F%v,E)/o7aloC8410wj%mnQ0SC_A[%C;
U"')LcYEuKLerpEUS%M;lxtM$M_kp3%Ps6LFe*'kj1BB8Wj_u%:Q32mKMontJ$9vv
U"gG\M?h[ox5K%/(t7_<dgoH02cbE7:J,%uh:W>%5yLzEzYXuu5lPypdGF.q_zEKK
U"CYRjz&VhZ<TrE,'X-Vp=>Fm(VJ0l[B/i1ikNd7A1=t<(u--7_Jj^Id#/GHsRdq4
U"^GzgCLD1P=m(bgPX$(E3s)>yCVzXz'a\)_h,stLQJL+dJq'%,1Op6gA1Jp&)8t7
U"V<7h7>CtM7dOKm(lE#;K(('Y1OGI+QDkk;I0OoAq_HTw>ZQY1cDLyY'5Gh*ru2=
U"4-^Q\l1t=j2I#81T$oYcT5a<hTE82Obpp+VL*.dm9Wb0b'Z>;x*a?JMut0Bb8J]
U"F'C&y[*L'5Ro)FqOMP()U>6;X)T3*hiDMlBG'&y-\l6OvQVM$2(?YY<]3my:V%*
U"(dCQ3CzXF:*F<=:X-5\<%7MWv\TXW&Pp<QsNg/OzLK''UFy2mc5WG-aY%V3uYn)
U"D)*QKD?u)1MhO3'v,>mdLJ2a%D<ofX*Q,SYIIYgU<2ap4m$_-9ITO><_6lUAiXi
U"a0;?APEYt^8E;8uv>(;'cC:B*6sQNomD%5Z+aQL'/OQmYG.Ff5o%JAoP5aO#npH
U"o(d,yP<aE0U1dYtAXtNl+9K17Ywu)A(/=eiB0^(O(dl)E&3ob&k^2&c>SE>;(Hv
U"2zyG&#mt&.;7Y6w[=oKIb3>UJu/*LvDS$Ky(wVN82)8$%40v0:,R]Mx-SfOg[PW
U"no_wa:%>WpL\0oZ8o1d_7AmvZ2:NJvbC6/Vr4/w=8W;&p#/Aby7;]o^%X=MtUR&
U"#+\Y/_>\f=6n&=RKfuc><k<X(X3QyK%u+i7EFre+R=gzs<r'd*QiR2+HPB?SpFI
U"7.?75sd[XTi1eWtX0#&$OGA..$Kwgru;>YM:Lvl(qXrq0'.Wh+LZA(pWrmae*'d
U"?dy:cq1.Yp69?]e]coWFK,&p-FfFdJ5x0?DNOlk1)a>Sa'G([Aau<$Z)(\k'P:O
U"K#fr=o&p\vf.SGXKIX2[qUO&c-mLj_LtBhH(i<fcmE?%8>%2\k5A?hSMdl?3blE
U"WXA%0w72u:Ok5ySoo9+YNk_*pp;Pq+N_&4J0)gKyU'kZQ5Da,6KfP3oJblObYoO
U",4PcO;DcB&RN[0eTsPdO[BR'IUQM;,qHG6:,Z,gD<]]v__4XYi<WhC?$N[l73X[
U"oJp^7<(O3y7V'q*S)<J*$'q##tN'D(upvu),nC$HX+s(Tk>f\BmO)Pff4f0BVqI
U"HnuNFw\bI/fsU0OI5(^zTBpV*GHLJXOzp]bJgkS)J$=;W\'B>HQG2FccG<FcDGE
U"VnO%U?\BMhe=pWr5A;u6Ya_'s,<.]1\]&7f[5SJfa(%S>CQfP4bt/X0u<DjN0A1
U"Y_%4n4XhqebK]VyMLs)e[Ck*FD$3VF7YeNB]VG10h#]ny)0\7X(SkC4ldrPrBDu
U"dBFnKN-2?u;srI0n;Oj1^Rzr[lU-x?OfEZ8y)pOZVGDz3dj$jEhEkb70GrM<f:D
U"HQ:WD3>g3_+F8UEWXeA7GgflWfm_8SNj5bf\R\\L>*sP,>cn>Jf3qE.e\.%PsL%
U"#.+J?*tTu8-nVnVns[YH[fRQ=N.&YLjC;>DfgHop>Fs&Q#[\9^Rv#1.<\dd9&YN
U"LvqV59uYFfi$G'$pzinE6UXn*U&1awPSU#4#6VcY7J[aeC7ZH:i5u0lN_iez3>X
U"KAoPG.D?*8UYj_fI[N(jMtS,yw1NL>/]Mi)%p<T0niH(Pk/9I<x:$WG;mkp,xXJ
U"^?><kG>(bY1wuVp54LsuB1Bm-G6Ldlm<O)KVkKP/R8kk7.?iSI?YW-6wQhTsE8$
U"ZivK#j1Zq%DcT?o.84'v^usnC=:NtIAGI.Mu=*3(6Bgj]gh4yN_#ftZw9^N%fL$
U"7UMIKicxT+9hgQp(Q]SXGC3Q7=(uo;^Sd$I)oVgsirgGQ[Twbe)Op_>+0U-;8mG
U"k)+LGUv*&*$VioR?p+fcTK[g9>YM\CbusKoU?*/x'+81&13BsC*fnph2>WkZ_(9
U"wOq5xlq6\>:Pgwq5o]Ey:/Wev'.JqZkgRUA3x#b2?B5$C0X]+%e;BuOr]Fb4cP^
U"gUMOni+9:bV:,KYgV^gL)0u5WN#H//TN,VT1fiJ'Idbl-Q*%2+7la))NAsS\Lu+
U"\'P+Q-o7mc.DTapVHLrs0<12s#gJZgs*HpnrDjS4sg1Emx8/,b4?6E4qjr4GP2P
U"VAnNeGv<q\E+$O8lUs?/rk*6Ed<YAVO#>$V3ljN2UKppu$1)dA[3TsMeR,ufsg0
U"CG?LIT,lu]bPhFx=zee['ehkk?hlNq:qLObuov5[rx8_XG6vz;HhnhViE>)DQ(_
U"PftK*\fcuxTgr1Ht[TGnJkZTE>0:oF)aL[F&KcoYpg0oSSs43Cm9ZGe^,aN)L2n
U"j\m5rou<Vk>KYEaW6V6\bQP;XX_0FFgE./8$Wp(i=>tb(GQMl0ey0S%Pm1Krcp^
U"3b'BQvjrr;HHE*V\iWVCQNHV;L=X.U^BVGYq=JRuhY?;cn//HunYuxM(E[S%7g?
U"gEDtDXWJf8ZzVAx#Wu=t)d5EAMwVEY+RgKY<?G,JO\3O\sNYQTfd]ihFB*9<9wI
U"sF9w?jDbIPrb1Pd?0ekJWu<6$3GIur&:Rml*.r(&;A3q]1OV2h/k]Gp-#V&Z/?i
U"VjsdXZpBJmw(,xg83P3)grrMM:;HKW0LDI0V-t-gXgfw^qc&r6JC.MINM.qCW7i
U"9?cuV$AlwO&)J,6SUbwC)gJFu>Gd-kl4FPmg]YO18th$StPmGsv$DIAC7N+lP\z
U"ojct<hU?l'F7\O\7dosymlkV.8=DeU<?Sr.SlFfrr>U>?8GOU:N5KR:eR+=l4'.
U"KtXMwl/tcE'U3T3>r/q&rDb3*t:Mf*4K-P&\Z,hWbzJbsP-Jr$*AjY40l5UYLt5
U"^gSDNhHJFPugKSWD%B;*g567p)q/F^&F2Y&)>Cf4ki2WneIp84he4XvSrrUtgw:
U"M6jFiddj%FjKT'tHk[X6>pC_biOoBmQ?MxOT([n<AaWFI\0]%^*RN6]OG[kt.uk
U"_I/1'(8f3b8*-C<i:A_LVWK2(\Qh%5(I6r=%R0?*$ILwDzU]D05RU28O[117_,U
U"s;;/wvP2<NhAoL.I,ZYl-#/0S0hgsQDj%'4)'(d%:*ax&e4=ot-eG.fgf_NUW&B
U"=%N+kH]Nsde]3W+Pl?LqT5'biNm?ap'4NYqInK4F%<[bCd<dENi3q0Bb$:3k*l#
U"15hJhI3?bz\AI*4YKvw=iQ0aM$bE1i4sq0/ZO41E^&1./F6A35X'mhXg]>vF):q
U"PP\e?lEQ2iqZOrYTf.*WPqHuhiq(FKgsl<8SX(g'r&B.h,o(Chbj+#dY/#$eM;q
U"dr0%C;>UC\0suo6lf3_l7k/o4(vNu%p&'9%%9%%[%-%?)7MR\b?7xv%9%%2%_%%
U"5%%%%%%%%%&[%E%/&P%%%I%m0BJ7E0AMC82;J4S<7&Cup&%'9%9%%%%-L%i7MRR
U"VGl(Qw/%+%eI%%%/%%%%%%%%%&%E4%/PP#:%%8M170BJ7S81&0up*%+%%%%%'%'
U"(%E%%+%tD%%%%%
END SUB
CLOSE:IF S=1AND B&=8327THEN?" :) 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\8327,219);:END SUB
'>>> Page 1 of IBHASH.ZIP ends here. Last page. TCHK:1
