'=========================================================================== ' 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^_TAAOlaT#S;C&^b#PXPzgQ'IwNdNmLuw22ja-e\sqF?Rf43Tl0N17,,QRv* U"OgDo-&6NEc:>/xvaW.N%rWOY;h[1s%GoQb0kH.M1bI+s(/$h-XZ4g U"D#'Z'MBbD/N,6kUQ:nCdH?w#O(FLcvh9w9oY.L5n./b8fX>8[3b3p^Gk&l=YmCdFZaD U"0x)?s7Lxqq=^?osPusP2FIMju_wpV\mir8aKD7&+2SkX:Cs7W&bWi0FsF_yq_VD U"J^tKqWVppl7B-r.QD5TQg6kISTsN-Uj*qF'bfqr&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(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_VLBIj 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/\&TaQ1iT9M-)&&l2MgD,[ONh4z>x-&r(sX]hY<:ON0/G:tbl0MBBi;,RA\iK U"GHN[dvbf$BJLaE5f?N\_q,t99M/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)_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^\ZeCw_xT:8]HDg=Rb\5gVI8-O)UT.i)TkvdDu=N< U"Lk7]*^O,q(:yMH5#eT^,r6gK.d9M9. U"HjjbYA;Sj#\)PlY$sowO0sYI'_>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:OaArmF+1 U">dEjv9SfDO]JwqBjG1N42:(sP)0,V*=M?FbeQfCW5J5DD$.U#V U"W<^5kFQqp4Y,ER$5*LvBY%OHR2Q29ek$KKGva&S^>+$32xmQssM9j'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"LQTEU?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-fkX;7p U"m:Tg%'1>xRjEwo=Wthr5u2aq?l6BAf%IBiEW33&Ja^ U"K>[WlPBFA6\hN\d3]EXjqoGIQ);Vr=\&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