'===========================================================================
' Subject: VARIOUS BASICBASIC PROGRAMS        Date: 11-08-97 (01:20)       
'  Author: David Stinemetze                   Code: WBB                    
'  Origin: davidstinemetze@rocketmail.com   Packet: BASBAS.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PROGRAM.ZIP",4^6:Z&=13885:?STRING$(50,177);
U"%up()%9%%%#-%7l[sH[a-'_E*7%%E5%%%.%%%%if&%niS[gfxV\&vt\.]5Ml0[d
U"[GDsrpx8);=RYJ43;'dgim8Ir2bqsLj/OS.72ec]CRh.NmQ:nk-*$gms$Mq1^6T
U"?X\>t5Uv6Bvb=bF#v2&:Q09xPoigW<tS'e(Sw)43OX_1BO0c,fYcrbIXm0s3+cD
U"%#a.Nr<BC:w5gjSrStm1i0l=mjbe9y%RCXBa_]$_er0opZ]<^1a(8nfI5HE%q3w
U"3?1.XItJ-^piq1Dg+v-7eMZYTBcNr'8F\2h'v5'L:(L,&pp/)LBCiWSy=83kv+B
U"uOd/HZS$VE6h-W*=q'5-Xk\iAleWOd?tZPm9J-Uk/31b5jG[]tt&Y;9>Z':4$<:
U"T1)S0][KkS+IDNa%UAmtE?A>-k6^'.bX:T4N990Hqgbcww60JeQ.C>b&[-UB:Oi
U"Q=)X(2c]5=\ku$]1.,WBIxgebT^N//#HFaujs07L$%KN3UaotREA;ff4.Xi.E1b
U"?cvI4#P?WU-4fir+5+5gp^sf=?:ywQdrJSLhLpee+p]%m#8ab*JhKQb',p^%v_S
U"1bin=Yf)EY=ZF*iE4[i/6Tcdgxk&i_+hICEXQmS8wFRAJKFd^Y$a7dTvZIC['[;
U".y.vW1fuA0K_Gx_nw9jq(Vb<juuu)hds-k.QZvxuraOoSY?'Pr]*<q9g>AtU_Tp
U"WSNr7B%Sp\3MUzS,i^QX6YHa(+N6F1Zg\l6d(Q=6/CD*YlT'xHO<4<YKy^/by_\
U"PbUughju[]a]-R(%qn]1O(K71A);Ru>PDRBEbYCEQzH?FS7^iA^)(tc&M_o+S(K
U",</1^l:0Mt1KG\vucw.8/aB)>SM);ET1;rco%8BZvtVVoVAWAAy5T:5_t:QI9cW
U";9TJDc(zCd$R6pU,)bR(C0q741K1/h5(+&ONuja.(PafZL5dF76<\)BKFCNI7<Y
U"VEX#omiO=TgJDZV\O*)1?7IIISl.45-#hH$1vHz/SHewiX%#RK,mhO&N>yQd7p^
U"h_ihk%<Tce%ZeOXy717EnR/8wiT7<a.W9ou_vk+J6q$'=q=9%zr9],D7^aSI)=-
U"+*'V83fAOsB^mA<]o:n*(*'j_vovnI6AwURnads%t^mOE))Jx\kCZKW6F+$6h<k
U"vMH.,E>]=RfjbNJh%\il.dpxojmXa)5'9rjQ)HkV8t4-r]E%ZkJo:Z2,-,uWyGf
U"'[..$(->[KSjw3^ZqtQ]v3m/v&\JhjpXDF'2w,OE3l.37G3V;?xlLH(EjxSU/=/
U"d^w,,=z(cmuM-UH#'QmyaQ&crp67&ACIW^7/kux6_h6k49+A.fViL(_b)\Yc-op
U"ueojPG+_Ro,3jLcK<,ISZ=f+o-NP7FyhKiovdaMli%89+M:Y(dfT8o=40pg,u>K
U";u[yde9rbtGHWUS,jS?HO+^:4NaC[-s>3EWa0pXZ&cwt#chHMOiWIbU*[WMY$xF
U":l%(^w>&P3>EMbawl/D>N2(Z3(L\D:<q*.=Kp9.asKFVV']9oI%7+NWQS2$N<Uy
U"t_mnUm>YBQUNnNe5A+%h&;bOrx+cL$,fza/roKq;D-ZUI,7_1U9KFG3m_8CprSV
U"q8Xs#P6w2CZB)&Df)2eh^0K\a1+1M$iHY,e-mrSs+_Q^t*4,$oZT4-1J9=q*0Wd
U"x_].%SaL8E(PfhPSDcjGs/d0Q\dT'Lv%K1=G*_;uX(9&,dk,Au2u%p()9%%%%-R
U"%&%&OH&o/-fm,%(%#;%%%/%%#%if%%niVS#gfxlk'dBTR[7xmF>x4JDY5O%ncrc
U"^HS.a2(L=TXk\exM-BmHi7gGGI0:7/Ico(d5^mQ9\KDzH_s)ojTH>g'Z)ZF^sWM
U"N)\C-RQv&VAJE,-xxUd3VH>r)HquukTL(Z,D#VF2YxO%X3ag#AmOmMS8MiJ1]1W
U"7u??=)7$(b5u9QAK\9AkLFaAapC/m52UfVtodRus?5r\6Xs[$7R64d^7wi:?Tw1
U">g;BKr+oIbFZrDvn#]$T#F5i?tr38uk)4kc-%'?uH-_7a-5&f%TVCkQEt:A:TuP
U");&cj8-Z*6*)s*X);7R[UYG*T*zSSKKXh?(I#1Me59EQN)T)]_?*NfCpSp9.hIZ
U"w;Os0'=q7[c**)'aT9?wSgRKQHoi)xK[dVQNPtS-45TjuY2I.s&dLYTFqnjfL*$
U"$dZ,-$9=T?eoa4?^i?g.)PY4mK_CO:15-:M_(Dqn0v55dk\Ai:u%RPAdUs=&'q/
U"UKLN(,(P-cZ[UA$c[HE1BijbhSA5G$MX$o/AkKg2(qBK9/=Hk[G?SPa8_h=ZVIi
U"8YEZ+]iB#JUTRwWe7OC[+ZsX).-PgK&X/-+*H^,n-\sgd8*FVlmZI]Y-_<k?Cn,
U"-Ru*#J%m$(l25HMN2gHrg\4iY+X8GJvMMNEs+xsaM:UqkW7ai#,+D1+?53I/(Jy
U";*rW*c#1,Op%/193+^CG7IUm7WVPp+)/[_E:;'0<L'212]ji1)o)_yA,?-$;V8j
U"48dOb&:^%/8xe])H,j&^LMXF3QZQAQAH].h=Tj=SN.J.]uZ.h#[<;jOklD)ehYZ
U"Bgbu%?e9pa1t\jgOH8,NhxUsBCP%W]YbJ.2rUtjeqx_Y4spHvO5n:oppcDvrfxG
U"6;hWO:bG9YI&8F:?][B2ah,%vB]S600x%8UgWr_B;2$)U;+'A7su+qwkOJJXcr#
U"i]O67RFjo&y-nc%A2g>1Mf[<.(l:75a\Jt32(L(NFS?Z(sTZn(Xp3VPG(pj>Pp7
U"#]\bd22k5tpipJU2em41CJ?j\2&u<B99no(/RmKl]Rz6bX))d%_$Oj^nAevkc]N
U";'^-J*d>2xfz#Ol%1>7WIa:]<3*()Vk;gT0scI52C?E]U/$Z?0)foDa1=XLjD[]
U"S]W#lZ446]R3JK.r1BnrukiTLGEt)BkF2'E&eds<5ZjCF_mm\oa<?HsRL&gAIzm
U"E#)P01maM_a?/?uPQ^,'g;m(;_LE6/-::PDap$tE*$^Y4KU:0UpV=_%M#RrZ6iQ
U"\<dXHI8/cuDa::h9pv&,\kMH^5vWL^63]HIUTS^\1oX2Ir9(W-]wm7b;QSWorKx
U"1#uFLU1kr[^W*7<$_g?<GBVbD)[&M&R*L5y#=;_a=)XDom&IC]7Eq&9^bchYtWM
U"S2k#GNDXW$d8wgh.KWfV\5TsM=%f(4J/yUs',mBWM(Jm:#5o^iYtU9[Y\rkQ-&:
U"Q_eb&5(x%+#*63-(:/B5A_:Q9Lvpp?BFPSV6F[sHUYCgLED7V[8'u2;U2,X#)%Z
U"#5YAH#f&EfvM'?oR3=#$ooe:^(PMbdM[3vI+UZd*th]OxvGf5cN/f=qI=BUr_Ag
U"K\o?r:QZ-(wxc>qhcxBNr#)TILN&BB(FIv,XhZxDs;cD#2FLf,cGia]#xt5kYx4
U"j>Gu>ut(4>-21sPqmVw3]V3U++h=F[$r<$?gruKGh$8hfXtwq-YMla>c66p,]l2
U"f9XOSpL05xMB/JyIC9.pSCn2nW8.73I3PF*(Kp5xR#]%DgIe=R]*^9P,u3cv>$D
U"l=TyAlj7yK/Se:0JSmd$,YUOHm%n4;PC_a#BDRgMGAX2:.fZ([.*d)jQfQ]%cL2
U"3#_74,-U9EPQSxZ/4'.(aWm1wa%gTubZ%ojtw*Ro406BI8-t[*BIJ\LMDD%y0TO
U"E6j9gJQEYs2?BiY[[7pq7sN2%8>5v[#iY-.-1*y,P):i(2SmhAW_5q#+gp%72f>
U"l#YA4=P:uenjq_H',E.s)?Bk,Nts5AL.syzuJ5]oujVLrOq-r[Q*8ih\YC>]<Zf
U"^09M],A)'4zLo23Qaa/WV[st=b17H$sxJk%gSsFQetlVd,oz/nc&#0o;>PGkG:,
U"$4bpH8FL,pbNgT(huEC7>x,K]Ym3^3uc1Pne3prBX1Dq]JwSotL$h.-?tL2'Wo^
U"Y[p*k^p<;h72S6v2u5QnNHAi=iZBhjYJX#J%(?%cfD20aZ[cd#yf4jc;wsB]tCM
U"bl(%F;bX\e;4zT(.L<v]p)W.QE6Y=A.>z\(8U9DN.[ieRxmC=FP.L#hB]<:?5NI
U"sXzpqb?B?+?<1#c8ZLbg-SDLkcsyWVDpCt^+lhVHXrSI86ZpoPt^T'[Q%=GQTCD
U"3jcJfgJQjhQdn3.Q?oeBxptc$'1RBEDUfiVOL,d($LJ4unz,Y9SN+d]Z6U-U95&
U"Uf=>zQ:9xf%My\y#6n4f8E8Zzkj.uPbD5WgF$4WHl)c><*t^jqP/0Au;B3hb-x0
U"]SW36'9c%(()>^u$wfSn/.PE06VTv5htsTeO($bg&+kmV3_M[zibVdzscZsZj^6
U"foH2tRj9nl6>\5E#GN'[Y5TRk85?,lKnfkuS\S&';YUBE?/GHfM*YFOXf49-%tT
U"u%p()9%%%%-O%Al%mHTfs(%Z*%+%k<%%%1%%%%lwf%umnh%xSgfOxf'.,>[]5tN
U"(Mh4U[I7;8b6]X5S'ihdE(QajPR4UetVJ^0/o-j5$1LsKpbHV]bYS4%bxb6V<P)
U"rjG?8?jul]UF-<b?$HB8O*X,2_7K/VY/bF7l\m3g<&0Zb8;gUiMuxlmR%uE?=='
U"iH)-PR-kK]gBoEQ=QL,3XP]058h^q/peU0Q;g<,-Dv1*>P$u$8C?Jd74pN&kt_*
U"oX')tp$,f$o0r_p=K;9VLC6d:$,Z\R2:DnQl>ADYdJoHitsifHkmiKs&1fL.d=2
U"+;c?ld$3pL)57G_Qc3igC/uCBu^WkRVUUqW.EQ(5nRZT.k1?>xm(pT>.V1V?crZ
U"DLKIWwc$Fy7>(b$If/Oy*ss:lTNgTEr,p31o/g>(%U,CLHGMpnKMttaw:fotD<t
U"U.[4rG-hshQdW]t?AClVmYrVMq[uILpeI7,tBt;KHm/c,pm-gGaAsKp,ymh/gRD
U".4=d2WVR)#3S$bUV[fL7*p6<v3W*5RkT*k'hl,5$o\6n?&S-JY4rh33-I$GB,e\
U"a8bnUPT>%*af_ODpD,r$g<tYcRP.Wuvq,=.hkNU%?tc1jKSHpultJpQjY^miW;d
U"ARd7kdc;KwaW4O\>-phl.,/#Q%>)_d%&MBmYRyi4MsB-T:;lS,/k?&zPGPt]kS[
U"81%j&'LrL_?.U>b:iS(&;<%6fGZ&1Kt:J4W55Gc:L7tKY8hZL5Sg1bnfp(IcW\f
U"dmV3O-G*cWW3RJjSyI,mt2/dSkMc*?6qTwOEBm*'7dUsRSr_H)](yksD<2ty*.n
U"zl01#:hKSkm=ktaNO(K$zD*+2MNKPNOEBST,yT/0T>\aaGd[CU(H%4[1;:F(<t.
U"AtX#fGx]LL83iA,\b>]sU1t6-p\Q$/Q,LfE6H,\#+qcZaX0G&V&SuSd*.0*<j6E
U"H-79utQA5&*,08^blLWp;_0jq2bCO16\VJ$\7A_KY_vBz[:w#,6*m$.]QkQ-u*R
U"Yu1o8E.082IQSFPCzt4'oDB1*5-]h*0g\7ZNlN'\,g\Fx'0Emh\='#W8^qFvrr<
U"(Y2lYFTjjB6T4CYQ&9aq[[HbONm3P]5mn/$W)B5A_2T?1hq,d+mm6D5GMIOlq1v
U"-#=OmH2cX$d0\Y-Lh&&,&Huk')vsiAZc7\RLas4v2/.X>p0A8vHXD;D[eDqwwcX
U"t?aqQSkU,8)N+3CN0^$$...d/_7e8M*DdgWBTeYtD1d1$r)EFP7h-(1E:eH,s#m
U"Xhi$t#qeuHmF4vGrXaGdX\eI0pXAwj#H=1c9Ah_;<'^wv>2<P&:e9U/bK6(3rR1
U"X+-$4+N/8C>Ir15__vVgVgbB$d%(RI0JtF#Y^WVOsx$G[O2sX#&SHt<-nQe7<Bt
U"kWa0m2e=wnAG)B(SIQ()dT)>llvPU84mY<rf0odfM's(D[GR.ug<x9&qA,q8Q'N
U"w:<NT$unX^_on%B0H^.JR(=D+08?f0oF82$j0/g_o]8:7o?iqg#Ti^R6Pi-:a-n
U"[zOv)F9RWGzcyPV4*BYST-DIb6cVx46jGFPmr^u,vhcr*Nwlg(IAq6(G1he%>3%
U":elJ2XMZc&)/fAc8W=M.y/,m6jp/T%_OAaiNF39#e#NZu\7+Eg5d'S%/DvND]7/
U"qWgG1U-[Gy7H(:J0RS?-,CsNd_8-KQqyHhe)>^VEzo.-n+z]tSD^p+Dn;*?I4t-
U"kR7Kw(Yk1X<7ltz\A5&sKF'Y6l=X-%;aX0Ng;Bg0$?0o.RXW0%mg\QF4#RtnetI
U"&C:91/.0v/7Ao39<U)rPufB?y/mXlRTK?lLQv#wGJ5J>qv#-sCY2.KXHt;)Qx#%
U"up()%9%%%R-%5lS%HG68*.,(.%%v4%%%.%%%%lz%jxxS[gfxFh&,>S.m9Ll][dA
U"22$i5N0;+irEK%g/GWN9*$/rzoBF081^*57Tsea(h?EQj<Ggno83.2(CE_m^6cg
U"6CH#JEP;eL_6T45M*6(MbZ.Fh14-kSbIn74.)vfTBtR(%U\sB,6k-O5rC#mNke:
U"2C3M\?wOZ?3XD*1Fb\0[2xJ9tdl]RS'#DudZAR_\P8\(CP\*SDrY-dL$EES3L_n
U"6[=jh?AC3+B9+0cJQDjbgPM7e7+&+Ycf+Y96RMLWeC+8meY0'I)WOnBx7otOjF=
U":=&L_kTl'Vjo2QW1Vjohkc&bH7&TXjoRfW1f.1d;;s7y3sbopc7]:s[l9u#)^qg
U"jdsS)am;zoTlR8->U1wv.XfSZsVN5%Nk$^[&dm&q/6Id35JfN&HH,?>A0d?H#\N
U"3LkgN($a(,HD;cA3jmEWmROeJR7$s^)Q_.#7Sc8ruTBuU,Ynj#I=0Rp.qcOs-;l
U">vG*+ahv%%>f[1VI,RVx7Cu&0cMc'4qDP63l9wNi5)DO]BT0n\15ZWy)bwZnE-2
U"I):ragVDa=rae-r+8=cXJ=WpB4B:TENkWfg*JHEQ$5-5qblY)$0k,8S#DKI]Kw_
U"8Vtao0aN-X(#l*:C:2OT#=<g>MLhsTi*<:Zt]-zJLmzpPXbi_;D%*ElC?L3J7[a
U")Iq;1#2<UR:1>-YJh(vbOP3Q#biSf,B+C&(?U/9RXhxbGU]*ZC5m2v')<4Q+5>6
U"Gt5^pAD6]gkn0f<lwkSfV.=/,uHGK>(2XZAc7',CBgG;N4'/e7a$\n.oq&UtzZ.
U"_##FjmV[iaDQcEn&b:yH-7_Z8'xB;)04;Ea41KFWsl=iY7TC[fFo[680]c<nBIs
U"(bp4=NCadP;^$]VY>M)9WYVZV)_KUFrZ<9ZOp+Tk>:\D%i7<0[/X=cL[VCxSoJ$
U"G5/?Mu\P4O.WPR5FrsPaS<Q\:IA.+$$*T$5's^iQ%s$_.LiP\8J)4<8Wew,j6[O
U"K\adskJsClBlONYI[MqvBT9nGl)F9W^-,/U?K1_NWG<:D97DD*pr/]ba-(DT;_U
U"%E[.?cHX<2/gvH]LZ8SP*IlJp=J-utRt8M/KSa)fWvGo;QWeggkBrQ]/wc;zC_T
U"JKTi\=i^kzQ_iVwKm:QNC4ncan,/MGU8o\i>%r&Sl3L;A1r%W)OOSlHtZB&g+]s
U"-K+t3^;QX-Xm,Tc=fgN0Arq/jQtqy7xx*(nup%()9%%%%-%(NywH4pv;b%A'%%&
U"$+%%%-%%%%mjqu%SgfxN&d<ZBSe9T98,kDd3f)fJY=FD\xuiUN*U\Xh\Ptv7[[,
U"?JWX8-k%V.X<Bs&62&<Z\>SED^Wphj5eqluQASa5j:9k'>J[.Z1jhPEq>S.AxXK
U"1'tR>r+_^T26kl%(:WNIH?v]O\'X\i7tP0/w<^5MVBCfi&54/\#g2n,#2/Nd0z:
U"]/$?saiGYJcboVl;s)+%*Aj9&'QuVPl;Q*Ed\Rto<0t1PPeGpteWpcTN8ro1T2$
U"0f^G]R6OKo]vfN3P9Xs]Y[U*'B.JMUOdckp>uLzg1e_W4gP>g,a>A3#lc]LqI4_
U"PcB]u6(_.SmzGtWA3CS#ZzT,/Xaa1?s;9*'[iQGr/e.HG%A/%k++)&YeE4uCF.X
U"m0<=V6^XiU].E2QYM.w0(X8\VfXaE]cQRgDDuf,d4jjZD&$1MZ]^G8r6U?^]:Xr
U"n&#C^3=?XbQ=x$L)hoarq8[M/nuqRBr5)?6V9r6RcD#Fo%Ygctgq.&WbLL4AV^:
U"Q#Amzh6ye*iE(i/EQe>9\?cF+V=82%N.gRFfx7wPdc.YllPPWva8bAA[a./aIp=
U"+>:lllEilIsTC/xI?l/2-sr4rmDkS?ziot:DXnzUWw(=(=sQj]I^bel>'FxAFpC
U"X[RjqcVhxcIplTp0H9/lPT*n#1N$,YW5-Pm]4)?W>$x$bV>d=MnRx:aoOT8U0f(
U"n%up()%9%%%I-%9ndtH;.&S0:'%%%C*%%%.%%%%ns.ij'S#gfxThb,>SdU9Uh+H
U"^dA(jdKIDUee/Gy-0o/QF<Y;*xISQ6]_'Lr;3jt^oPHS#'**bXVE[lpjHHJf*%?
U"8qQ\L(.[y-.fGGS.m**S0C1%QW<BYJdw6pgALTRt*hdaJ7/Feha9XL8,&d2)/04
U"e,&c7[*+v)cySNvaJ9&_vMo;wTn_jb:E4*c_>_;xOYEP[mi<o0CW\'ukCTk:_km
U"BvMA.o&;]:=ur29'N>KLJ7,r#CaNp6Hl&m13>>J'S>ZLhlFjDLDMOxU5S^wd455
U"uP[KsqM\Naf0s(agg5XlhWPMPX\04CAM$5ns=s3SD>c'n.\Xm00#Hr&f8E#h;Db
U"D7q?46YgJJS7X5R:oXC2l&[^Q*25*96-$f4lUi'1X*rK,H0xq=s:]nD)XBC60Pw
U"FwAQbD$<7NUYX%ip=&3ASF3xX(d#k[Hg:w_ALfx(0#:cZ?,+4y(t7s=9E0GJ9;g
U"i/OCa=V&QNruqe.$.)t4.XdBJ>'ach$$<aZ\acb:4%Ox5G,k%xQ064.)L0H?>Kg
U"y?iOIh&Oop4xr5olb34Hux;S4&auU?A2[5N3)3:D$z2<5<a9HS*#2)V;:*zh\<<
U"eM9b%bkYhLHs5_JtJms)9jE(.is%HnSKD'D2*^l0k+21\4]dB>1ca)f,hIh=?LA
U"(/GDb[#a-ZbK[h=z809eKt4%up()%9%%%#-%F>.pHbk7xN=&%%%v*%%%,%%%%sj
U"&&Sgfjx.bh,9TU9c>8#u.3<0kd(K'j-KKW4ZOgD/2;,e<G_f#*3=eQR_>3t8,:r
U"t7N#c=2On9Y]>^ghCjn#wMgr\)2.sNsOmvZ9WFabg&$iD,TjAZxI'BCCjc+HOVV
U"wcr;EsBB$DuD8*O$p8TW#QW6Oci/L5N&=U6.S<U<$;)8$rdml^X]4*/=q6.q.8r
U"OZAW*A\l]pSJMHy6X,9hKPWf_52YiqFJrY'58d]oRB234Qro05A]A7bP\$$UW?4
U"p3m&\,Kl6CM]H.hGTMd1'.ra5'RL;paCe)zpofWgWKZtsS\*;*ZwV55PPq.#2Lb
U"%w/y\E;*iKhya%B[Q\CB(c.in_-H\d'tjtXE-pznHv^)nUsS,l(4#*<V#4$HqD<
U"0$DQiP965YQ&0e[g*;::uVb'Tr0Y4JTP5:3ZT^w\uuedu&j9Fej6,Yx#yHq0u6]
U"J2uZ(-D\e#*8MJeqiJ&,+#cCQ?6uakntrE?vNS4jCYHl-bD;=h;B(<GpKywMSnq
U"U/sgIVYTq1+=SRB=ps[ol4vu_NAK\w0bX_<+OV*frS(2J[tWVn+,\MkDsspdus?
U"v(h&>up(%)9%%#%-%v_7(Hw\_H3t#(%%<%6%%0%%%%u%wtlw%frSgRfxf'80td[
U"j9v]=kN1yI4kpoo(wi[m(m2Jeu.K+/s7T72M\.2$<QL/hONS^.*esJN\X>8K4Yb
U"d4q\LG6u$sSpT?*Y5Ra#<Y],JljTZfw?)MG%U6jh/r>79O'(MYVY-'I8.JM9?nl
U"*YPj^MOL4/4\cfAN]z.W<#xAW_RfkGOL^V6tB/YMRU57#VF6fJSS&[LuHG?eGui
U"ITK#1O&gJ'X))?AH(g2q827+bM+2$)?&HIg4;=#-'3&RQeUIBF<,v94?1^T:$kt
U"R%#HT\]Y2Bb/F&/;G.JrIm2Z'2'*E>lo]gI-=YLcHHXt??%m)IV'=Ya2Ick-(Y+
U"iF9n>/zi13:x[qG0U+/#S<G/GNEG]Xg\ex8OG4<1<X?-/]BG0SLbzou/WzhinDs
U"m*3A;z;V+6t*sg]WJso0ED:ADpQfe4*-qztnr<1k,i^O*L,T&GNJfv,#](LgH?W
U")g5/S_I?+.rb.5(O^^2GM+$.Neuii:T'=];+OV^_L%8R-qrIlTMy3bOm[<$T^Zo
U"O&r*p\=e+37NVit0s$gOec1X)6KnUdS9[=DY99x)br(jNnJG]msIhzz(O.Tet++
U"s0%dyKW=;#y1&-#+QBLZorCp2RJ(BwDlIXa1Gu[?2mv=2vJVL_9y4?;eOD[:a<1
U"uvTBJ6*NSTWRbT<t9+_9nC[7Pjtw?ciP'C58Qj72(EC=F_]%RuG[nG0GId4V(Nq
U",zt\C%\ZOd%CPbq_a=nA':F/MKM$WYA,5_vHoEfQwusejslWUn6#H8E$+5\?an2
U"%pPH>PBPqS26k+Rhd2=L83W8W'#J'YyPBz8J6[M)I6.Klp6LpIMSkwkapiY7r.+
U"/=.K:F9N5X0)y&3o6^n*ii_DzwSGw6qSO[$G'2gg=C;c>IJ>GrGSl?PSh%9//<^
U"H?iP]'/?l&snG3KHxc.O_KzbZH$r=jOZXX43De>iuoO]N$&T6VVss6xVvv6mada
U"Twz;;9D)SKKIVP<18G5'7$KIZkPVFOQbmE/Wr\rO+)m^km7,iDE_KdHt,DY-FC-
U"ro82'TKHiE)E1qo:'c4hiTt=h9vld<jqqk&gY1P;''UFI;O9a+7JS'm;wj%?0:'
U"[=xNuWgjd%srV29Y3<J%*dkI\Qp.se\IEsUdB/Gf=wp&rM4RT^LexjU[cpueAdO
U"BQ^a9KX\qLVZRYGnZaBX:d#gEb>R$hB9Zdd-KW3kT.=KGn>Ss.lU=TtC5JP[,dU
U"MnH]h2FxQ2x)r(F)a7'3a&iF(nOUgi/mv:#Pe:Wp(B_R<7W90.%KI([ONpteZx)
U"mN9xw%+up(%)9%%#%-%>AyzHoD\OS=#+%%E%8%%/%%%%u1z))q%jSgfgxd&V,>T
U"[5nND)x\PX1Eqyd9+C#vrr^aC#)Cb;Re11LuJHS_G$7OnNwcxsB8dIoeLfG+;bb
U"Gp$W4,h]dBwEm8YMItN_mmcuHnq8KX'cL$#oy.MF51ihCE'6XaUDv&n7f8;QD'%
U"Y(XXMhQh*shcr2ka*L$;)8xH*eUBjc07)f.I4^SB&hgw5.N%#PyJ)y+ae'0JV(J
U"4,0dy7D]o2ikAIt1l7gvol:-RP*wLAO)vZED;5[gXQEMXZ68IYm+Q4aDXe38MGi
U"E)ftcc^uI(8lDm<u:#51^,Soumqe6ZPCxw;/$)v=7,Ba<Yq&>W)PQ.)gTzfJBev
U".?*CpjD6d(.0aWlo,Rgscv,J=]O#^=3%)OD^LYav%_5wRWB2vU\$m_m[t)Vzi#B
U"hm-+RmOx+F.C9i<v8)**r+x&7f'P'?-N^B+$lGw\#Ls9tC38YsYB:M((0ie/gNr
U"oh]g;Yio+_mU[se?Wok7E#9SE%%(ChVLaXv/k$<mK&3:5/r+&b?:v/.rj\VB\nn
U"pU1n+rXq1zTZKCjZ33c2I7D5Dm98Y,n]z^I)KWNike%Gz^r13&?hiN)C6k'j1S,
U"2&A?[X6S6Y4YCk*DzN)b5lZSUXS\.&:3QP5DS[<+Bm=?KQ7a\Z,;Yg1]FW>/,ke
U"NHV=L)9(v&v_8JaGg[w'IEC+sZ_.MC_[(eI_2=m(.ELB_=O:YSS'XjM>O&E0YGn
U"6[l5j>:%&+Nt'D,+7EQs6H+3AqID?Bt<BYgK,hI==Pt*/ntZKj+LvA7Skv?6L*<
U"gH]/h=LL_&#:$Tew^E+XABf0K&4*GWSFr7)BG5JK\jCCJ(#vF:a-H-g'3,kfj8Z
U"ML:H:5F%Jf$?wFbR/[hztxP%(5In$?(3sBpMPGEoKvtMivYee3CaK4T1'-AI]gw
U"0Na-ljv)yvsnL=q7XEdt/b/e,+Y\S_#1Wr>rW9RfE/6Y-1p%FHa]9(<U<Or9R82
U"[5OcfZz,CXJma#Vd%%q*k,g3yl3T*iHmoKf9b7\(gOAQN(AGQL:dIIsqC/Dk+lc
U"7U+=UrcW[_W:R7mbH'HOVP)Kt[2J[52E\;gD2=-rq93(U),Rg_ZCP)q4?=\,e43
U"7Qp&2G^[L(2mWn^Xte_-'&RM:a3<Yo[(3ieA,UJ[x\(fm_F0TnqqFfGg-)cw.D$
U";68Tm9:A\CIj^j4jWX;LM*h:Aiv+FW,](Y<X=zYGo*e'#>a1Nt&:AFYgR\T0V5E
U".B]MbG\v$;<</Xs21.L(fkj*4F7.ld;hR'(P5t7zkA[zkgU;mU8UL7S-LwA*L0I
U"Sy(pN3L>\.&*l1'=W7kVuT5bN9:lS67-m#$d\YEb&^R\hT,^G^[Z3$t0gASRhN3
U"4H+O1QcEt_X8\YOGCy);pQdFcE2/oWbu8HFoRX8?$vm\Ut6,oroC%)n%5/9]lMr
U"?'d8f$15T]i#5R,J#*pm]Rex?BIb\y)#UWcOI_='5W7a\HbkaoWubPdTL\RO[Dy
U"js9%iJ_B]*gL[_UbAjk)Qr[^/nc/S3'<]2y='RFIjo>&.w?ACb?_$HsO'Q-Ss..
U"?fY#HJ59rvqb]LX)D0k8e&XYM'2^5=%y-bml[r4wfhQ2'RJ;>Hc:cOSuF>C.Mjv
U"i9bQ]/Pq(,TFrXTQ\qL)Lsn'<S)(>i2?W4=nq2rw3ZY73Y4i<?tg*(&\fD%yS<r
U"teq8[qAy_jIbzk=]btP#ruZ=6WcjGdab;0iX#%wlQd+f^s[6Yk[ab%a8P;4?'u2
U"95j9#^0athI4*BcsCkB&VZfm%J+/tcB_8EikbB&TT(>6/x+KfJSN54SBmf8-g</
U"N7u_F.Q6Dr$LT<v(Lf^nB,a\R_BMu7j9%G0EM=eS.xg?50f*bUlo?E_I.u'*(_.
END SUB
SUB V2
U"F38Ed)0LL[K'%n,(AhIVmz1$xr[[a%')3(Tb$+wfMScDV%B47I(:xu]Nh(n+P+/
U"DG#L<rCrxoxT-a5.*cWTZD=KW.p*i0]ZQ;H/NR8B^qP2<jNe?:3UPie,OWf<K3g
U"163cn[)fbPW8_p5KBP'f5yD&uBhsG/=GF^Qf4zuVHz:5d\nmr-:^_H\vKZm?aN?
U"6/)E7CZvsvlA+H*\P+\KztfpTbfu^CE-mpdu%p()9%%%%-I%mo%(H\?;'EM)%(%
U"D2%%%.%%%%vqn%gxSgRfx6%8<t\]O5w-xEx0Sy1)J&Fq)wg=)9DOY90ic0YQWg9
U"W8h?_LQXlZpByuttj*l[2UeL$IBEiG_mHal[a8\^B4y;YspJhntJ*I2?5ap%NY9
U"M6Lc>=Rl^sN4E3lS6nzjiRqVD)i>>FSL&G,=dr7,GY\&=rYm\=6*XZ'_zk*q3'i
U"$zzbWSVJGX-\BTSt)hr4d8)R__<*,3bV/+kFd/bXTun6-xa3;TL>ERTD$H06tV4
U"#+8TD2TTrGd#'KoG0[J7..#NCQ(/Mgdbe^v[Zsamc]]YD19?+QgIQU8/cg\,43]
U"HoH(SkA1i7.0*oxIj6gGYMHk+gI+1tt;lIJlsRVQR0]O]/_5,T_^iFq:KaO/d0o
U"u-ED/bxYT<pdQn.?8-^?Q=A\]?4J*#abdkH6UaH\,IgkL?Va=oD2:e<tQ^FXT]t
U";hc[9*n9<eAg8/0A(ZWIU\.+2E/I4Q\bd7wmW4HuGFfLF+_R7BBV?9n_rMj:pWP
U"ClDh)#_45rBc<j%Zbjh_g5QPUN%ItpEc46VO8qTq>CuEIP5p'u6ofAMlmmH2M.R
U"-+jp(Pk%8&2'77#3RjKB61Bv'Y-.EFfo+5P5N0d%>f:hudO_+\D4i:%1#)eQ;YY
U"fHu,K]nwh$=h;qGeDt2SvegXl*c5F)SE#f.zOQJh-X7hvu0LWB:HrZPhN^*N8XP
U"?\(Ho?.LY5B)v=Ptd3X?Zaq-VU7>;'La)TG?agiBVXGZ5k]856i\K:5(6M#n_+M
U"gT=v<3zr\d$)J#-(X\'SE[*.RZ9nZ>K+>1T6xH.>[)K+Grl2-G<K/o6QO7hy%R2
U"R1#]DszI$FRL[17?=/zBC'gXb4u.d73T]agp1]RB:v/.g/t*FPw9e\^WL6wSQdW
U"^s4WR:6:DaGM6XB%7zlNf]L4J5[cK2m_dhJjR*pFpVu3CD(iRj4X]w>HpKBVID3
U"i2ELk:y:EE$Gu[7[6X^a$.r$G3bAB5$1wM#z<]7:nZwACXE%h'.T9oSwo=mf:Oj
U"eeMc[Fm4(8W=2;mhqfK<C/;BX7wWKiX_\TAmbo'9q%tEISz8%iXv(Tw$-tie0R5
U"_Y6nB7:Fvga,HtYT6[dasNgelNP:e4(sX9TvI^fKMl2nmubZAJD$\PR4F*r4tG2
U"I;\B)s2bWG]I:)-.Sv+2Qx1$Iq\+5^.VlW$j-\BP%N)JL06Xat=GaNYsC=n2A?A
U"fQhT(PA*+Ig?9FPamt#>[n9:xL\Jl<493LPsP-9t(\>8c-T()&0U,2Oq6sfh3&E
U"_jnm=$vF%[h8uPi^i37W,usf>T]J\Yo_$qKv_sX#Xn\&_Q1ncXZC33',i3/N::X
U"QDxh0<o9$ZcwI$uGx*\zr8Gpx'w0up%()9%%%%-%*KwzH8^]+D'&%%%'w'%%%0%
U"%%%uwtl%wfrS[nht>\_V3;%U1jrN>-''/*V#1C+EK53'a:U9^O2mNMd\w3C9[B2
U"ruY's7c9xk#VfXDs<%%Ze7XOcaW%eT1D1I]'Hm7gsh8YARq?/\[[VXs]$1D(1t&
U"ilS=sqH4;wMlKF=4Bd]kY6COE:QW#gh.Idn7Ud3vTqBLwdZt;tS-C5R=R/3^M5<
U"_0eJ^Rq&f?I5EZeR,+KOH0lon_T8]kbU>'s$8S4:u(T%up()%9%%%I-%v9&(H]q
U"*MLQ+%%%%O%%%/%%%%wj%firj%SVxyNfi,;[yj9#Dv*o(J3joo%Fc1?:R\F+a8J
U"e=HM-eWI;-Zem<qgguGgWooW$d66,VeL,.=,Z'S=d0ROV=w+&%DV(ir=Y&79/?#
U"g15wGY?E.[O7Z)Ww6_=QR-qJ^._EpaY8b4l,lH_hkblb]V^]blY3Pbgh3SUUj9B
U"hgwc[&:Mzjv&A2F66xlhw&xySShTA(BM8?uQbBBzQ'T.E+]'+8.C0_n/pWg[tIf
U"Mff#QHANAQuWna]ISb.Jf3?Jx#]H/d#q6Fz7jNr6o+gghv=R0_3LumxPXt\4B=V
U":J8K+AlG*1:8u_vB&qL$\imjWVxuFG^5hguPkOY$)<aLpLmaCaAoW>(l)KmNN/J
U"O+d]^nj1PBI=r0&'Mk/p:#&:D?>Z4P\toVq2U'\>f$i1ju0<#6J[nmOQEd6O]S+
U"8+AjPyB>BNWI_SF7Cj_CsqxE)JQK1$#r._Si>nj[Ig76MEa*3('d:736m/[2hy9
U"Tp\<_JH>%mfk#T?MBh:g)GH:ZhXPDBs&(HpMPtDB[N_,mD^2j;2h:txb<Jt3E3G
U"I'AnqO2E48M?>.ZQZ/p9?51aY_\oCu5-)OYj<a+v-q:[)p\LgYUB+Jy*yuGg$vm
U"]:l1\U\\#e/)*^?R3ZK8UxgUpbQd?VZEn]6Q5.JxYR>r<Vi84$5upin5>?[>MAM
U"ggub>1<bCh=%3)9d*hZg]utW(NuF;J1F<,+A6LWu2I(^iQ-]87+a=6*ZVj*nA5:
U"%Z9Sb,MZ,U^p%PUs/%klZc>]6c]cVWX5c#0%ce\;SX56k^>5/O[J%mThz&(/IS<
U"X-3FYr4-L0[^8z=65DGk$k1*%g#-HJwj2tY2gYeeN65Z)R*)+<8i/0)jj902*A7
U"YoV<>N8=K,T*;2=[%PuueSD<&j*i*2bH__XelF+>VqZ*CgbQLr<;TPT&o(3<5#^
U"$0AjVC2++ECv\1io:KSUb4Nt)re0jcJjy.BkXk1XHZ6%5.xs_O]1S[S*ctj<Am0
U"t'%-8)=K7hU+mXR_EdysI2P6Su4r1?HcHtiL.ogpr,,O26w1&5aQC]g'Q(l=Ga3
U"R?_/(irlBUSyhtE,OQphI_JhYA:[Ch$m[#ff%jgCl#w5VlqbstHJlt;4?K%-')q
U"k#C;vcFs&B&)UM4;+<9]Q&49aK'fO\.gf=5*-)?vFQkh=kLYa?d7Q8AK,82i:L3
U"P\q<fok>=7+L-9^zXnDeB^E^+XQ:;$wl1/HlDK7]lCGfxt89b0%(%4%v/2'qCA'
U"aX#5K4)3O*I)MO=9)+%*CTQ2/FHq7;7,$9EKQ.EP$6/DQ+47*l0:V?A$U%lAb;I
U"/S<9K)%[Q)Ka:),9'([?%,bHiIa:(*:L'Y-]/l'>tN?b8w]>DkP8$#]Aw-b#hhs
U",ogRi6:?tg<n>t>Cd#Du68r6bFXCQl-Z\Pq-,xCr3fOosdxeLatnbjWqr<%_x,^
U"_JqwN.HFC_ai%xygWv6de9Tz/4cKPmAM;8zj69Fo6G'9+>8Q&i$m]*g%CL3CG+=
U"%+$09EgW%3c)_99/i']a,,9FfI=T(DPKu92JX2sBQ8pnjb48,%TggW237&fbX3s
U"l7n[U]1J__knkQU-,kbnntq&5.9cVYT\wIyQIxhV4u(P)$3Gv$?Hj7SHDd6qM=#
U"5q5KMq'lAHbnEvEuH43feh7D23CWUrN2-=l>XjaxT$?8iu<tmx;l;.Gw0rHNZrR
U"TaxTu$8iuU<mxya^xZqZ*8?^]rKdOND#-]$j\:*jR\E/LDjLMZeB1:imL69iphH
U"76(ux<eEwz\n)BOcs,&u$k^o8.plz(-ZS'N6q)<NcFh&[:Nn]%jKuXo%Qd.I(Vz
U"M&mEJytzQ#-IS3qQTZ:A&x8T8WW$Wd%t#ZUY#>o8D0^Sg25F_p+72Oet..67$x#
U"l7jx(-1\vtU*wPUtXk2(_X3ASiVrmwYaHW_/e8t-umQ>U].2pVG-M72$mD7]g+A
U"FDgTtDIlLS'?1M'QS^Z+(8cJl^3m%,6JmPy+lMQ,Xcq)QVA8+.k\%up&'%9%9%%
U"%%-%(7lsHs[a'_%E*%%'E5%%%.%%%%%%%%%&%E%%%%%%%%%if&%niS%gfxu%p&'
U"9%%9%%%%-%&$%&H&qo/fm#,%%#%;%%/%%%%%%%%%&%%E%%%%l*%#%if%%niVS%g
U"fxu%p&'9%%9%%[%-%A)l%HTHfs%Z[*%%k%<%%1%%%%%%%%%&%%E%%(%22%%%lwf
U"%umnh%xSgf%xup&%'9%9%%%%-O%5l%OHG6*+.,(%(%v4%%%.%%%%%%%%%&%E%%%
U"%=%8%%l%zjxx%Sgfx%up&'%9%9%%%%-%(NywH4pv;b%A'%%&$+%%%-%%%%%%%%%
U"&%E%7%%k;%%%mj%quSg%fxup%&'9%%9%%%I-%9ndtH;.&S0:'%%%C*%%%.%%%%%
U"%%%%&%%E%%%%Y>%%%nsij&'Sgf%xup&%'9%9%%%%-.%F>p(Hbkx+N=&%%%v*%%%
U",%%%%%%%%%&%E#%%%?%#%%s(j&Sg%fxup%&'9%%9%%%I-%v7S(Hw_7H3t(.%%<6
U"%%%0%%%%%%%%%&%%E%%%&(B%%%uwtl%wfrS%gfxu%p&'9%%9%%#%-%>AyzHoD\O
U"S=#+%%E%8%%/%%%%%%%%%&%%E%%(%LF%#%uz)&)qjS%gfxu%p&'9%%9%%%%-%mD
U"o%H\7?;EM#)%%D%2%%.%%%%%%%%%&%%E%%%%8M%%%vqn%gxSg%fxup%&'9%%9%%
U"%R-%Kw.zH^]9+D&%7%%w'%%%0%%%%%%%%%%%%E%%%&1Q%%%uwtl%wfrS%nhtu%p
U"&'9%%9%%#%-%v)9(H]4qMLQ%+%%%%O%%/%%%%%%%%%%%%E%%%%]R%%%wjf%irjS
U"%Vxyu%p*+%%%%%1#%1%j#'%%[%X%%%%%
END SUB
V2
CLOSE:IF S=182AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
