'===========================================================================
' Subject: SHOOTING GALLERY                   Date: 12-22-97 (16:38)       
'  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,"GALLERY.ZIP",4^6:Z&=4006:?STRING$(50,177);
U"%up()%9%%%%-%KF8eHU/4xT73.%%OT%%%0%%%%lf%qqjw&(Sgfax^_TAAOla<hY
U"Id=I+GY'+6(m-a_bchRte=&[))E1D:.Kj/3O+Q34?&ip$?qhj5m#%XDU#c*tTtg
U".*hNS&)3(5>T#S;C&^b#PXPzgQ'IwNdNmLuw22ja-e\sqF?Rf43Tl0N17,,QRv*
U"OgDo-&6NEc:>/xvaW.N%rWOY;h[1s%GoQ<Z9f$O++B>b0kH.M1bI+s(/$h-XZ4g
U"D#'Z'MBbD/N,6kUQ:nCdH?w#O(FLcvh9w9oY.L5n./b8fX>8[3b3p^Gk&l=<HA+
U"k2bHU74:A%;M]1/gZjy3YmS8n=\98Y9QHA<-1Bot.F[VX_po<A,89aR5hdQTjh1
U"f:rV)6u.k?_vj-Z[<si3'5+<w9KH;^/SOD+#G'+7sdO<EDHN)w]gAQd%+d/ZeSK
U"]zVT6db8S02[PFBYjOSj6PS?5=]?lSB5%RmH3$*DCpYA-bp^40UjD296<QF7X*v
U"FI9F9ATCaFhpo;(2NtqtTbJ':D\K,Ag1n.T&+0.IoMGBfR\i,G].Ya6xk=qh1\1
U"cl&p+)J;KP?QEMWghz.IUgoKb%N/hSp\=0v$_8$is82[QEI**Ymkx;TAgr]d39P
U"4oI;=O-F\%THB$BU50E'4uVXjmhd2-_pDX5QeopJ?'XS(i17,THIgeJn729gO1T
U"LJeG0IYc%nht_[QedNoBzNtePii?+Nr60GZi0SJmjxXbMu._EJ[UDE>YmCdFZaD
U"0x)?s7Lxqq=^?osPusP2FIMju_wpV\mir8aKD7&+2SkX:Cs7W&bWi0FsF_yq_VD
U"J^tKqWVppl7B-r.QD5TQg6kIST<bBm;6uEQeiWrJr#E(lbBKep7UA85JRFH16CG
U"sJf^hxFQ5KG(u7FTOHFcEV_a<JUi1H>sN-Uj*qF'bf<Kp]PO]*1YAb+s3CLl+hO
U"?-EFi+)U57.^./K[gp:1#g[ig^G(g<XD_'C/G:)kCb+H[Lz1%#C1x:wY$d8-F7l
U"071Sb$u5GUwmMBqp8c:G=S/?KuX&oe,8cG;mxN8[5o%zAQ-PKEK[LDBuv?bp9ef
U"K'tP[nEY(SYY)[$?*Mg:sy^[EEr5cumAEW+G:FmsHE>qr&HK;sS%#UcarH'Ug_a
U"IHp[<=[QTHP]jR/7P;]A3;7s>&)ZJL$W^nwGl0,2Ilux()?Dr12N&:[XJlSK=9V
U"gXC6m3lfHttPjM1-zBX$5=oml&-Prh-mnZudO<4&B(<MU,[USL]f-Np=UE\.Hcd
U"GE%Fkc/s[-fHN%oS>Uq9_s6Y2&OH*A:1*vFZ?]GxLF;:I;WtLWrUE3<1antwRvE
U"Dr8Ye**OSD?u?fFu*N_jx(dDX+s1c[qu<\j*TP+HVJf/Mo:)TT:5\p5OF-BK\cG
U"\wCTa=$Iu&S.C<&R-fkh0D(#66co/Tfn?UaH2oQ&7#\*b&U>(g24%3a:IuU6:5[
U"J1BY4UJ?,H7KLOkWp,)A<+>lDoqc^%uYnVUR[+VKc-Qo>?$iq06EO/-f9/[Rr-$
U"CC1J[v*XZ^(fMg']hg9Ec6gfl3=7+\Jn.<&n+Pf#1:#74$>NF9oaxL:-unXzuvp
U"P17fF^O#A=/.NY/d+Ld#;CML^=B/4BQa2;#o:awZ;HCD]V_j,O9V4?&]P[M#mE$
U")mq'cOG6qQ49*I5AygYq;[;7?\BEsjfb.=mpHk_\8\[WdqZOM40cD[b%*$=xeB/
U"3c)VCw5k+e6.nW4+JwM]9a/\K=v-p[]OjG6SP#EoVSPda$r4_VLB<q2y7/42>Ij
U"#8sLq-UZG<2L..SQQ2[f'1z.'EaMg7Scc_kC$U*m%glnqVfU=koG<4(VWie#qPd
U"'GwWk%nsghh2(CvR,73M9uESxD9'B3WU8;\P#C(U7AwdFqD*aWc[7eDuJ]e+T2#
U"U6mCJ>R;e[_$h8BYJ&RmI[Ecj::7gy5-&)hL-&^p(Y]'JYx%3nEjOL-%QgRuc8n
U">/??ns;H5ZVS9?X_t.8wwgZ\tqY;ZY/GGwLm#[zrmGeiU8;9-.5.If(mIu&Pkh)
U"*xGZ\=zuSX*c%uZn.,*K'D&oP-TXrQ#DlT#JoX?%yb>pJ8'v&U(Gl2PlV+-/eo?
U"6M0,I>1ySAm0'onohn[F>OP8-Jr&N6=041A9bsVd6N+pK'8Ph&Hrv.\N8cmv1]?
U"G=405/)_dR*+,3>Wb(8'M]G9o/\&TaQ1<PWd<Q[q+Vf4#Pg\mY$(p=l<Oisu5ol
U"F9SKrd$&N]FJt:wihtx^$n-7<i6vj-#Ly[w(5:#lk16J$i\%sYLV5BP#8bVlm6,
U"-#dLn,'I>iT9M-)&&l2MgD,[ONh4z>x-&r(sX]hY<:ON0/G:tbl0MBBi;,RA\iK
U"GHN[dvbf$BJLaE5f?N\_q,t99<MIulu$W2l>M/qJxG:&uVLOIU++$\iF\-8TV>;
U"%E/,&pXs/K(Kn?URYCSgrmL\.'&vCKxj2:;)Kjam=ZHg9%?7*-jr.F4LB4>g::%
U".N\j\iRIPI&2pnU=FaM&iGauY>G\Z(m*2Bx])Pg_G[^aa_=7oDE)_<ggB4j]2U,
U"I*1UEp4Ed*8$zr&W7Ps];m_5L8sCKNRGBw_?i/n>uvKeFX(i.,l07tx$/fNO/fN
U"=T5bU-fGBT5\1V-CZaGg$1[3[\eoG>-HKl/XVssAn(:+hVOrI'/S1J=Y,4i]$8*
U"e8XHD]do]0J%O;sZ\kTg9)7*:UWN/\-yYWKbzF/nbP%l>fgFU]$UPq6qU>4]flS
U",WuDB4VMNZmCz4:wm%S%PrN1QXkZd2k/hTQxE^\Ze<?Tt]ZsG?0N=+FphH_FMSa
U".Fk_)q2_%0TRe2\b0b:l=/GAp>Cw_xT:8]HDg=Rb\5gVI8-O)UT.i)TkvdDu=N<
U"Lk<WA+k'',lS=H^]:S_k'Pudm)9]/uX6p1+XnS&sI.hd\:(xkzhyuGS?fV7y34T
U"Aq0G<%wb\rFp.V8:^Z[kP7+5<bZrgK7C(->7]*^O,q(:yMH5#eT^,r6gK.d9M9.
U"HjjbYA;Sj#\)PlY$sowO0sY<GJuOLA/xKKs/-rV(t-V=V<Pk=W3VG<DpBgt9r\W
U"pA1OYl<9ChR$[1Ef\p+KTXH2$hjm/N_rx>I'_>wr%qgXn.VW('oE;7Sk:>6GxPD
U"#Bub-Oo9)lsSnBP+_6trW%9LcI4u,R5t;Fp3lmD8UVa\/;>U_Kn)#(zL)A>RLgz
U"T04n5E7oT0ed*#Qe>IZNk92=KBCbt^Avsrp8zEkhP0ciX#-ymlcK1/OZA[eaHgA
U"Q;UU/5i+,;48KXY\;F:th0h.vV6h[xLCn3.O?/%[AuX=RD\[A:ko&BHyln4hFuC
U"urUC&_DOW)#gDO2A#cDOO+#k^#99RbwZ57Dq.EZrrg-+C*szm%4u(8\aN1UkBig
U"<>P,9:OaAr<sYO[.X9<o-U[Fh7Ev+lSGpEt=6g(nAiFE6JRQdt?uv7O;/T?nb_O
U"?]DT<B&&MZ4aPW4O1r%NK8C&?d)[3;R%a\.U3&EaGVEj]Dr'4zecCGUK]'5oLiR
U"Oq9hbN/,8JGqg)m?kJKnqhzPO4OPY4^G%Euaysy=Lw.zE'd;\pujR&?;Pd>mF+1
U">dEjv9<X6$W)<d_3.jLnlR%mn\/?2?epP?>SfDO]JwqBj<Qq+::-^kpi#oi1=$A
U"uFatc?:8sajTI$I\OcB6F=L.93&/F\xLrS8vXO61#\+_aXP?qW;R1Je=gK%8k.g
U"L2x\<O1[QmoFO#E=0i)CoJ2G,KDW>G1N42:(sP)0,V*=M?FbeQfCW5J5DD$.U#V
U"W<^5kFQqp4Y,<f;aTs\#ggx%O[WC1z-KQT,h/fPbQ:uCw/d=]h.7sCZG(TJ5bpo
U"MN0)JJInv?^,V.UI&[AieH].G0jMS;PCKtBHk9lx;#]I_O,()A:Ne\ylx#wxMKz
U"eeYkH2bfU<gHp;2:;Uew)O)r-tZ&[dZhbTAi4Hr=RLF.lMgdpjlmCa6*[_Jxkj_
U"v5S<tWRR%,e*Y>ER$5*LvBY%OHR2Q29ek$KKGva&S^>+$32xmQssM9j<uXJ=RL%
U"tDviiuL%B_i1(NqKi+m_^4JUS'1hekIPc,t>'52hjDK3[d#YMVISJWYtU7mk-o/
U"qJkPwi(BT[xQEL[iI=]pk(ounX(.8+Zq++3oPuM<;=g^/8dd%T[Uvr(yH)+=>=M
U"Q+&8PWG-fHI_l>rqbbsp.Ab82^S8K*D>Azqu)#=sm6p[m;_6F>74MvB+tkp?Qj)
U"L<Wp0N26^T5ne>QTEU?6jL=,Uwv-e<$d3wgRL%ADPl#r5tJ4D\Vy2[gJM&;Tcw#
U"('d=udXfGY.eT<5GVp&XDXJds'>\\jt5c*/_6-,bo4#-l^pl1BTOqfhDjw/oH2Z
U"LlDwE2D#7_+MOeLigO,*A1S'gye9SYYM&*\z0AkP+P%[SMFnw82lI-fk<s%C7qZ
U"NVU:U+K&jy/RAOS18UE.$h=5=n$/782?\(v1B?eh]DUc,KRVRYI0-O1IQY>X;7p
U"m:Tg%'1>xR<cw*wpl\X(erGh6qd3oW>jEwo=Wthr5u2aq?l6BAf%IBiEW33&Ja^
U"K>[WlPBFA6\hN\d3]EXjq<hD;x6L4lz=B0,\l,0tOsjJXLEM4X>oGIQ);Vr=<NJ
U"K,*#Z<:;O\nYN+cqAM/9A%cng>\&DT_1<[;u4+Pu5i*_)iXIO54bA\SnS,kRA\)
U"ae-ra.tb3^RSJ8v%l$%JVTwtT7M0x>u+j(>H<5q&y-5tu[FjCVl555yb[zMlw%4
U"up(%)9%%[%-%iC0eH'Mc;,1#%%%c%%%%1%%%%m%nxht%wjxS%ifyxAAny&9irEx
U"-[^WWHY^'A*DOqhmpEL07mt:Hc*+a*#M*I3:&$Fq#f;YVC.Q]5Ies?8(f9vS'Qa
U"hxo)IAq<[aMG__W.A]Qy5D4=AAy%-mRO0G,zZ='kff.1h-S%%up&%'9%9%%%%-#
U"%KFe+HU/x*T73%(%OT%%%0%%%%%%%%%&%E%%%%%%%%%l%fqqj(w(Sg%fxup%&'9
U"%%9%%%7-%i0JeH'c2;,1%.%%c%%%%1%%%%%%%%%&%%E%%%&$3%%%mnxh%twjx%S
U"ify%up*+%%%%%%'%'%&B%%%%B4%%%%%
END SUB
CLOSE:IF S=4AND 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
