'=========================================================================== ' Subject: SHOOTING GALLERY V1.10 Date: 05-02-98 (11:31) ' Author: David W. Hayward Code: QB, QBasic, PDS ' Origin: dhaywa01@mail.orion.org Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GALLRY11.ZIP",4^6:Z&=4475:?STRING$(50,177); U"%up()%9%%%[-%k%SiI3C*];\5.%%:[%%%0%%%%lf%qqjw&(Sgfax^_TAAOnA.nBQ75Ou_%u+avI*Mkw4ZfKccW\orKtR2:NOB50xZdi U":d(NR\)3\HWUVBCiFz-#OXP>%z3Qb-xndTscx72Tj)e>rm>x3oL>-Sq&?N1r28o U"gL&MP9*2)Vxq%OvpZDMw<+B.kA1r4G+>?:70j<7dZ8iR_Q,CPwX[q?]^UeBxe[. U"4?'g#AtGSm*t&h?vW6jwvr(,PCW9=WIxsNY.mv?oe,;Q%d#ukG;pH/0SqNr)/j; U"ES/IL/n,$'O>;.1T'GFujO(vo\nTPY7dYQ8iA&gB%opF[I,xpoa#CnAbK6WH&Re U"kUYfZ<)62u\IFE\-qpNV*m[a^<:s)?;\[/i5*:vC/7dsd&ESiGe$p&vwkM#QP,w\eP:Q&VsMKCG/CSqk$66O')YOGf[vZGO U":UmV7XII6(>3/&L9Pit;ajKnb:+9+r%x(/ZM(/:r[IG=KEP7k%2(XP$akJmCf4U U"2fPYg1;8\M-ZHa3J9;YW6Li[rTe/?mkgF_hOu?iN3&87j2WhHo,97Lw-39D>_07 U"Fj9Y&]=>Kb?C.0.XzYo(JcS0\pU1P%+P4x,0EdY\)Fp4kHmK+Q20,HHS2?fv3.Y U"\4:D/v,lpuvOc<=z\/.9&[-+dsDif:fzPA$URC1t7uK3pE6O1ZxOa,c]^]1>=-x U")8f?FzeBeM/XZIu.bF3r16hU8a?xQJm1+**%V6ewf^4JY/?XY0d>NIl#=Wp8Dfo U"I1sCR#TwGZ_#7gG0';gYAv4*'_2C6tmeZIi#hL U"L,-U\U64Pa-&mEOS/_)nO?2wKXt1&4&FDW.7.n#(68sY:Y.2J*5[b\J?MWoJNiUUSI^Y?ix;>p U"lP8NQfTX7w?WaZ_ U"pDn'i.FV7S)H6o'B*ANq/NIaj2IT0TH2ZuhuV'Sj2<<4sXAl2K.z+_*\bZN6/9, U"A1r(SNLDUvX]Rsxm[9&1\jm\j+3h7LU)6Z'?iUVgqd6/pK#yi+5X0YoW1HCZ7>M U">5+3p]WeK?vH(jPVA8j1&#?8UP2oEQ7>z%+ta=LH^3eT*;I_Gj;U]\hQSDb/YSk U"*Iqr$p;^-h%,x;aS=vqAukxf$.CyWvsv4R5Ie*-D>oTa46Y3xzYEP78Hotkxn\i U"l0EF-']PPjqHqMRcfQXv;k^>4u4&mAVq;hNQP[sFTbRpRi,rs(?XpdcEpQV6aD, U"jqPjIvg.u$kgShQS$R%Jv2,^jR'gH_NG>VmW3]_pG3lw4M]),K4;3>,Ht]9m*Tq U"AY2]xu#AyasQY\9?S2Bsj(fbMmepF_Z>8^+E+oZM=8qx.VeRR;]IuWh^M)[dhG0 U"LWjXAo\08#&,]N+#5FGTYMBW27V)Z#4,*?&g^d>gpF2MVawMqB?PV]UE^::9]TNH#=ntU[K/WiBRH_\52CjN_\%kU6?/]OUt[dDZe1;&)H:u=+ U"1#WXRG^Pa$f9*;b=6)n66Kjjn:-ZgCVck#JwI40BlN4HP1>'#QQ6ihPr3D&7o8]u8b<4sD$[g3sI:0E'1q2]$ki1 U"s3BNOuP&(?u3eG(P%W9.H(*SRmA0l;PCh8?2M4;s)R<=,5UA4Ak[Iz$T[ U"aSS]HCwx-h>yI/TaYh=2>x7+X(=?I1d43ifuBW[=Y&pTro\D=9pqM1Wi$yCw9*0 U"lm_^Jo_k0P/94/$CPVew<,kN^pY(RRVe'.Q\-J*WPNk;6gxzIcn#WNC/#:j.\ly U"'/S3qOk>0%6ql5L]KoE(&QW7vc^n=^TUUPCxo4D$sR1MT.Bq9M-?GRy6E'.=JAE%3NK U"P.JKPn*?3_jdXohP(x)Pn5P\YM_aj#f*_n+ErI_W,H%Dir4d^W2u'.il(ErNDdb U"uh&=]#WgQ:SwW6$27n->*W1%bGh:B]meNZIe;M0n^UQ:8^i>)yJ?Y\HTo9WBVch U"^yQ?ZMXobu.%z'FVu0lSO$]*(ehbuMIio8\54#$OOQRG4^twMJ-Oo\iXTe-ONVoTM'btvUd>xg)B9dcHna?YoHfFQVWz%ZqhIM%b5]CbFFhGF#*1^D U"j]mCwVlVoS3#?P#(KmfI-pK:.0q1g\#z/66nl4E>)kQZ0iM6vXgY016pSt[29iV U"$Ear\gdBQ8a+CDV_FDRKEQ+::mnCiW&7%sNQ30=X\&7#H]l,?LIVobzg4ko9>6W U"OorKLmAWATW>Q,\V1c>T)gAH:1(,Zph$f1cXXmBGy]7c#%X9GurBN?7Got:<]78 U"0^sl5%\HZSe5zJF[VY1_H:0c\(,DMHXMvawP+*;t#F'?h2ALrcI'>C\aEIh)yOL U"Y^$pV>[>?q\Z'893g<^:#kf3myr[O\IWE(XAJ]bQH*Zo:css%tubo,997uXvv-K U"7qsDm(7UO#\Tw:6szp5LW6N&CX0^*k1Rks_#3GC/V4sP0BT6kQ;XDYN]C/J5,:: U"N,1a3yuENi:*aPENf(2:/GF6=;x*R&pkM'HFR)5tVwW?Q+oN(GI[D.4%;';ie>G U"(7#dI<1t4.y,tb*F+pX<0w-C-+6bQ+rEfs]S0:/d]p^9.gxLF32fhmrS#_h>6Md U"$89j#W-*7[Y'T:y9$HS$^N);0_#,#8:3B5D?hmf32GfbRX5BLGu U"d5,$i-kNlACJ,.\oE+u-Oh_/=P[wYQh71j_IAw(JsMmRmE)nVDCmxlQQ./l\%A: U"k3AAHLT>$&oeSn[#Fa=I$=2j74#C4#RA%yo)2RBK_aj U")kbnrP.Gp'\O-ScgG+/$ARv)DrC)k-Ko&ebW&&T%:'23H$&Euu3n.VWt3%-eGb[ U"-(e:G35;r<($cF[U,tvc8qR[a)'zB7O\ZsB[e[yK8ZH'V%,7aVE_*evrC?o_Qgv U"*ns'#n.:;a_e;uwHHa4DSnAhz=mGmG<$*I.E*Nh6h_s,3eQX3N U"0t%:v/E0kOhVlm^,Q?R)3+CWmW7#c6lbcVJB1xwmKXIm(1cfqI,f\HhVE:GbX;R U"I3/CaN^G2USM2KXfp-RrMa.I=[nFm>NUJJ#'FS5\tIC^S_X3)GP3Hg^d#lK9LxA U"%su$l>>SKNbeLywnvMxufJA]3pOu U"'<=8g1eUI$ty0aG)OxE<3:WnsPM) U"hgn1CnlCc(=^L#[_+W<6T/Y[P?2L,OFR=MI9 U"qbnIT&-xEMYufN56jz,QF1d>==4sbOHnzw+4cUrs&::2ge4&$)^2iD#_t4FK<'- U"UnS.k?o*dJ9TSRs:hEH'1a(jSCx/mws.XCTvGh2Rd33pciEZ.oWVDUru7ajqvrB U"FA&IBQmJ3]_&a^w&7WLP3BkKYPhLd3.sdiqP4.NxJK1ljCsv0Foffd?hUbn7T]G U">67MDP&b*.$im4d:o;EIAG&6nHINl$[KJZ1piksKGttG?IF_7)K;';PDLMNwjTl U"EvKAZE[+MZ2W&z[LN0,bwkkKp U"[Mj)/T>c]x%%up()%9%%%I-%Uw8iI.n.z47%.%%i%%%%1%%%%mn%xhtw%jxSi#f U"yxAdny&iarEx[]^WWY0^wAn1z&?T0&)A2mRfU=7W5L'cAmRKaxim%%QtQo.&.hh U"A3Xx_O*F/QCE]N_L8+)_))c0[-WI)Qs.+&1+I.-I&11W[+:=W''+A:'gwZYlE:9 U"2H'2%up%&'9%%9%%%[-%k%SiI3C*];\5.%%:[%%%0%%%%%%%%%&%%E%%%%%%%%% U"lfqq.jw(S%gfxu%p&'9%%9%%#%-%U_wiI.#nz47#%%%i%%%%1%%%%%%%%%&%%E% U"%(%/5%%%mnx%htwj%xSif%yup*%+%%%%%'%'(%B%%+%k5%%%%% END SUB CLOSE:IF S=63AND 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