'===========================================================================
' 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$<FSZAGXJjsx
U"RCS5T1DA'1F8;7j6Y.]N*/UQ_TfGB8=?eW\]fh:jSm?<wo$ZKEQ2G2ApjMBnVmg
U"7*rJA7Y?\[k7BlH1PCh.UcJ4*#-A3IhTUYr.r<cS&BGN$NmddngLVws)S4XemdJ
U"wu%ur;r/,iHrZ3b:PD&9'd1-<H8^Te5kUDxdWEo\.)(],0ldCUb^RCQHD0lc)T'
U"lQ,)g(CqJ<-<:qE0H:qY*i:qE<h[>nDQ/fVjdv>xSlJH<?3nHviWQI*h^0?bFRe
U"eNSlRE^JP1GRfzj4%L41QZKZ_>sdWgc]s\9P'qBY%]zI7't5*[4#F0i%'B;cnQ=
U"TiW(]R:2NT7^j2v4eeG['WCA5<ec0).Zi)%21+m='k;g\hR3(uEm8Cl/Z,VHDqN
U",&lKbhIU/I2<;Kro7F$5?^V[ru6b#&EIlioBu$*UDU0?EgV)Ec&RJC=[-(Q([2B
U"=<MX1AHRXMEJ+<6T'1\M8=Ijw;H'fUAJK4[9(rvkf:%=)(d8Y2<Dm&niuq(Lv4)
U",owGRB%-KPY7^Sp\anO'tc6u7D12qp47+6[I(nZu);?YDo)_I4xK_'FvoTEvc^p
U"57?35k#E/rhLv1MgW7WBQYX,XX9([j,lCf3=,CJQrm,PjR;5TzYgFHjIXf*0b7V
U"/c3XvdK*F7a>PDRk-GQJmwu<M0;%^e8g]xKgVD3\v/oF7_7(tRoxt6YEIlRgPhb
U"G*BcNYkR:H#e6&Q$SXkMx:rKpHNbF-8<$UT)TtML,;DON9/nn-T,]gQ59\'px\3
U"=S%=0m:dRg.t*69.,=**K+DEc(Z+HqGh3iL?C=N2+M>V0c9?MR7;Rhv33dZsm>G
U"%f%'Od#)LM5SLf('qtl+MQLa&S*=5zGl-8HGkL&R6]Y=^/Ure1,tgS71?TZGO0p
U"%h.o?P:fj.aKYuH4n067;D78dEggLvOD3NK<eLc4hUN]?Pb,NLuwknT<'-w#l$,
U"[e4^Z=kjj-:DPDg\FoF6FgKY10$rh-TNO]5dZ.uEKFPSA]fR&haDBtKy9#_=,VW
U"S=>wuf,#<%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"idTg0cSDBot<?3)npU6#fc*2xbKodi.PF-c(7N7G+j,5R\14rlofveb4SDWY:Wb
U".T0cNn*b$W/UE7?nOdWR(.<\ln+gB.btcgX^G\MGa3%GZ^gb$wW<9XJvup3TbOw
U"nZdirH/YX2Mapwq'1IVa,/?/[.#u(yd^>8n%W[sZXfqZNHC,0JAE.<Ek7\Ppel.
U"\B)QK)Pl/(TS:H4m&bit?J\<Xn(2^cwphy'X%*1->ZOw%RehGN\()xiJpIKCEdl
U"/4]'FAS\7<<_vX\p(T/MF$z)[pEIn'Q4]eFvki5Cc*-C4<B3K#GoM4*>#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;0e<bmd,QlW;-a
U"V/z/VQM#X*AxvIAF>6Ms)%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_<F=0/D0UeV^_/=BN#zIDbaT[vW>_[$x-0,x6.m*l
U"=34)A5]<?Lcr%pa'Db:q)H^FQzbJ=18FCb1(p1M2,uG/qIF2Mf+J<rfBu%k8(p/
U"_k_8OcuGi_3okPA/pvTsKua3]WBGMH/'=V7*l*ha#IKIJP*KZMVhch5QI>Je/D-
U"S]W.<V^USEfSERd4P3<$EU>Xw#'nKHaIuBwQoo7<lG^ThrH0*-5ra=4jM4roT,$
U"cPFcGN]qJY\Wn0OO%6]neBG%ai5lMcMw.q+dG80zsaqo&X$3*ZWSZ'Pw\ffkFas
U"jJoAD(t2=mW4PY0pPwmG6pJ.uomaEO6XEP8-D4a0.CxMj^Lzeu9.nrV8v;RI4U)
U"3./vU96JmKMgV0-g>;f(o(YHsC]/jFKi\VQP<hMC,W\J;*92l9QOfqK03>/T9+v
U"70<Q\0]V7v_'VlJhFnlQ16g+iAQ[eJTBXAK21%E?.AmCrEOU&uv4_m?k_]Y;Mxx
U"tQGU*dDI<*urIwvBZt\)Q8tZ^cL<mu>Ojl8raL-fR%5CeirFOCuPXsS5rB)#1<v
U"JGI?p.T)rki]O2Z3b_Zlffef9fwcUjA.u.9d$pM18&.*kmejBiAjU=LqX'd\iFn
U")0DjqMGnwSNQhUFmLt*q,DG1?/>2/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<d1O;cNZbJNVCmk<=E=g<&g\0W%
U",S:[^VDir_Y[1)yPjf#YxC'AAt+1Hb6u_zBP/7Wn,kVlcl_7TE8WP]EEVEkzsie
U"CQ^Et]S1A1Ym1SLu<m5tiXpG'1pni.vWwzAK)&.,wij/Vnyi8j/$Cc=#aM\iIx6
U"aUMh9JAWHoX#jOx:EiI+m:3a'%29'vb58<Mh6(*NucLb.it48j8\:j:s&=*72B:
U"a6(Du[^?6nZ\aRWsj?uknrFb_g%mQN=UuJKWa%1guC2\T94)<.%1-CaxZ;-pE.?
U"=8Eip8(4GKEi^4\?\P3UJd7?wPzs_PdS/pd63)#<,aP^4T&#7hJC>>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<t(^qqS2h.6W*B5N;mV)JKujcA6kbgX9#5<^a<MYg8i&3
U"/[>(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><BLck'(V/Mwe)qL^GMk)ir:\4it1lIY['s[2Nc/W[83([I,/lAE
U"#XOsJ6m1bM^loiTL38+qr5.6Ql4yd_*Y9)aix:gzVp\9>z./b5FI\coBW.AmuOZ
U"-cSqb:r5e'KoX'*'QNm%n0Bm.sBSlFU(ew%IK0_ye0[R5G<UqyjMlqQO3'W9fk[
U"v40epoJILfqk$.v^6bcRu*2]4x;PeCKD%98R&*p'tl*fbTk6.Lm9F_%*fGy<+^i
U"j_#'FyQ=7FIZJ:2/.xRpQB\=uiWYd]QYdkBItqqu?:wsTdT2V+4*?au\Q'X'D=_
U"24rk3TZq%U?T18*)k$J,8Anbjk7QNFHq#^SvcGYxp)jh;Sg^3tK?,8Wi?re6KR&
U"^;ST*lK[h,'I42pLTKHkU46L[:Z1d$54xepD**W\JQ&T&yG(Ihlw2<?;k6n#ImT
U".A]Q/P]w>7ZYCB'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^<ikVP?L^-CfE/G2*.Xm(>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<:01gjm<E]d$R;A^yl>qS&el\H.(8
U"?jwWqfjS-%v<u%p()9%%%%-X%</ERFR]>*nF&%(%U;%%%/%%%%lwf(k'VS[ifyN
U"kfJ=<[E1j&/7tbKqMDXxNOT/B]fJR*EV_Gdrm_S7==<QT3v_80r-\7T&v7hJDPd
U"_OQVSZ,HfR3K4SaBfJnoZ9a$C0-q\G-oJ:L.-#uXa</V))sgPvWkE),iH7ZO)'\
U"NDjs_lfEDt(Cv2flw)G5HqKKif)\TK:/KchAswkeQP*M1_2,>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+^<biIhSFPE3lKvAI8NBV,5V:b
U"j,L6$o5L[gipBju4mG#CAEpBlcYSsIrwu-f_J7<%hB_Hnk2?\DJ(D3%u#(5-3g\
U")^:o5G^,Uu^qmLSlvPjJ[9]B^r$aPpdk0G;j6jj#)N:Tm4oKt4Icsm>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*%<Z]YAmPy^X]W.
U"x&a7so)'i&$R)t\u/6*)oY79_pZdOLkM89%KVIyzD/,4Vy-#shxX1S053/W>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<d/BfIg/ffupWQbcMPCELlZ;W53m]z^?J3Syi,$dALvXEzJVupsfSgpf\zoE
U"?K/JaUPkWe)0#F<[_([*fJ,A'q-+gG0Ns*7YfnsaG%BYkxMxcr&L,4gzCmYL<&r
U"Z6/o<s*xI6m:3)/\[s7-.nz]TrccGYRs'2kV7&+<:'Gtf,bbQwjCmCA^;s=n'N(
U"U?6r#9QTD^ubvas73/Zilx)t/nc5Cw#n9-u%eBOG7,>/f*9RUwA3:3108S>w,-R
U"Epe=5hF.t]*/PSqj2MrxS(_#.=Zu\wW\HwWCCWaa]<BmBv27Kf4SdI/MZiQD/q8
U"ho&moSk_G4#-R\4%PAzR_u34P*+WDJ_gzyMR%jDrMBxYg*_LDRGmu5&:,EyA_L?
U"WQVQXwf6j-]A_K.p;chM0Mr5D\,#U]aC[nrw[zer,Pam3osJ./H&KpiNFJh0GLz
U"_C&t-_d\N)ona:(OE$UU-R6Z\&1/L*&0Xehgy:^[W*D$Yj&%um?WwIBt5r+$)cX
U"0S$xGH(599(:u73&xbs8JU%Qt?eCP>ki],vKqY[W5[,Cd061<cT[sUmRtK,M6)r
U"4T?[,tKoThb0RYAc>tdi_H$]G_hIhXxS*b-=ws=t,dZJb00dWCt(S^R.A<*xuUR
U"]Uv3nmFcPj#0aD^U0b?bER]_*k3Wt4LPL14FPQg=?xmyEnBRe)kS<w#9*M;Qtd>
U"*?\^Fb]>[:Xla:k\=c)^5I.l^<QY4XJf8C\??\bu1YW9v;f+]1aPC,^*,=8Efs_
U"l:7'Gq0xB)dDO]JRVEd_=M]QvlDNu,v\&R0'-+:;zJ/9^+60ukvEY3':_rQ+#d;
U"isR?J$gK5Iko*)*'h+7.cUQ]G#dEha(CnVg^oK9u'8/zZT8mZ5Jms6_SmtYC5c;
U";Y$7R*NQ7q#D_B$sqru+05P#jqWl?xy6Xspv\UL--gj,C*[4=%6X?JBxu%p()9%
U"%%%-#%oWGdFJ#q%(y%%(%O&%%%.%%%%mfu(u(SgIns\_7V39E#1(22qU5atg,m)
U"9LNsXy3oSW]0R(8].v_?9tQc9&:k/VV->]ulkvgXb#%_ss*cf8nss_rJ/\sdTjs
U"DxjKa_4n+0xrpu9Twk&mTup%()9%%%%-%.<NEF5GAfO%9%%%%[%%%%0%%%%utns
U"%yjwS[gnsLP/Y1/P1[01IgGGG,GI.C%y%%u%p()9%%%%-#%ANEFFbMS%q9%%%%[
U"%%%%1%%%%utn%syjw%WSgnjsL/Y51Y0'[&C):I(KG_%-Cy%%%up(%)9%%%%-%rC
U"WGF:JZJO5#%%%O%&%%0%%%%z%smfu(u(SgInsL_0:3OUI-hP?W?RXN<Qv3;$_5g
U"e?:Z,*iU_*UOz^_yLh1Vu*BP2+*DvX-'q/V:&m6%6*u]1Fn(kA%$[DIDZ0N1gh#
U"xi.qg<m$G:sZBD6LvJmdyBKsNVxcI,69F,NVbd%up()%9%%%#-%M1SJF1K=%qX)
U"%%%ii%%%-%%%%rf%nsSgmns^S9fw\[.9+/4DlpdD[0J9A'#gg7Ao)-Ph<0f($W5
U"T,$+;p$Xm$AagR:ER<p.[>Fbl__oQlWvro.*poDkYem25.iZ##843wwb?\z-:]C
U"Acn4WB4W45'$/YO?nvSMGJN>8D9NtD$#EQ(>\3$^pd7aOACCaMSGLJI(uOB<q65
U"I)-4'A?=A=f#gVypI[LyaMGHLTLuz2g\Wog5f55_f$QD?_9aM%w_x7MEhPD]C[)
U"eZ\&Rm,W1&_5UT=]M(gPBKU7'&?N+9[YqR0I7Ne6E,A8Dm?0+n?,Fj,NPE&#8;w
U"(1agA[x,X#[LAI7orFT*ccQ1$)W>Wa&3/F,9P&C.I(NUUo%g/<%VYy$A])/L2KO
U"zBg4BA;:$i*F[xmSw2fXK*CAa>^%BmadCd*7U^UqN<X5CQT4o#eE]]GZ>aV\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)kxF<SpA#YJC-RDJoJYgF-C%]$<7PK/hWhzP_q*T-)s$XX:]9C&05Yh_0lOj
U"EG[s9Y6oBkdTq9$^Pbt_#ak$vSv6GrIs,vX3#HC8NrL?EBc+^^A3CC1#B:':B7m
U"NrmqL#>Hmh'4myuEhcHu1#fdao=I^W6EsM$:GJ=<#L<)'EnZbeM+/W5Ui)E$sRo
U"R91'eq6ht?Yd0jbd2pj2]%3'9(lH<70QF.#,f$wk;0pGT2PF<T?]4lE>Sf1&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$ff<E9pFA_]S:AuUOE_$s)z2u3335(y]0FJXC[HGg33E[qF
U"+[(+LR1*^Og;GCGVt0,Jg5;VSqf3%n#AL;)Ih++3h1_yrB3U5SuReA4rdh/VPSs
U"+x8Xt0$?$B9g=9uXAiN%FB//WRg*h^m6:?5ct(I%h_I9B5jL=Sh_9p[/zuEpkoi
U"N/#A'MAA0zCGAOV4.qJjFdA1DUMH]CI3esV_.<bco/Q1AU,cYn,P0P#k2C^=-TO
U">Y(^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&kSq<UMbL\)XVW^h,h'aN#Fqo%Cq[LX'c>K[_L=c3
U"B3B',pWq[[L-o9D3Bgo%qs7K=%C]IM1)pncGjhb2g;]4OoB3B%auKLFR<hh,kMq
U"[;VUIEN+BqkG3,?9JpiB11yX'N9V]S4ZjlvCZ,aMj=*YUVHLnYJO77,XAs10tG5
U"14q4mFg4WBh[v54Abys1:1ILe[BmSY9xlEuVygM&JRt4UG_1eS+4M(c:3kYn)Zl
U"dAibx%&up(%)9%%[%-%J(6RF='A5z\#(%%>%,%%0%%%%u%hjsy%jwSg7fx^yCp:
U"#&=9wgad7.\:GZBG^]>j]YX]':A;QR:&(d3Qm+ANv2[zVijG[)78LQs$d%=Gm[.
U"3FU51mktnj;SHN/d\<<[R9oO,tftN=qH2X]+IpFjDAT2>BHd$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=1<ESH%Xtb[gP9Sm9v[)B>D&Bq:vZr=IbRAsHc24
U"M(E*+PpvK=OZ6e-_*5*hVU(p:\tOBGk<2mhiOUeo5D&q.59P<_kx4xD9&k&kJfH
U"z\?66+PnZJSu5<Pb*W#xDArBB^<Mi*G+Sf*H$9ZbO>0\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&#0/C:FN[ODSE&N1)b8f1)kG&B(H<C^q,d5ozmBi6^BCw9,;[3kx2;i1KKC][
U"Hazxd_mjbM*UkySMud$(+>s>nT%yA)Raz*j8%v=:/u+evL1xJo<e+R&.P7o&4uR
U"m4gfJeSSh2t<\T3m)V^ugo</7;ciB4PkoZLHra(.jbhOs%H1ae+Z]0Bb7XUth)H
U"HwS/b1Oev:CpmG1\BJ(T>38\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(<FyNPgLdbL/(9MHmVr9uTn8EqgEY
U"0b.T7o6);f0IQbRL6d]*zjt>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?RS<UT3bV[EQquCMS:X:.1/&g.fC>73n8?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-<oc.EI_MiG
U")GAKB[G+tTmShoxmh70yRM;4uiu2&o)W#Bt75$3.Q*_->H,,?mth2szr>Ec9a[/
U"tN5bUJ$5K(GG^dHoO'#-a]L2gb(Y+L*3T%#/crp]1Z#(.TMIWANs\Fv#ch^Xcl:
U"5jJ\<I)$G^$[&W8'9h%hUb]BQur2N5iwd(]S=;C=$-pSnG5(>E'^TM()9&=8F1D
U"9^D\QEI-p<J)8Mm9t7=I_/*vz(I?u_#vBqkgyUJ[%MOFHLM0j7Qv1>[U4<EXJ$M
U"Xb70_9UvHH:8X<?4EK9pG^f,O(WqgFe+K3H'<K[$Bj<8]kxh+&tg:TMkRQWF5m7
U"LRH_CGdF0c)AZ[UZuWOQ\[SSed6'5?niYThF]usgi6<=n0THP?+-i%Q=f[1voAR
U"b^/^pUvF/$e06Dut*FlI=su0E%o]d#?/Nj>KSx5O>?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'X9L</4gV*AG>ljb?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[<hI/Q:rri3lad/v?'[ud0EDBYv)HhZY_TryASE'VBIW^T
U"lOme5F5OeE,>TW_BliaSc=&P\Ha6J1otsR5$5dI>=WA-mQlJO%fa4ZT-B(ur#5=
U"T_FHgT8J].om]b$##%s\G<A9_h<=+&?pqkK>]+Cp*M4whnSzCFI.fP#9Mw]6(W%
U"v=o,=99LeOAetw1f0rY#g+Y42BQ_1&H+e3Bl%c_2T88k6zFl/Q7k<RGh+=e1S?F
U"_HakGC3Ru,tYSp4[[$pT%,R1a%iW/^l^xpkGRv$%rCbogo$*W:d/)%c]9om]L8O
U"r:A4Sh&v&Lo?Z/J?rYp,u-S5x51E3f,0S$h+#-K3m82fKt/E?nMD,&IF8t;s]tb
U"fsawo)g?aTtQ#Ho*n:wwBu4G:DI=ZMnfUcwd7leNDA5eekrtieqLhUPf$\B+=t&
U"*7mmhXn(5)T*q1k(,rX&;+^<q8r$emJcE/0&mLS0[sC6RShaZLsA6-a]ihnsue1
U"X**P4x_HA\psz_]pnHAq*u+,<bnZ\$Lbn8%3Kk8'HBdZ.bUH1gY&1oyj9vwhC4E
U"CUeszt3]F^]f+#Jp0*WJoMd'VVJ]?,rpT?G9G9K6dmf^DyO#e)Nuw'0:S_:t]Il
END SUB
SUB V2
U"qsZ4&D;)FJ=*\xPSPpu8SjP1o4F3-8EUxbUK?FNK+tXQ]oOFxxZ^+\<UpCOLC,5
U"*?s0&_n2v2DE^(gwP#dS-hUq4c2qtomM6el?kSx/X6#B9,UZ%bWQS0C,qrMl,HE
U"<V:j5CsD+o_6s;aAqF)<MxN;2xa6#84CejaFb,Wd7kb-GVB0\74iL6juCn#2\N7
U"z4sKpzGHrAK$m/nYlNG.k:8Js]X>w<inw.W'83\4W^de'8Z\<HH[[];hftBED6$
U"-Wo#VO1n$C5doo'b)4jxa)'0&5eTF_=?1pa:.DGbeCt7NMF'b4d5^)toY/5c_PQ
U"^99CFZ.[Vka_G]mo?v#FrkWRGdX9PpX](voD;_x$na-rM?%/>.lj_lF/1f1WF<(
U"T-&NP4Hk:.B'RY7RN^5F^^=Dr825Q7mb-gK#]9fKpwtq[GxIj6T+7vEtA:rAcXK
U"^4[qF[1WJQ]#H55g574.6ZoYqueH#UKjFwIdImJBgv'zW7HgdI<vx?jp(;nW^ss
U"&2LL6Yqt&1ccIv<Pe-rsFk^8:%hi-/[Utk6f;*0DpWfV1d^wCIxVR%uLW>j:2:,
U"^rT%up()%9%%%m-%('8HFiK4z(X*7%%'1%%%.%.%%&m%jjqSIuz)<h%*=U7_1vT
U"oIbid.+Eij0I;<PJei&^Y#U>3<ff-Lm>rS(3:'cmqmBq9II:)y.ce,=^Ly5ALB'
U"KiU0Mu==wr$4RilBB)OdgG-uQ]<4nsL-.c^o'MSR-\kci2YRnW<NRex^;bf#Jt1
U"wri^4_irSls1MX7J,pweoyy_rS6uYp#vsl?#7)c&#mhb.y4]\4s'oIia]Kv$T*:
U"nfjw?CWW=9w%F2ao,3%7JY6RncR8lH,AQz)5[6,zMLA9=[2rsXp<jaCdT+Gnot^
U"<h?AkuK'VgAvf0^53\JCFGv;U9b0e5>&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*\nf<VjqKRpo#z6*nYf#D/lF,
U"Ygm9ov-'BZ\,;Mp$Eol1w#+Mb=C<G1QH5YP7\bV2Lpyih:S<<0QoTx7?so33NPd
U"zBH:487TF9s:P2TsI3BbJn';3j3rH/j,(VfE5RtMssUqe9.LE+qo#o$9:zXOp1?
U"f$Rs\GDL>r7796)3s5b?EY'KeY+o8qlI/njoN\Q\?&%gm(is$*scxSKXLkY/OUK
U"tPHxaW1?7D44O,q?H'uH<[VNz=UDRO3ErTzR<N%m7ivl4mIUCFQQ(QBJ5sk#gxs
U")gbZItiAh$3(8%sYIo6M)wXBs#c%R*f&Ijv5xrcnZa_q&gmQfBSx=>3E9.22zQ<
U"#uFTgxf8Pl1%JNe/:isSO+6HkYOI\Ue8fgE0:+m1JazK7)<Skol\U&<2[&Wpqa&
U"d?2W>*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)<Nrnpdhm\?l^c
U"[6^WU['2'y;*Jmh(h*0Zvc*17cA*12Vuej<zB18rJ9SN0<I^ZnG?%RMG5ZuC1'G
U"fr+F=:^nS%vtB#%[/:[L#Guu.ng_xMtTxb*GlSUm-Sag<ZCU4(Rvt&jlha.7n5X
U"^f,<g+<;NoO1Jy+.Uo]6dCt6Jw7H1K_\+I$GuO\eOPwiDSn/.#2^C77hY^HO&S>
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<UK\Zjb%2=#go?c=)V<XUK-S^w?2h7S#E#LsjA4?Wh)198CY&OzNF0brM
U"M6v^0RUvU>?'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:xm<NR;D:9kS&-JNse<_jRLF<6a#T]-YCyJb
U"hjenk++mf;?;NX);-xQ5PG\Dermo#TxXZ&bI>m(;>Mg1bl-F)&<MVC>.Xx,%up(
U")%9%%%#-%-1&JF)e?x-q/.%%Q1%%%-%%%%rf%nsSldnk<L\HaydmD,i<KIm,s[I
U"rWBB7sM[3fs5ID()Q\OJZy3O^1bc\[fvoCP+p[HIQ62iB)We):eUxZRJAd;4Ylp
U"W8NU-Z7H$Hkl$KWrHn$a?b\Ny-(X)WnP&Yx5bvB&uRRR8OsRu*XlL&P&NSx=hUN
U"lYY.t$<%&&&YO?&wwPW>1#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'v</'.$(;X0Z)_mN;+>Og
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'Z<buO,jIBdnC-'ax(r
U"k_+LlAFq-8uEMXpZ>V8N>Qrt/[bMY98q<l;0?*O6juN+1LymQmB>;Q^lv=S06n)
U"tMN0gsMYb9>(SecBPI:^,=e?ljYFm27bhJLV.Xkh<rWkXImL_5Dr2I?Rt)Og%tH
U"::P&^)YoSBrL=a2B-8CC'ecElnuWm\uD7UwH\z52xVw7K<8#Gj+t0os7\FOHct9
U"FpHGjnu-vY:r(ny?TO18[('Rc%>\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;qC94q<ZvtvjieSFGh$hchSw'e3E8NXkv%sv#p;;GK.+'5pS&FZ<enB6[B;sbd
U"w97o]+ClGt;o.F:NhU7p.RTq.yQ%Ku6k^IS+n&wTYa&m2n_JdCxZW.=kP/:atbs
U"?RQym:mh0(m[Au\;cle]7=y6,0>cAcsBGNMWCSiPwOYQkaH(_ukqbzBqswBE[^b
U"Cb),EW6zla*CIo2MpI?b=;\NX./=lNl7edbv)(>s7QMuN=kDplHs1)A2ml5eSGH
U"9%aqJ&xnpR5d(A:]Te)0Xw4CV_+v3eK.D/zp[1Z(o/<t]Y8FijW#Nnk^\gx_s[O
U"Blu$/]J>qn:[,0-Cp9(dwB\?3-dagY?%7#+f0G=(1#-cM:2?4%;#0=Uwz;-<m74
U"bE:qiJ:0n8bPcem^H+L<)KXH16rQVpP\o.oBU:^c4\9\#2%m^VB4F3jwl(,u52f
U"d;Bq7a<%HpsjrO;r=y7?15>Nfo2=(?2HQPE76uv:>=Xx#7Q)5HngSJ%*tI*JUP<
U"\*cP3$^dp/\GkJ4k_W6O0P]s\f(<nm*S,oNFEFrhnht5=wGtZ&VU7](TE&b\p?P
U"P=%,upH%mc+=h_n]iC/4:mlxS0eGhTMcQGwF?Ar'9mdMk<Z3D)dLtgqJr^]#ema
U"vD]hv=IlkVeDP+fC6cE[h:L(>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'<W./
U"1D5>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</pLDc,;\[sKf%5m$q,hAjV=[TLcb_LhqEoOUB*?neC/s#%T^?oi/:p>:wCKjo
U")&tR%#CJ;DDAE2OQ_4pi[i[5k>>Uf)GEm'Ml5pC)wKM-yRsA;tp;bNgjGe+l1V7
U"u,UVY*%CdVFbw9sUpMt4GdV8.sS8kd(QP[3qM6<f&bSJciKW;Aw1yX?.s-9kbWS
U"ti[Kznuc]]tbY#0krosOw4K,Px7VY2PSltWfE1Izco2MUnWW2Vj^AjnP)3-Sq<-
U"-aM.RR\6,?&j2Ft6Dwbp/XFF,P.Ru%NSJ/>/3T]M=GSgPbTdA6$a><t[vy[jp=]
U"pX0BY?/-Aa(Y59UUI:3yt:J9wa[Hzs:'L8fmAjA%F>:g(a3N-ORAt?S*b&3s1d&
U":GF44,8EFN;x&&XhIhN\;M6)BBgh1G<Vjh%^Q_pjQWIODd^g/#mqo%NWSHEbCVj
U"][?eT1>UEDT6[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<p1wHTBat=2plb\XM]c
U"6lNn_)b;Vd/udS9LEkMh3T:F07K2J9I.;e_KltgWyLW$*meUkFn(*dY$O)9qc50
U"(RK[$cE^[;qEGx#:$4>#/Kb0DRcU?%aO3<qTUH7NMg#,Lfnsmbb,(V/<#L.7rnk
U"rYZ,^*\I:T,E&Tj7OJ_V'r5yDf1C*W)M<U<7+E/8V,[2kckbdVb&GchC35+n8st
U"*12lN:&avcH19e>%W=.IRbt%Y\H1%r--t[=CXbXG]jO<8F0p1&/Kr.DCy<btGw3
U"x^^#?#c4WBVZ*e(YSiVm1)Dt>6chEzFS-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-<I+ru2e+F#djoHh8ya$Sk
U"N5j_Mzv?.-/?>6LB?pI8'_(Z8R7cVOdgT8[se)&j;r-kbf/JVpl,Sn;sAix,O_$
U"8+*7i0s+x29fLUsvDm6gvpn8fjKS7LS[S.4<d;S3$+*6DBzBqXl)OcHHKL9P.nL
U"C4H+uO$bSNP8Df0Z;BaT9cbTNK^CyDP3mR\WEppxM.LJ,VCyfdsPK=>_p*RBA.W
U"WXo&5dkkP#rZy9rD.e-**&?'x(up%&'9%%9%%%%-%UDeRF4+/66?4.%%c_%%%.%
U"%%%%%%%%&%%E%%%%%%%%&&mjj%qSgf%xup&%'9%9%%%%-X%</ERFR]>*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"-%<CNEFG*AfO9%%%%[%%%%0%%%%%%%%%&%%E%%(%Q;%%%utn%syjw%Sgns%up&'
U"%9%9%%%%-%.ANEF0bMSq%9%%%%[%%%%1%%%%%%%%%&%E%7%%8;%%%ut%nsyj%wW
U"Sg%nsup%&'9%%9%%%%-%rWJGF:Z1JO5%.%%O&%%%0%%%%%%%%%%%%E%%%'v;%%%
U"zsmf.uu(S%gnsu%p&'9%%9%%%%-%M_1JF1nK%qX%)%%i%i%%-%%%%%%%%%%%%E%
U"%(%[<%%%rfn%sSgn%sup&%'9%9%%%%-F%J6R7F=A5%z\(%(%>,%%%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
