'=========================================================================== ' Subject: WHEEL OF FUN Date: 11-24-96 (03:24) ' Author: Daniel Kalna Code: QB, QBasic, PDS ' Origin: comp.lang.basic.misc Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SPIN.ZIP",4^6:Z&=15586:?STRING$(50,177); U"%up()%9%%%%-%UDeRF4+/66?4.%%c_%%%.%.%%&m%jjqS[gfxNg$nDQ/fVjdv>xSlJHsdWgc]s\9P'qBY%]zI7't5*[4#F0i%'B;cnQ= U"TiW(]R:2NT7^j2v4eeG['WCA5PDRk-GQJmwuV0c9?MR7;Rhv33dZsm>G U"%f%'Od#)LM5SLf('qtl+MQLa&S*=5zGl-8HGkL&R6]Y=^/Ure1,tgS71?TZGO0p U"%h.o?P:fj.aKYuH4n067;D78dEggLvOD3NKwuf,#<%hr,+MJNa/s=.P%*:/M2K\uVI)b0=A((TA$K,p+I5R6W&j'#zK85vT U">2&?0*9:R7YAxTl.^+BP/Vz+ty;ser[)kUBk..]/Y/zg^Xp?04o7Q+JGdrvW3kI U"#?6N:#J1l[5-0S/];2hQ%\qaa#>jsN[8Q14)j^_3Atigxlf3.-#CvIf>UER96\2 U"-UFxPH544)P9UDxsjWQ#$e\rc8*CpqeB-Dwb1ME+G67\VlQ2qfj(u8s\Q2Ub&MW U"l)E,,PWM;k+\fWT8u.7bF+P?OnC8J7bRPb9/S1M>^IM]o96nx'EQaG>1?1I.$=* U"4a(r.EJRD9+[cFp?gI^SglYZ?#MY-:90D=bYQ5\<:(8(EF)rVhy$qs9B]uf9-m, U"idTg0cSDBot8n%W[sZXfqZNHC,0JAE.ZOw%RehGN\()xiJpIKCEdl U"/4]'FAS\7<<_vX\p(T/MF$z)[pEIn'Q4]eFvki5Cc*-C4#4pC,Y: U"Ii9;B%,zTvws]GkC;e%Xg1X:#rnC#A$tt.WK?hU.;.NDK(&sUk1Lr#d;J&pA._7 U"/\QBQ'X*D;,xb^z;yhV:&0hlOt(P9&+oE_>/\TlQ5h6V^tV9S;0e6Ms)%IL3GS2b,4SGTxtd:do$#bv>WIT,wN,])9]uW[S6uK U"leb6)n)9[=RMK[7RfFWOx0eCr_pcU;N[&Sn&S9%-ezrYSous3,.V,+'B+K;3vvn U"1C.AP-h$LYeO3PM>Dt.TOs__[$x-0,x6.m*l U"=34)A5]Je/D- U"S]W.Xw#'nKHaIuBwQoo7;f(o(YHsC]/jFKi\VQP/T9+v U"70Ojl8raL-fR%5CeirFOCuPXsS5rB)#12/rG93gQCZe#0O4)GkX]7bQs(Lg'9z<]V,W; U"[X/vZvOJkO>,>^&NAbS'JVvQX*MV5gCm$uI>on%RY&9F+zB+S,CrPOj=XA;'$F2 U"%_G4>Q2i0o*kDMV1Oz#e_NQ+UtsTL4+w?SS(IK+-#u7d]t/XON&Q:7b=+Fdp9K= U"IAjXuLpY]x35.[I,5SDq09AkyC1ip?>4&IJ0>oNdb]tUCB U"%U*)+<;/p:+]4XCyP+nS?K5/d+7+?tsWZ)UWo2b,l_[C\\hu4voaM:1>1KtOWkf U"h=<&umA[9n>ep5&$nJ/Z%V2yEI0H#N.KI+([_AsLr=bC'R\H.q=eqQ,76O2:[P3 U"KD$D=]rFX;5HARdiBxE3\*##tb?0lGzi)p#]Xr5PNYSrsrPh(>3gc0_'W4^_]/I U"d]bcWnswPeW^#FMsd]4lRHXkfTEnfv4&SQscm&,E0v$,_t#0CQG2U;$z:M(g8WA U"HGYLBLa=nib[mOfbRfkfA__vhkV*-T1vWr5.CDr(fIChf0ty[ahX2d&i)7#:;XS U">CLj\aAad%I['e#/wUXZMjP[3nEXO\B7Sv71$AuJb?Q;qn6SXjnj8BSdn5GckH$ U"*>,VUZRkBMTpD9PFIh:oMw#MbP0n)7O#DG>2\%=.Lyak=]KS96?oABeSO631I$t U"LMCKd1^ACsELvJ;1ia.vqNxiC)SjP%c#0q5VCG8^1CxGn=o*Ku[m://O_Q*ve[) U"XP/L;MGZKpBms%Et^3IZJ:qK9oNfnW;grf\f^*56M*w5,iwo_a/.^nei=N*^bR? U"cFQWY7SDIlR]_skC-e(m%X)h6k8p9]MS+Jov-LJX:M08yx>SCIBXWKVOw3;%gfDJ5D>/=$i+Bxkt&L U"Fese\%PK'rT*^_?A,>*c5\u1,W2>I.OT=mZ^5sXrm5.m:k7[#WwQe#1eqWRMGy7 U"/7f56J1(gBv>z./b5FI\coBW.AmuOZ U"-cSqb:r5e'KoX'*'QNm%n0Bm.sBSlFU(ew%IK0_ye0[R5G7ZYCB'exE)XqU*H[m[[YgpbOgWahb[+31JYp_yo[0f)uS3_PRGMR,U U")fCjdCDX^dJZ\WUG676=Ug>,HfY9$o^%S'6oO#GTsU\Mcw^jL.11>aV]]+t-j]f U"xR(tVieQ6T>GHH3;M$=2T)\nG_\%,Y,>(NKqTNAOdtp)=(wDG_8C^21LiiO3Lei U"/7]iW#BnqWo8[f4Yh)i^YgO$/K=3Sd[L)ezR%1^ALz U"3[It17$SVAfqbJkyJ?\)26bH^8_qJ(YaW*-SR70QGPrF8QYP[j.Q[dUASDg=aGw U"Exd5xOQ'=9)'-Ip#twT8Ob_%&c(-XPhh,uGYM[d;X.NBa5=Rb/YkKXtBirJ*>:& U"FzLO\s]pZ.*:+)Ny0#L&o>Yc2g:62SdI?$p&b/KNKT\H8zBRP)+&#Wfe\&4-irL U"p5k+W1?NbUyg%sPN>.-BJ0z[AYk.MDp53ZJ5O=7-bF]ZR=dJ3,/?;r>TqN=ntAA U"ouJVerE,QDKrc?'B/Zv4Ji'me1;G1akqIs<:01gjmqS&el\H.(8 U"?jwWqfjS-%v*nF&%(%U;%%%/%%%%lwf(k'VS[ifyN U"kfJ=<[E1j&/7tbKqMDXxNOT/B]fJR*EV_Gdrm_S7==JQ>^&MZh#wcG#P U"mq-v[eRlir'J8av(NNqlz_0WG_OqCZMPvf;wRc9UpS&xCx%Mqbv/kXamq\w^/iS U"$K&k-S*oBRX4d$n^GCSjP6Q&le)pI<$1$fTM3+^M]inH\k( U"XBaKE1&l>c2'Mhqo&C85oVZy&J%up%()9%%%%-%/rHRF8cySh&y)%%'P.%%%.%% U"%&&mjj#qSy'4y&%r+xTm5i6vYx?I0vMGr;Isd;s:)^&>AlG0*)9ITHx<1r(iv'_ U"(F3?rfTb(H2-^<[qCSt8sndlPV>1[R6PI7p]n/OCoapj%qL'LD/GGQqr^l#4$D/ U"bs-PJ<9tHOkh<'PIgO'XR?Fd/CQcISCTqwQ%3tF<#/W)R7GT*%oOT U"1'#'[pnla64=y&B&e9TmyPa-1\o**QX6E7%8ss%?4hjFVkhO:D'9(D[,vQ'TBg' U":*G=ZVFFWq%COVkp%#%:*(pR]ER%puAGsl*nKAP./A$%)aM6'vU+oS*&m3Bx%'] U"?h/d_XTOmur*udEJ4;K#+\3d>./tD8tPp%6:_/Mowo#[y(Sn_iGT7MJ0_A(R3rw U"JiEFGD2DJx\P=3X,XKbFPnTE?a/.S]RwwLfskP=/;>k'/3ASd^iJNCZfiP%'19] U"qp.vu^:]BUau'd8z[%Om*'on;:s5uJUyS*>Jc+W0n93$zGG5=4?gW2w*c$-uL%l U"-[u/f*9RUwA3:3108S>w,-R U"Epe=5hF.t]*/PSqj2MrxS(_#.=Zu\wW\HwWCCWaa]ki],vKqY[W5[,Cd061tdi_H$]G_hIhXxS*b-=ws=t,dZJb00dWCt(S^R.A<*xuUR U"]Uv3nmFcPj#0aD^U0b?bER]_*k3Wt4LPL14FPQg=?xmyEnBRe)kS U"*?\^Fb]>[:Xla:k\=c)^5I.l^]ulkvgXb#%_ss*cf8nss_rJ/\sdTjs U"DxjKa_4n+0xrpu9Twk&mTup%()9%%%%-%.Fbl__oQlWvro.*poDkYem25.iZ##843wwb?\z-:]C U"Acn4WB4W45'$/YO?nvSMGJN>8D9NtD$#EQ(>\3$^pd7aOACCaMSGLJI(uOBWa&3/F,9P&C.I(NUUo%g/<%VYy$A])/L2KO U"zBg4BA;:$i*F[xmSw2fXK*CAa>^%BmadCd*7U^UqNaV\V^. U"y1c5CiCVl&chP[es>)[hdyaFn[f)l'mimZ9]NLyV1djG7'Fba%f/mR;49BU&eWF U"ACm8MS%NFkf)]5EzLpP]z^qi-S#Vy]r.E7hqPv5rxA/kgSRWzJ]KqlUu7_]Ae)_ U"AmP)kxFHmh'4myuEhcHu1#fdao=I^W6EsM$:GJ=<#L<)'EnZbeM+/W5Ui)E$sRo U"R91'eq6ht?Yd0jbd2pj2]%3'9(lH<70QF.#,f$wk;0pGT2PFSf1&H3F U"H9Fn#w=9,6061x(S[R-mq%k0FeuRWB-ZUH&e'D?GI)KROAm*U00uWtLNDYU;SL( U"oJfq$0h0-Pdz(LvaB.dtNU2<20_,Hd.<)E1R/o&OW:HklF5\'EhSSHOd?)['-mM U"BYjP_k8ccG_5B2_1$ffY(^90^<^c+Xe]l$^K?U1,,0KaqzNe&#f9LlowVs(F(i'/^m21+Vb1Wcb')1&(, U".7]?Z]-A_IsDC]YZNEXE80Ba0uRDNdU^>pCuUnoNR<%jE)9VpT^Mb8:*mQW^[vq U"4a:,D3gB*q[vR#9H3AB_fh&kSqK[_L=c3 U"B3B',pWq[[L-o9D3Bgo%qs7K=%C]IM1)pncGjhb2g;]4OoB3B%auKLFRBHd$u$4$E'u0&0HH>0 U"#73gL2RX[s<(5[F-]w;4)GP0%]$J(,q1.RzmfH6M>4F6Nu2i,G=?/w=_f8iP0fu U"co^olR9iG:^?xV[dEllbals=1D&Bq:vZr=IbRAsHc24 U"M(E*+PpvK=OZ6e-_*5*hVU(p:\tOBGk<2mhiOUeo5D&q.59P<_kx4xD9&k&kJfH U"z\?66+PnZJSu50\G0i7fJ(8fWQHGUsbTT] U"DYo8#)fehf=Ld4OG[7=N4=HYi5bef^N,17)*xsRFT]QJ(\yWf7LLw/K8hZ3p4]B U"++EBVTp-.eZqtO:SkL+>Y_6EYq*m]u*;uahnWwm?BGg/:8OhbB^N=Hnp7HB[Ku^ U"E$#u]5E%Y48D\J\t.j)bh:>ice%Pc#?x,TPIHmk+3BhqM)GBe?-n[+DSdkYksRn U"3mAF/hMf,8,.p;_B%n=/$V&X^r^*h_*f5^v8iZ.D&Qk&Hc,lUibf?\YC-Zd4dHf U"n482WS\9;aSE#Yth[-^IWHBqKLaQ3QSr7JM?VKJ8*s.-6EhZRQh\&%6?KIK=TKS U"H4�/C:FN[ODSE&N1)b8f1)kG&B(Hs>nT%yA)Raz*j8%v=:/u+evL1xJo38\CB-8(b-VA5V(ggaj_g[5?[X=ZB5nG]u_B/Yi^&, U")goYvM:3,7;4]&5NJSVP,O4rH7+u0GiVf=2bhshr>+=(vey?G%3>%8axvYf2##N U"=/:^#MO-+$NBru%,up(%)9%%#%-%/^DRFsidrGv%%%%E%&%%/%%%%w%jfir#jSy U"'7y0HmarFvA.tx?P'FxMX'IXqysuIiD[TxU-o-YL]f^w?E9DTBm%Rw-M=rCBqq% U"?BH=rEEx7mtEr.zmyyn?nED=)cps-EBp)+Ooym+sExm%ozMo7rqGm%rvmQ9*wim U"oFnFD&?MRnaQCnPI(wIx^Nte>scrrR:/8rj4/2d/#5$eu[;PI$W$5_tmP9$$f$N U"c].P%49+Wlow,ZkwpAC97BSA9KYIwxDOR+9$f.;Jv'3NvOyOI$cu;suaNIM%4G* U"2OiuD91/'PF1Vz2z^-mCiWg)\5sOQ-CEaEMhj'a+.-HV=N8-)SwU,'%FVT*fRNI U"5&+%up%()9%%%%-%/jGRFBeNoD'b,%%%\>%%%0%%%%lnkW%gnsS[gfx>g=:>[61 U"oJJHw<6ZE/p2,,a+XR&Lm&g^L)+1VS9Tz*NdwU%5Zruq1u)8?wsQsT[)a+ufgas U"j0jHr$5LqHTg3%X42g2,qeSsMY.e5F:TsM(U2V_X<4:=UTIBi1db7OX),w_m,U'>9^=>/]Dvub U"Li<)Ki(Ap+26\'mv=ecX2/gpSyH;wRzsQ^_(R$*MTBw-Q5q0dE<\G+tWGH7hc6F U"&N:o;hQ?RS73n8?A/ysEL>GvQX>6:/Rt.n1ES U"UB=PmrU0*E+-h\h^TkZ&vfe+f-;XbRruL7YkX%FKgA[L_kPELz6nnHdi0+HZWeg U"K/hqlFv$yW(XhVwHOX6T#O2k,h:9RRuKJ-L0j)2POq4$%$Vs+V>s/U%hmMRuX84 U"$Kl>&59YC=ZD^*9;9a4o9-3&pr+^2uUtFUd_1HjalU^Yi1Q[9UB?9'b>hCk2;5n U"$DvJm)_GIeiaR^9;tE8O-jLnBrG$y\A'Mf.LKZp0K=mB14vw%4gR-H,,?mth2szr>Ec9a[/ U"tN5bUJ$5K(GG^dHoO'#-a]L2gb(Y+L*3T%#/crp]1Z#(.TMIWANs\Fv#ch^Xcl: U"5jJ\E'^TM()9&=8F1D U"9^D\QEI-p[U4KSx5O>?aFV&([bU:^lrl^+j=?*o/ U"kSl*QW,z9&7:&5_F1%3zMUJv^=Y0puVL?s&,n6OqK8U#q.(zV6%*4)k8+BN[-AS U"ui7rHc*Otto6U)\)WmC-fe:M>lUlU5Dj.opsb2i5PZ3e0f9fv5UJBQ0-t=)T-ea U"?_:S'X9Lljb?Gm%/RI7LbiRQQZPj__*E1ggng8oZE(89z%[W[z_hc# U"6rc]&'P,LA:uGY+W)%+Uk+,pka5[)v5=S'MBi-)+%X)[+nVk8G9^4+$N?xk+q.P U"rH16*6Sei/cSuV-t4D#CTFWX^KbNeou>M=S;TGVRs&%f:czO5U:7YtU#ZMU>WE4 U"\A5yC/^LHTUPo$LKI[TW_BliaSc=&P\Ha6J1otsR5$5dI>=WA-mQlJO%fa4ZT-B(ur#5= U"T_FHgT8J].om]b$##%s\G]+Cp*M4whnSzCFI.fP#9Mw]6(W% U"v=o,=99LeOAetw1f0rY#g+Y42BQ_1&H+e3Bl%c_2T88k6zFl/Q7kw.lj_lF/1f1WF<( U"T-&NP4Hk:.B'RY7RN^5F^^=Dr825Q7mb-gK#]9fKpwtq[GxIj6T+7vEtA:rAcXK U"^4[qF[1WJQ]#H55g574.6ZoYqueH#UKjFwIdImJBgv'zW7HgdIj:2:, U"^rT%up()%9%%%m-%('8HFiK4z(X*7%%'1%%%.%.%%&m%jjqSIuz)3rS(3:'cmqmBq9II:)y.ce,=^Ly5ALB' U"KiU0Mu==wr$4RilBB)OdgG-uQ]<4nsL-.c^o'MSR-\kci2YRnW&GDN*p1/Rv21.w/wJdNjil-vdqc5D53s U"0]ppYCWMimInfDE//]5D$]Fxaqn^]Vj$xVVclPv_H]xuI1[-K-Ac4Ad9aObfWve U"2G&vseKl-])kazXaB4Qo$GI#gl)G%^Be8%/t89*\nfr7796)3s5b?EY'KeY+o8qlI/njoN\Q\?&%gm(is$*scxSKXLkY/OUK U"tPHxaW1?7D44O,q?H'uH<[VNz=UDRO3ErTzR3E9.22zQ< U"#uFTgxf8Pl1%JNe/:isSO+6HkYOI\Ue8fgE0:+m1JazK7)*2=pXRBS)jArgBJ43*\Zka2MFWVP$;#b9I3Jcr,^oC+46xs;f]D&QKk=(M U"63B%1+X)N'&uU)6j01N7ECfFrJuAbEIY%$-=?qOG:(lt3IL*E,m'(85,ec:)krw U"tiW/wZV^##SbqRVg(tlVu=-athvqDAd8AbX^sV.&N%6(\cMbG) U"KQIAtDi%YLZK$PQx;HbaHmT4;%GF4Cq3xm9,3McHh9N*c#[w,(GkV0Kx(>)\(m6 U".3q6dBFt1h>?_,zJ;tyEY(/F?g](l;BL7VV5En50W0AYj?0f:'SK=^b;QP?:o(z U"?TuEEO?'mp9:n]_10B<0NCp=*5y]<(Bsa1uuB4O+'0j6oLp^BCI/Sd.gud\ U"gRCS-bEp^4%I8uE%tC'kq;A>L2gInRY3Twj*'AK8is#Cj1t%CHL&T9p-hSYK.O[ U"P^TQ,%KP:n)1<\%0[YZ'Nl*sl/n\?cAB?lVLc+%>_YDek23>Nc;#2[TE#&=T>?< U"rTs.X941L^KSZteHULYtkz*j_=+^&CR;PZjgA?>/g4*:;VI969upB;N5*GfvYX^ U"Mx]&o)F80R/b9aXR)sZ01Z_Vx3w:xmm(;>Mg1bl-F)&.Xx,%up( U")%9%%%#-%-1&JF)e?x-q/.%%Q1%%%-%%%%rf%nsSldnk1#L]kXX>X&&RI)fMMMM$$$.9/Tktr.--IU=[.Ep05O. U"n%+0WuKrh\)=E:F%q#;):F+7[.sF:0.IgstQZ&I&0wRqaor2/B.$(\m+\KY&0?a U"ptRZ&EQ;-0gHOq#;):F+%&Oi%-.0eu%:)<>9+')5Ea'vOg U"I%;FF%NSc>v+TrSl:=.)GgeK/K_bd.)<>R.W*Tmq-8:3/E6%(%_4%0J%W&(e?P= U".5eR%jDq.QHOg17.YMR+CV75ZX+:&/%fY+icDu+T*SlfvF6=MQ%L:fBRj5UY13w U"G7=y=u+6TSl&NQ8MMhnA*H$&N&Y\Q&s'+H$/No((1o*D'ZV8N>Qrt/[bMY98q;Q^lv=S06n) U"tMN0gsMYb9>(SecBPI:^,=e?ljYFm27bhJLV.Xkh\oNQ1O?zJJ1SGku5L#VT'[v)]B_?**UlaP+A U"V1ns_&6>&(Lz3%$QBt4^luT[\h&K$z8GRsJQf<;>*4;+k$+qJr#?Yy.7[4UgVif U"qC_u?ONQ$bF&X30kcBv;/4=,f#k\j)M?zW$:FUW_elI0T7op/N\eqj.QlHVHEcx U"j[M&a3rLfqnIT1]HXB-284kg#>B-EClCjY+Z)-)+CJZJ?ptl+,O[7D^6WW4hz3M U"p5D$/>YqSG]/U59rspia_'It=wq]UMK+nQQ2BA?hK<*7_KeD6&eMqXL[e5F=4.> U"#D[I)fX#AqULMV$^7NhZ/=kQicZEye%CReWKBKe:[W_UEt*KXtKhmX'e.aF_]&% U"C;qC94qcAcsBGNMWCSiPwOYQkaH(_ukqbzBqswBE[^b U"Cb),EW6zla*CIo2MpI?b=;\NX./=lNl7edbv)(>s7QMuN=kDplHs1)A2ml5eSGH U"9%aqJ&xnpR5d(A:]Te)0Xw4CV_+v3eK.D/zp[1Z(o/qn:[,0-Cp9(dwB\?3-dagY?%7#+f0G=(1#-cM:2?4%;#0=Uwz;-Nfo2=(?2HQPE76uv:>=Xx#7Q)5HngSJ%*tI*JUP< U"\*cP3$^dp/\GkJ4k_W6O0P]s\f(E.HE%ie7u]^ALcA,&o\]//%=)KBft(E8^v^_uU U"Z'Vho:HHN(EPb62K531\0*ZAa5ob_:r6eTD*:eBSk37w:^I9?T=PRK+2N0:O;%g U"=4a^JG0-:4T^YD8(DAGDCGj\^9tD3*^^O^:hJ,[0s<3mCL0pUn0N\Q?5UV'E4TQ=F,m\4-qZ-bx$EdDO,6JXX==VuQ>-c,Q[?A^IcPmY\+$r4xo5m*bx\: U"\5Mj^r-XlrqEl#XE\^RKI_FvFtzN+m;1+G4r+apEbHiRi4tPPnm1w3=[wy^7VDh U"EJcH4ARo9me[DGpglNj^_-Uow)i9]RBWPC.*/1x)buJz<9B3PLhiEwCA*[94#W/ U"0v_'90Ji3VoX0E>Ck07QBsyAh2.hWkcZHk/([hSsF7^$Q4-sCRtp0.iLqs?D.h_ U"BO1TLCoJ4BObW;$O$nSAeDro1vY^pK[>r;twZ=.+[Ok,A$q,M4],++1cuhgv#qr U"S97pKt]kfCMGLKl^%:PU$]nY+?n#byGDRN1oSZY87u(NsUaf&n6SjN\2_fQtBSk U"K:wCKjo U")&tR%#CJ;DDAE2OQ_4pi[i[5k>>Uf)GEm'Ml5pC)wKM-yRsA;tp;bNgjGe+l1V7 U"u,UVY*%CdVFbw9sUpMt4GdV8.sS8kd(QP[3qM6/3T]M=GSgPbTdA6$a>:g(a3N-ORAt?S*b&3s1d& U":GF44,8EFN;x&&XhIhN\;M6)BBgh1GUEDT6[uabMv;uL46^M?01rN_3^wu3;FFK>$yJL=iI&)*K3W>bS$Pq_+p U"3j%#N\?m&e5?o=gueKq)8W_o'sFf$J.N^s*M%X<7L9RG#/Kb0DRcU?%aO3%W=.IRbt%Y\H1%r--t[=CXbXG]jO<8F0p1&/Kr.DCy6chEzFS-6=uDtU82;[z$S43UBN<$(2BY1&]onw U"vfrTe3&/u-H>u]tuZ8V&TGV(*Z92H\RTFDyZ(h%4_z=R0Z=yeOvu)&_4HGG<&V< U"JCV_sF^W?Mup*CQn1q=CT1Ul8GzvvTf]EnBWn9hy1-6LB?pI8'_(Z8R7cVOdgT8[se)&j;r-kbf/JVpl,Sn;sAix,O_$ U"8+*7i0s+x29fLUsvDm6gvpn8fjKS7LS[S.4_p*RBA.W U"WXo&5dkkP#rZy9rD.e-**&?'x(up%&'9%%9%%%%-%UDeRF4+/66?4.%%c_%%%.% U"%%%%%%%%&%%E%%%%%%%%&&mjj%qSgf%xup&%'9%9%%%%-X%*nF&%(%U U";%%%/%%%%%%%%%%%E#%%%f%4%%l#wfk'%VSif%yup&%'9%9%%%%-C%rHR^FcyS( U"hy)%+%P.%%%.%%%%%%%%%&%E%%%%[#6%%&%mjjq.Sy'y%up&'%9%9%%%%-%.oWG U"F:J#q(%y%%%&O&%%%.%%%%%%%%%%%E%%%%,;%%%mf.uu(S%gnsu%p&'9%%9%%%% U"-%,%%%0%%%%%%%%% U"%%E#%%%$%A%%u%hjsy%jwSg%fxup%&'9%%9%%%.-%/DnRFsd;rGv%%%%E&%%%/% U"%%%%%%%%&%%E%%%'jD%%%wjfi%rjSy&'yup%&'9%%9%%%.-%jG8RFeN:oDb,%%% U"\>%%%0%%%%%%%%%&%%E%%%%;F%%%lnkW%gnsS%gfxu%p&'9%%9%%[%-%($'HFiR U"Kz(X[*%%'%1%%.%%%%%%%%%&%%E%%%%MN%(%&mj%jqSu(z)up%&'9%%9%%%#-%- U"1&JF)e?x-q/.%%Q1%%%-%%%%%%%%%%%%E%%%'QS%%%rfns%Slnk%up*+%%%%%%2 U"%2%'O'%%'o^%%%%% END SUB V2 CLOSE:IF S=165AND 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