'=========================================================================== ' 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.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)YNpIToWEg U"&kp$0Bru;q.QQ<<5K1QwM4p?36Am4sMVz)3Kms-oX3vS8t$dpS4qQuAH^+^[K7 U"n;Jud>0mq.OSZVDF(=sY>3.+VlFRhd#bt^B6**+(bQDF,_jt>45=7dTh%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<x6:NK:fm'16Q<70'Nw[nRJWc8[_k#/,tpQp-smu U"1o/&f+o1J.p:a[&(haEW.KF-4'v^nE9YOi[byI#nXnRJs+\Nel58a7bor&D;QZA-Q*N/TXgD2Fa%3<0cs13'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#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:?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_mN3\: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"oi=^>GlXJoe_EuUe=P0g/3uE>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^/: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^2sKUjbh6$L8^8bI%6Z9&PxC+xgymLO.+c'FW^OMQItm/I$]CQA68NA8?Zr#g/ U"S>\\3yh*8Y,SKwuf3G4hb:,J5dVOIXj52gc;h%IoGI* U"dz^GtwiH$vX/sZLCovPdXn%93d&qqN)Sw<-Eat+P0dRjrjls]Lw_FWMs U"qp#9N<9BFrQ$KJP:wm]'U(f.Rr& U"izt6MFCct-gVDhDl;Tdl6_10+=&wdlZf6H6o$usOmTwTo6H.7o,Es6tPd.2MEzq U".NI)#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>\0f0#&2N+RA3=,^B3iC$lUC:unEQ U"K,b^K$swS][GZkg;Cp0a'Z4Ip4o\;g^sAU4OtCuiJflDyi(?'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#9kqs4&(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::Ivo4*CQJpsrX+JH\xie]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;478p/^HZ&0Rz]NV/gI^aRJFA()>p2#nO U"5eLs0EUVcr-59)(z,S(SsVGt%,:hEwI*4Dkq?K;fP>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[pJ2_2br#^I_0\O=N_ZH*9>E6i U"CitO2b8#;%qBC4;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/xMG23j],5Y/(i-iRy70tFkgJ U"dgz7?X^0<:u1auK_RbCB+AA=?^mV&bdVeVS+=QB*LdcmLb_r%J4.pwR4DAt,Xd8 U"pXTUdiksPlKBo0Z=MoKhg91*,HjEc:hLqd-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^)OqG/ U"Gik6V*8-FM U"rRRc1ClzsR0(h>*pUOqWQIJ*;x[+0wWhUT>l5XX*m#XE)GZ_2lLY0Ilx#FaE4 U"C.s_la.%_fa];p%c6fE=X&f[IJlH(I/^I0dUH9J(L U"p.,0VT(M%ylts:pUQX5*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#]?fb1l+nQND?E*SfLJ3vTHfFfl_.p77Z\os U"44q6OvNtp4Pqde;ntkVg^M'c9lVUlG%1(a&+a[1S0V[G U"v+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'S^t31g-4drm#Pkk0dx90O6_Ma4Hl U">[2S0WOiY+q#%#odJ'VNQKoGBN$MJM%b4B*-KMVNus78j$ U"ha7Ro]UUs)7?Y^cw/.WBf^\,zu9a U"UQAMJJ5hqRlF[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&r.dURX*s/99\o4ndc4cJjtr7W^ U"&w50P=#790DpLNfcq^fcljzw9N^3NGNg,%r>Fd%Rg52n<82P%kj7q U"39tLdWac1v%KezbOBuzYl$h==P\ZHpq/AewGMw8+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[+XEQFWxIJVNsKLd]GYf#Rj1 U"e#e3,y8qBP4e7f*lrm7sO8_NMXo6d$^T#6#WY'D4jF8SMDwCohPt?-O?=t:fbH: U"G?%S2CB&9^J\bBk;c1OKQBLCiY3k9XnCajypkLQzIG^<+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[9ABW,$gqCm/bK%-k%6NX=+;MHBFht-x7RJsSiXLad&Ho/gj&qYyxrGGD.N_V U";JYXe9*dd9MQt6$Q0evBzM3vmn[E&$B^ClM]?ux)T2PZyHd1k/ 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(=sQF57r;(,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"kN>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#=?>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=%i?9nij2Imct U"Hv5q+]mLD:V;x7/;\G;x^uQ9;kB/S=1hicb1Vl]%lV'B5MxG/yg2V#;E]k+g3S7 U"VxLiK_.0Oa*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%%'%-%%%)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