'===========================================================================
' Subject: CHOPPER GAME                       Date: 06-10-97 (00:28)       
'  Author: Matthew Pulley                     Code: QB, QBasic, PDS        
'  Origin: airwalk_mp@juno.com              Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CHOPPER.ZIP",4^6:Z&=9819:?STRING$(50,177);
U"%up()%9%'%#-%G>9BGqp<f'4'%%%^-%%%/%%%%hm%tuuj%wSgnS\yT=Aje5L60]
U"N=^jx)&F8N]8*KVa5e'$w_7GEFjJLf5a_o1;:oKYvsrgA*2)guT[ek^B_-EES_/
U"(?e4ZcB\Ceq8<&o3)5TP:I-Q9]>.<Miug81Yu(3taU$YE_6r#9amuK\1_WUE)WK
U"Vs>Xifk?9[k1aY#y3SXR\WEG3bM0MOb80=*FpsaIT)3Wh$$]F?LI5fycW&1tpE#
U"'**3-N0[dm:P4#Mni7FYTmA8e:^M>U/EMA]HBH7SmTAC\HT=VvVl+n)IZ4htz]f
U"3=MI'*B2&PBk&*hF8=a)#wrcW(&R*>-,izY=$iZlXQ?O/8v8F[arT'hJUxCwI4/
U"#[j>Mj&_mZaSXQ\YHp+dt2pp.tBRziZ$P(N?M%a(taLyh-YF=kde\YDqN[U93uC
U",VYT=jLL.WUZ\s2I/'c/(6fH#4(iv](n<2Xr4h:hK1,=M\m.I5_0p>Wo';AO<3X
U"g*ap(7Rp,ZL]Phb)YNpIToW<fUD=03J<O%^WO$ID+NYwy=5g6<p5Bi<uq3$KRgh
U"j)])[=4U^#2RgbiKy\1X3aGSF'nOKSOlh<.wnBj./GUn&NPlpdmDN/]7v89G>Eg
U"&kp$0Bru;q.QQ<<5K1QwM4p?36Am4s<iHAGHpweG*P0hd4#am.0R&>MVz)3<C?^
U")KK<9:l7saFJ<=QrgK5QHII^VmFFy4aDj1fWl8qdAvRn^8'Gk<.+HAi(cfw-7C;
U"G,:R[d#piNAY6L;&,wE?NZHWU4-(<gzV,:1>Kms-oX3vS8t$dpS4qQuAH^+^[K7
U"n;Jud>0mq.OSZVDF(=sY>3.+VlFRhd#bt^B6**+(bQDF,_jt>45=7dTh<ND5'-^
U"up#OS(3\3g?tvM7bde7k#eOZehQ+1AbH#7v)kz-)w'u%p()9%%'%-j%e<B.Gek4
U"*m/>%1%jG%%%0%%%%hmt%uujw%SgfxTfbTAfT]ehGxCdkJ%^Xc^m=63HqKnE;4(
U"/Z9*J.I-0TxxH.>m_HF/i9dnO]w/>d7CVE._8A#H._[%N$b<'mVvDt17f/B&?3_
U"OB39:\Jvfupks-eF1>3X<<Jwa\Wdbr8Hr[3^ZzrZYEGe0oBK%Qd^ZXr0#$BcdD<
U"$]o/48D/ncns3bxIZ6#,VZg60-;2N]*RI*s6G?^)PQ,=4zT+DNV'Z]skXwkmq:\
U"o.]%Ivge*[8<s)GYhaR0BHt>x6:NK:fm'16Q<70'Nw[nRJWc8[_k#/,tpQp-smu
U"1o/&f+o1J.p:a[&(haEW.KF-4'v^nE9YOi[byI#nXnRJs+\Nel58a7<Qai]_S=e
U":_2?UGnG),Xn8ZAOaknie7u)$JKNW1ns_[KAIOK5AeFp$9b;3g%VA5:TV9<6v$]
U"2cF.,;p30iE,>bor&D;QZA-Q*N/TXgD2Fa%3<0cs13<D9Z=%;=*Nfq_J/z:p_UJ
U"1Cdgg8tCR2f_$;M>'rmRU]grKif7+l:+NMcoi>_+%#XC4>TYxhEF'LFC5>4fb)x
U"7hS+_6=4H(HTO[6[NvRI8O7&sNhO,0aUjD(V6EPyKT)%.[f2+--OzM\s/UsAMC/
U"Uh>Ktiu\JL6djOc.rTIUmArt<T:)'IMR:)nFea4Isu/Sn+OMPZ*w/BC:yyIa)[A
U"jw-&UeoHgD<vf6XgmcGZ(5u7aMd$nfT3cWKL(URaVhcH>#d?g,Z=677qG^ixFrR
U"ex/#+o<_7%wc?7XcCT&7zw7g4J)dmWl7qXdui96>r9W'FFbZbqRt(AA??3d/UHc
U"(3&kcVRhBmMAt'o/40GilXyx)fh^S8'RN7?:*[$OYtm;wM7Es$5cFf;0kiN5&b3
U".4wrIe\FDA'N;?2<C8V0)f1ho+PvHj6FzmKI3#-l2w$2e5xtAJ)mNiixF4?#WlL
U"U2uMj]nOA-&m^VU[-R'ZnWg1:loSBDD1=xdix^qfgi5)rdXewJCOuJ>:?XYY&**
U"9.%e2yN+EEYLbh_#1l2a.o/GdcoQ%dIfc6g93Al.rue,rn3X<\6Af6go+FL;Ytu
U"wKlOV,>\U)4Z3jc^.k$.I[?xYtc56gxx%V5Sco5'N$8OZDK\YCud_tUOcea/Y%x
U"-D_m<sf^*x5AcsNQJHFQF.K)(3G_;&:4G=jM&)AEKZ]8ovFU2cH3rQY$BhyKW[q
U"+n2J2c-sNWe*X3&+7Gnr0Wuuq\T0OU?BGQto>N3\:kr^5IP3:urBD)ohobJv?Os
U"Dr%$dtB+UY1IR0f^7exT)NONKJk=#4>0?Q1E11q\pYuJ?/.T#39'Ll:$\9o15'_
U"B=gWp8=D7)7iP*5+I)^5i2C(ik#+D.JYYsS/W2tv0ofQ^_ib[eJwTga>g#3Jqfo
U"o<eGQ*x[P=u=IvYIAji3X#Cp66=CtjaaKhiJLI<$^qvNJXfPo]V:-KIO53c+%m2
U"/.)>i=^>GlXJoe_EuUe=P0g/3<JUq7mJse_EfEER))p>uE>TfOM216&*Nk;mm/u
U"eY,%g6h$1O_>='VtxEJT2fZ%kzEAD^'#R1*;r%G23mXZiKF)CME_C6,?O4r(vis
U"bqJb%+gArc+vCv:lC._'neR/eVedW]%J>D$qet5>)JxYdra(uI3^/:<Nm76u0I8
U"ggU>uGVQM/a;$Z7?dXk37[C1%NJ,2K9I+(1&1.QEH3dZ=Y?a5TtNR1-hrAdZ\o2
U"xh;$ewI.[djMa\c6&+cK#4/p+a1I\edVEg]g0eX:/Q&h4B]*&KrUdM-6W&OXJq)
U"m[0[ri1Nd&:-+/HuJMlos:HgVI#j&oiE%,t4(9C+o[_(B_IfkV8KAjlP&A$(>#_
U"(:C=+Ch1G3c13fa1lUMweC=c-SkO4NdO8[ySpO;JU,+P*3D;fIB0$A3wsj<0h6y
U"ky=)oCBo_4[Kzf]jZndW?lkb/U9J,-BJZ/0FNju?q>Oe.Lm;%bBZZf7dZ4y)9Xw
U"Ex_A>IE8r'_RsBlA9qVdiJk7dzaTSP'us6FhADGIsp6kT.m>b^2<F':<Z*)yhI1
U"o3>sKUjbh6$L8^8bI%6Z9&PxC+xgymLO.+c'FW^OMQItm/I$]CQA68NA8?Zr#g/
U"S>\\3yh*8Y,SKwuf3G4hb:,J5dVOI<cVY(p%CblSc&]kEW(j>Xj52gc;h%IoGI*
U"dz^GtwiH$vX/sZLCovPdXn%93d&qqN)Sw<-Eat+P0dRjrjls]Lw_<OWmvdHbHMt
U"[+Mxm[[xyXYnAQnp_dG5/NT.imSdNGQ&Q'r=7BAEZ=Fopld2phLRR3QT_K>FWMs
U"qp#9N<9BFrQ$KJP:w<aTx:7kqgI,;+^uQ$w1TVNq2a*FgTlc.WW3>m]'U(f.Rr&
U"izt6MFCct-gVDhDl;Tdl6_10+=&wdlZf6H6o$usOmTwTo6H.7o,Es6tPd.2MEzq
U".NI)#<Vi/'N#uVQ**&wcp[U']%t&mDAJS%i_/ytl6HCh2k%^c[kI?I:v#B)Zr)G
U"F5yCr?hs,6K-d)MOkY7O2Si)Y5u+j,[R<%a[o\%yeDpK3jut7>2+8jG4]/FYvTJ
U"R:Yd2XpL\tF.&7c]mPyDHM#ldGqwjHNv:m'LXYGVAXz8tPag.cfWei_KwiHBM=J
U"fbY-%C2W\Semkv\$rM&..'JlO[If6t4kQQ&g5d%^3?')>;jEmJV,o%s[bqtM<;>
U"huRSUsrMoMrrSWEXLf0bkb8#MG%d7S?:hU,Fc.y9Q8?ZZk03E>\<UWYE#p.](#<
U"KHRgeh$g_I8/?dk3/fWW4RN%%SEBgICG=Ug9G=-bfJ)U:11nvWzAcu=x+_*F&[q
U"k><Eo%$F4#A]LR+RRaKr*[u7Qs7;E%pZ[?L-.81x(i0Sh[L=83\DyG+jn+<NE]O
U"Amb2+MtVn0qw3B_Aht?f*?mUM<5KRfQ2+RAG4#ab_j4,b&4,bjeEu$e;o+Rf+KR
U"f*N+RA4XLH//cf=y'ieoKR7fkRflr+RkJ4L>0f0#&2N+RA3=,^B3iC$lUC:unEQ
U"K,b^K$swS][GZkg;Cp0a'Z4Ip4o\;<IFgASfy7I\L*HXhj>g^s<COJKJfT=t&\F
U"%Q5nlaOd$J4.?Q5B'.PnNpZINpigKJ.>AU4OtCuiJflDyi(?'1^2k;^pFV2.Sg[
U"P_=W#-R0DG^D0$-(Sji/s2h^uX-_q'7dQUFm<\+8WxY+vZH*EshtYsqiPI,BX)w
U":Nz'9Ztr=uj)p&opBUWU..b.STUY.>$Pj8q>L0m8.A0B'FoE&%c6woCt$i:Hp#6
U"o9P_CGcf/BG-1jlTXGBeJ\_ICg$d03/agX,Yv#T[p_%&AN&uJp/tXe#9k<r?<%K
U"GbgIDA2Fta>qs4&(nms<;ux#$1Dh<[ryRcE3U)n5]EE1E]NC?j]4V1)bjwnb3c\
U"qPZ8>7'>?-C]HaDst&$.W;8NC=%s1[d6=Qs69>G#8LesU^4DZAD:_*e,i4/jWP2
U"aL,sT69j]UEfK)e_Y::Ivo<L1bJ;9h/7d$#E'q7e'Uwd%4kR((Cbg0?S_lejUCU
U"4$1-X$JPPu&RaEylZeL:?wo,\TXgXt%Yn-3kt:KV-xmDL_lX&v5(xC-Z6R6fLUB
U"c/k;MzIA=n?T[S8_g\eS?o?pp2b\\Od/s(hE$]jX2d>4*CQJpsrX<r246R,8lS^
U"?NG>+JH\xi<aB35-im&MOEy_(0qv1:'MMGDaOYF$:z&<#x4z/K&g/TufKO[G8eo
U"bj/e/#OkF8nT<L,c:'?m1(?G/DYMmxFU5^:cLV(Y[9_kt]7__.C6a2BCccG733\
U"->e]TtaN;Z]]iEleQSMih.mELhO\4KUbRHM9U*OD=ocIH^,>6.;==py0+2H4<&,
U"eGypdC$pXB&Qz%\SG^l%dq(XsKCyZ:4PT(CYRfq^?okZdk%dNxk<\It/ssXZgty
U"dW?9mW.GwpLCA+1\EI5TNeG*1FG+hewk.w/NDEs?B/$aV9?a*oVPh\fs;47<d\t
U"vL)F*Bnub=CbanG7tqll?/kZ,QLFrF4%>8p/^HZ&0Rz]NV/gI^aRJFA()>p2#nO
U"5eLs0EUVcr-59)(z,S(SsVGt%,:hEwI*4Dkq?K;fP<fEgmKoUtPIH(?8>>JC'Ul
U"IYvTvPq)e=v*Htexrsjj5Y8YmAo'o7]Z#<;g[XmYR*8$q)3RoB>j3:z.$3%bZWK
U"GwXgJqnmis;QfEZm[RlM&%A14Jc1-J0KDcn(z9#H9^*]MK,$ksUWxXkS_Kak.v?
U"j)lNUBj[Pf0FD/b:gU=XE8=C$aB;<8O'W[<ty#wPPHDA%:1:U-MI6eh#)'[(TD\
U"dw/JdHk.]_+t/BTVO2[NI+15N(G(#B[,izHEQ>pJ2_2br#^I_0\O=N_ZH*9>E6i
U"CitO2b8#;%qBC4<H*kG8WCJIbg'oT^a)E_ZN5[Q#\r73AccTpDnm/\d,F#\%V_?
U"Y<o85>;T3oAR8SjkpA-;OOqtE%*p$AR8r=$[h25y)TT]+jCrorHs9G]Hi6P;.07
U"Y(4E$\i?^:uNMAP$&ukT5)&Hp8>2L?7>2*yWRLi$2iyp:D88j(M)$]%)stzV-cI
U"Fv0e0;A4M^ABhP)f:[S3NddeNfdb\K?;5.7g_'Z7L0='FQ:e#1x2Y2[2FL;*3+h
U"l,)f_0r$--3u\i7LZkcQ+SxN(opkt7Ny[Ed6(h'o:/,8t6[H40]z3kdjNAoNp+O
U";(U_oCgPiy0[8/&+fBeuj/xMG2<wiP_^'3pDl1/x]_y$ob[T7D<G\\+ARasU#'K
U"9tRCk1vOT-,,PTbFI'GXcz8+hXB3lG#lbNn4VnCWe\>3j],5Y/(i-iRy70tFkgJ
U"dgz7?X^0<:u1auK_RbCB+AA=?^mV&bdVeVS+=QB*LdcmLb_r%J4.pwR4DAt,Xd8
U"pXTUdiksPlKBo0Z=MoKhg91*,HjEc:hLq<y(&W63Z1rSs=_Nnq1X#0a$z.KGOy#
U"65+&A(1u%j1qwx=B]YnPrm(A]iIntSfAun/d(r4Goh+pTHRo(.lemV,yVMoPw$j
U"qm?j_&hERnd'wk4)c]vkMgC>d-VUY%ZVQt#NeS^-5.hn=oc>FEkTxpsdQK91bm_
U"+hlD>G;Qs<#Kw#%s%pp,B59JE-*>o\(Bik+eU)L.wDO/tRl:,,+*fgNU6t(&uRh
U"GOF\z?H)[pi6/.a\R%Q)BV^E'TRSWK9:cQce*HVplQj0*8spW)Y-)/6R=Ch8tCB
U";jLN9)LugFhanB'78[%gD%Z2S6FT;ESGXJ9;JCD2-l.:3y98npwHEuX_^%yvx=_
U"[mOZUc?g+r_aR)Vr8-?U'[PIg8O:(p-TM3\1h5SBwcXO(51('qi?e2B-R.CeY75
U"p\-e54PjN6hpY>:Js+%bhmNe3MZ^)Oq<b%W<cEQ4g7bTc.q)GZJ:HI]Ra&q5>G/
U"Gik6V*8-FM<X)W1dRMt3[E*nMa#L;*hhv5'Ba;-_XZddRq,:Q8d0a5.rI2=BXpC
U"Dx,b.Wa7bj\Y67xp6?4vam:w312HBn6])FC%k=Zv5eQAL=zi-wlCdlaf#[O46u[
U"QKuWD%=L8i#a4pZSoWd6T6)p]fA:;uxr.$L9^ZR.sCe.o,\OpB#]ie9EPj?5na>
U"rRRc1Cl<a)oz<I$rcgF:Y#AS=rsbt$B5x3e)m2<Ud_3c^sWm3mrojq'KJ*)?E5-
U"GJ/d2?iUh^f/OIGc<E#mW6Xq$W35rD7QVq]8]E?aYk<)nAIflODBU^ZS8JyxTkf
U")'S9:bQF>zsR0(h>*pUOqWQIJ*;x[+0wWhUT>l5XX*m#XE)GZ_2lLY0Ilx#FaE4
U"C.s_la.%_fa];p%c6fE=X&f[IJlH(I/^I0dUH9J(L<Mt(KMIpFPF0c5dNA.-?.;
U"gKL0TlwY1&;r%?GU#BXJuUs(S+<B,XsA7V]Ol2CYY&q0N^i,XL3.JmRjAcZl;O^
U"yMH/0b:04DGj*G^jz)-S:hO:&[yq#KB,KFOlWfPj,orf?).Bc$UI#qJ<8S?#tb>
U"p.,0VT(M%ylts:pUQX5<d^&,TbiaPt$Fb)S,P;;\^]Zd\ooK.0K,+Hbma&Ea_%j
U"GM-b1Wec^?_^GZ.LeWB\/U:'tR*J\+nfedo/yKR]G^5_X2Nm&s.a3jpAjIqanWT
U"9mt'HXR/<z$hqHx9eOk^+38yaj.m0qF^-nl7^*K4.n&>*R<)OX]$byZD\W-qHKC
U"h7B'aD&?X)#X9T.h<^#YGjj?o,a1Q&-5&adp=jSYY?(aAfm*uH7lK^zO6[f*KLZ
U"G-X\?o*:[t'Q,i5D5TJP8%oCU/^WI'k?ce7^Su;=))8fc&>TkAWAs#,8j5$Z5QG
U"+Q]vdF=&4#n(ycaO^FqbBoHE-4X:nq7H-hrl&-E5g#PxRu#o(WT-jvl'Cex8BKt
U"FHc<2$k09rFI:Ee[CE24S#PUc+dFZZSQc&fTwVL1U\Fu-JGeMzh2Hl+rKuTVHwE
U"X2qDSRBNJ88qZY/f4#<ID-*(kHS>]?fb1l+nQND?E*SfLJ3vTHfFfl_.p77Z\os
U"44q6OvNtp4Pqde;ntkVg^M'c9lVUlG%1(a&+a[1S0<UYj*G9kI-hKg6#P/#>V[G
U"v+<Z/aGr7\dl6[Jso1V0^PlY;^#nk1VbU5')/(ACX8_r:sbFq,u+rqmwOdjr9Zd
U"=481A0*]F1DQtVQQ,sd7N?2Pm-rR-rLh-TH+=oK.%2i*K&)1d)E7PMA)M(4;Lh(
U":/OGmAS:MXCdg%3WisOok;e?PtCfenY;neUwt5(C[z%Rkped1g;maLcP'to5CE,
U"bWfJ=(KFUoak_91EEkKnSbt2XT2oqSKj_Oxb>HCanikQ*pSw6)'9tNr%WniiHOh
U"vI&*oB,&eG(eDF5db+IO%orUTm;*+Ban.>g$i,7['oC6Y1S/qQpm.pMa.Ij.pur
U"^VendMxd/^.-j*G/[z=Bvmwj\+xj(9&Om,erWJ%C%2U=Ak)/II79I$$B/]^qo[]
U"ldJxh,t#^F*4YCGG&'26FSf/%p?->NM;b\=.^MqDbjJ^i4N'7BvFsTlzkTqm*Xd
U"R^-(>avciBNetT473>*gl5h?2dFCKOs'T_btb#ZBJIoD13i+Ctej8o.MC_-0^K9
U"YEuN%NU:&5&0Y:B4Zu1-&,(YM?=a[$k2w=.=XP2VeQG$I]ChI(T+qi)#t;05:tN
U"7mLYBBB8)MBtk7Z%vS>AeT^]ngJKhUaFt80;Ufh\a8;&jb+qAsNJ<grQgfRF[[U
U"JBv.R,]wD,O\4bW9$0o;pzc&_Ms;;k3En\:Ui0,u*bi;JJ)5t*$&rvFLn;=e;\s
U"Z?x--?Og%KFCj\0Q74UQQQpM3cpIZ4%Ow>'S^t31g-4drm#Pkk0dx90O6_Ma4Hl
U">[2S0WOiY+q#%#odJ'VNQKoGBN$MJM%b4B*-KMVNus<g2zMiRt?:CfkU(H>78j$
U"ha7Ro]UUs)7?Y^<YJbEhgZoBKObfllt.mxk6bk9UFAvamjq(N2urno(CZ5Z0Se3
U"rI(P5i5eJl=u8wiX%Ta2Q=1W=mpleWTp*mr&IIlC6#^D%OJX>cw/.WBf^\,zu9a
U"UQAMJJ5<tSV;hQmW>hqRlF[b$P[0J[y_irImSJ6'Lb(l'N-i2Hqp-srvJwq6$nS
U"5>3CkcKY]DpAM.*xDZQIBOZ\i]:+0(W*j&_D_me/SGom4#bQdDU&o9P-P0YXM?s
U"*sBsZ<>iF+'_RS*=Lj[NLu/M9VdNrtL-;Xf\xVG%)ur*R9DA*+%A8S'Fo^pnXm%
U"?ivMh;CF[xEnPJ,HLA-Z_mmJj[.=S[N[L&hXkFV4#_NP_TeQ/A/BJ&MdW(la:O8
U"^qj4d.(GhpV)#klpSreVQa&ifAc(lTldGh9iaWJ]/Vujv8c?ur.olh6Lxjv/(kq
U"R9^(,C^tZ9mv,/K^RJzZM]m%Da-:vci%_B/7\q$\mwW>?xPJDn8J>J/cwT;RHyK
U">aNlCv$AjcQ_i>jm-7.qn(fA/^.Ok=/jKP/HLNikrluLMEHfpw_uB$fQZPfQ,s<
U"B#faWCX.J+tleY1(#a^TfJ]3FF<Ict;1KjJH\CRzHBH5Rkwg4(DteDM<JsJ%?%G
U"Lu$xGmxRW(dujKVZF&L%EdCP2hILU*iqp)5>&r.dURX*s/99\o4ndc4cJjtr7W^
U"&w50P=#790DpLNfcq^<rvu[NuSM)U$:Q&_I09WJQMx(/Z:nPsdWlSze;3.zE.jg
U"'e4c/(W57%WUSh9Qsp]e)[wwHLA>fcljzw9N^3NGNg,%r>Fd%Rg52n<82P%kj7q
U"39tLdWac1v%KezbOBuzYl$h==P\ZHpq/AewGM<tM+%nb>w8+Xj9-#po:S&ouZHK
U"^81B7wO:W$tU*Rq8P3:o*xT%up()%9%'%#-%PtesG#a&dfk(I%%V3%%%0%%%%hm
U"%tuuj%wSunshfUX)aiU9=,Ym:ROOCGS2vJ[+XEQFWxIJV<bRm>NsKLd]GYf#Rj1
U"e#e3,y8qBP4e7f*lrm7sO8_NMXo6d$^T#6#WY'D4jF8SMDwCohPt?-O?=t:fbH:
U"G?%S2CB&9^J\bBk;c1OKQBL<sI3-A3>CiY3k9XnCajypkLQz<G,[r7AF?ONFXni
U"j*EqnHW-awsk4v;7$Pm$'$W)92l5KVMmR<L6:fN+xdRs0SW'I+[M6fWfC.:t+Q=
U"$'CtsrE>IG^<+N%)a%PzNKmW1<++EsV]k%;\H>E-\3<&sC&H7fsVki=W\1_2a^B
U"(-R6=V82[$3]mWVIDJNICd1r4>sa*D\P6=bSPnb[lad^PFWoI2IR=P$nJHQsllT
U",_Ln[W3(cp=NA/)k)i<7dDIw5gS,\a6#F6al/*]0Ek34edpKP=S/+hHl/7v>*=Y
U"::A7\O]F7\0^H7(ZW08GPr-[l5%$D-1Tzgd'k+N?]2cHqU7=;p-[UNM^ShS)\cH
U"[k1I^9<ABFlIuDP$Zx_7e*:K)k#uDfL+)n6=VHoG]fs-[9TAMP:bldH?,1%*Hq2
U".pt4yn$.>[9ABW,$gqCm/bK%-k%6NX=+;MHBFht-x7RJsSiXLad&Ho/gj&qY<?X
U"QLOymG6Wa=YtP0pJ:TotddzxGatqCbhejISU.SK81:j[,;v#_11g>yxrGGD.N_V
U";JYXe9*dd9MQt6$Q0evBzM3vmn[E&$B^ClM]?ux)T2P<Tz5NF/2X6:t$4&YG9H8
U"P(;kUomK[<ADHk[wrV+Q\.(&&v6+HT(ZOIT-M;w7k=Nm%oVw-3XO\J+>ZyHd1k/
U"]Z7>731HU5iEL[M)pdAVXB-?N8dk)[9pm6]-TknQW+FoH_ZfNA)47#)J?>A0B%<
U"iH*P[5k$$Oq->hWp].UYD%t'Ob#n4pc'pJoDP$*wZG(oFl%jC\2jP0r-[1Es4M3
U"LHQ5suenW(,qFlY3FWP6s=2vhb$gTNtI.sA+3n6=3rkM)]n6=:8K)n6j=:L&Olg
U":p%c'HTJ+D0w)^oc'pH^PR.vDP6H%PgLm)k)gip$D8qw^9A,6?du%p()9%%'%-L
U"%#Fm.GeC>)E/%%%%\(%%%0%%%%rnx%xnqj%Sunh*FaV/&OU1jC(=sQF<a6+Aa[^
U"uOLiqQ3qp9ViY/U7sVuZ8=It57+R<kH$vStSV$8BAQ:%bnSZJ9tR:81o;FDB*RS
U"s'.Yf3qs]0,qeil_l1NAz%IJK=Ij;nZ_%%up()%9%'%m-%G1fCGzo0R*3).%%f/
U"%%%/%%%%wj%firj#Sst&W.%F=]Tk57F8Y$[&P'ouqhv_[RxITx8X_/G9BUKpf*G
U"V]OkD,1qNsavis/lRDt3J<%4r8/U5wRhq>57r;(,XbmS;0D6[pA&hf?2Y*Z#2t1
U"30u4uiQ93(hGL:[_MZvA_3;q$SY;ZpnbM:(qxvFlHYZ$/-_^Z0EvhboEQ;;Sqhf
U"ZRT9l[r&.2PM&?[4M-m8k>S,Ndmm<^nkhmL2q)dp0e.nf0r,jp0Z><\BYm^RZJb
U"P'hJ/PS:dxxa?E;VEzEf+](gr0#,XO7In6&wj&#*f+R&dcV]RJXfTTMw0rBUj55
U"rt(sgGgM*r;ktkd^u-w8Oo>2WX=^^F,Lwky;mlUJ>q_89M>/u:nG?AxH.b,x_Sf
U"k<aO-R?ps0>N>Om/-AEU3,+1n3R[sA-a=hN:+'6l0$W-]&L+Lq0f4.$P)CJ_Jpb
U",9(go:1e<&P\9w+j3RkHfCM2^BgKv-cEU5'Y9)jFm3c'prVb-I4y.GW>m/SNkzx
U".Ilb6QT'01bUC9m'$>;MbUkM?Ijo#oF[cFm$W[We\hmG7BCf6r7B4a$BG.9q$'J
U"5amXr_vgIyTDo?c\$fj>Gh;M;WxL1LX]7pOp.j8SI/)k4*e7gE#?=IH6=X2TJQc
U":uM=GH2nw2CiGf3%?bxLezRh^&(=]+^3=[8eUf_Q94Gou%GnM*tUGfa,a=9-.z,
U"E7WpS*bkQfxOQDTjA'6?p&/\ZLG1j_VCJDM/p%u]O1&6Ee>',*/lNscw?EB*(Xl
U"':iO>Y7$.OE3\d-&Mgr&h08yjr-Jai=]zUm4/2.1aF2PtWK6mLB#_6M$/IB9+ka
U"uR2N-g,ctfX5Aj,Daku50R4t8D])iv#=?><d6xf0$AmZGQ/'L-4.Ki-EDp,6bhl
U"WRI_va9ld7?m^bw>ja9A:Sa_bioMSvn_1)\*%[_'Xea>aTV8McP\;j>+$U3X[LE
U"2NOILl&JL3F=C=[Ubf;O$/^2o%N]4z'i8b>PSl8a(tpjq>eeICik;R&EM#p]:hM
U"UtQ],XZGcT=<A;a_mBuyc+oXdVUt-:]^M]gOani\_3Chl'?D-'46/\-j(N6qB#j
U"JXdhcOiX5\JxeR5s7z2p_mt6-*Tmw/mvaNL%u-'\S?B^[N]NCf;C]ZFs:Fx*ng;
U"',-ogO#=X:DiFMP,1z5n5.pOaw^6R=WVo2op%jdScQW5'ns/N=>%i?9nij2Imct
U"Hv5q+]mLD:V;x7/;\G;x^uQ9;kB/S=1hicb1Vl]%lV'B5MxG/yg2V#;E]k+g3S7
U"VxLiK_.0Oa<JB5z)+_cZu&M.U'B_-*j?*ELSW#U&G%,ZKhKK);-\l(Q6DN>*nKq
U"gl5[xK.CjtABqG(b*P>G0u+5KDUNMKbOPb&e\W%SovYzG>sSIv#s5I-SH3m82C/
U"p//sor(Xmt+;t0EX=PsoV0.vSrDWMF/S9d?bleT%up&'%9%9%%'%-%:G>BGTqpf
U"''4'%%%^-%%%/%%%%%%%%%&%E%%%%%%%%%hm%tuuj%wSgn%up&'%9%9%%'%-%<e
U"<BG^ek4m&/>%%)jG%%%0%%%%%%%%%&%E%7%%\'%%%hm%tuuj%wSgf%xup&%'9%9
U"%%'%-I%PtsUG#ad%fk(%1%V3%%%0%%%%%%%%%%%E#%%%;%A%%h%mtuu%jwSu%nh
U"up%&'9%%9%'%I-%#FAmGeC1>E/%%%%\(%%%0%%%%%%%%%%%%E%%%'TD%%%rnxx%
U"nqjS%unhu%p&'9%%9%'[%-%GH1CGzHoR*3#)%%f%/%%/%%%%%%%%%&%%E%%(%3E
U"%%%wjf%irjS.st&u%p*+%%%%%*%%*%#[&%%i%I%%_I%h7>M??4A.FEEW%SVEy27
U"8BELh><<24=CECnBE(2>DAE&)nuk28;4ELfDC7M4=C8M20C8)>=S
END SUB
CLOSE:IF S=72AND 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
