'=========================================================================== ' 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&:Q09xPoigWZ':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(VbAtU_Tp U"WSNr7B%Sp\3MUzS,i^QX6YHa(+N6F1Zg\l6d(Q=6/CD*YlT'xHO<4PDRBEbYCEQzH?FS7^iA^)(tc&M_o+S(K U",SM);ET1;rco%8BZvtVVoVAWAAy5T:5_t:QI9cW U";9TJDc(zCd$R6pU,)bR(C0q741K1/h5(+&ONuja.(PafZL5dF76<\)BKFCNI7yQd7p^ U"h_ihk%]=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: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-_1Mf[<.(l:75a\Jt32(L(NFS?Z(sTZn(Xp3VPG(pj>Pp7 U"#]\bd22k5tpipJU2em41CJ?j\2&u2xfz#Ol%1>7WIa:]<3*()Vk;gT0scI52C?E]U/$Z?0)foDa1=XLjD[] U"S]W#lZ446]R3JK.r1BnrukiTLGEt)BkF2'E&eds<5ZjCF_mm\oaqhcxBNr#)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>]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(.Lz\(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%bxb6VP$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%*af_ODpD,r$g-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(]sU1t6-p\Q$/Q,LfE6H,\#+qcZaX0G&V&SuSd*.0*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>2Ir15__vVgVgbB$d%(RI0JtF#Y^WVOsx$G[O2sX#&SHt<-nQe7llvPU84mY3% 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/7Ao39qv#-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?EQjU1wv.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#=MLhsTi*<:Zt]-zJLmzpPXbi_;D%*ElC?L3J7[a U")Iq;1#2-YJh(vbOP3Q#biSf,B+C&(?U/9RXhxbGU]*ZC5m2v')<4Q+5>6 U"Gt5^pAD6]gkn0f(2XZAc7',CBgG;N4'/e7a$\n.oq&UtzZ. U"_##FjmV[iaDQcEn&b:yH-7_Z8'xB;)04;Ea41KFWsl=iY7TC[fFo[680]cM)9WYVZV)_KUFrZ<9ZOp+Tk>:\D%i7<0[/X=cL[VCxSoJ$ U"G5/?Mu\P4O.WPR5FrsPaS%r&Sl3L;A1r%W)OOSlHtZB&g+]s U"-K+t3^;QX-Xm,Tc=fgN0Arq/jQtqy7xx*(nup%()9%%%%-%(NywH4pv;b%A'%%& U"$+%%%-%%%%mjqu%SgfxN&dSED^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_;xOYEP[miKLJ7,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$$Kg U"y?iOIh&Oop4xr5olb34Hux;S4&auU?A2[5N3)3:D$z2<51ca)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;,e3t8,:r U"t7N#c=2On9Y]>^ghCjn#wMgr\)2.sNsOmvZ9WFabg&$iD,TjAZxI'BCCjc+HOVV U"wcr;EsBB$DuD8*O$p8TW#QW6Oci/L5N&=U6.Sup(%)9%%#%-%v_7(Hw\_H3t#(%%<%6%%0%%%%u%wtlw%frSgRfxf'80td[ U"j9v]=kN1yI4kpoo(wi[m(m2Jeu.K+/s7T72M\.2$8K4Yb U"d4q\LG6u$sSpT?*Y5Ra#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+/#SPBPqS26k+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=h9vldR$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(8lDmW)PQ.)gTzfJBev U".?*CpjD6d(.0aWlo,Rgscv,J=]O#^=3%)OD^LYav%_5wRWB2vU\$m_m[t)Vzi#B U"hm-+RmOx+F.C9i/,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?BtrW9RfE/6Y-1p%FHa]9(a1Nt&:AFYgR\T0V5E U".B]MbG\v$;<\.&*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'i2?W4=nq2rw3ZY73Y4i6/x+KfJSN54SBmf8-g=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/bxYTCuEIP5p'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-GHpKBVID3 U"i2ELk:y:EE$Gu[7[6X^a$.r$G3bAB5$1wM#z<]7:nZwACXE%h'.T9oSwo=mf:Oj U"eeMc[Fm4(8W=2;mhqfK[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\_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(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.ZQZ/p9?51aY_\oCu5-)OYjr?[>MAM U"ggub>1]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=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:?tgt>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$?8iuo8D0^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