'=========================================================================== ' Subject: KILLER (BLOODY SHOOTER) Date: 09-22-97 (12:28) ' Author: Jay T. Cook Code: QB, QBasic, PDS ' Origin: jay.cook@sandh.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JKILL.ZIP",4^6:Z&=9318:?STRING$(50,177); U"%up()%9%%%#-%O)%[H#6(V?A5.%%FZ%%%/%%%%pn%qqjw%SgfxTN$TEfT]ah7_l U"xuWjE0t,Xe;nb,2nG$qqIWYE%-t:q>H##Jg72e-9a+mjde0\>z&5^mqjp?e5%t1 U"qbDl#&M%TuCna\-FV9SlGw((tlw_19'-Z1cwDoY%O-C?ZX&]KJ]TN^jQX-Z5zPS U"zXA(F.5NnS\180CCbVG_)s.ndxma$;vZn#eK^:JMgJ1;;1DW&'eAeLqST9D;D/* U"-AGbG+GiC7']0%9hMQ0pQEa4&8.W[Za^jg/ep.8-^l-A=eaqM4m4Z[;i&U/oU*i U"J]R;WL(3.Vd&7JYH=$U#lu2/6+wqganp%T*;d5ulcsU)_6')K9.:*j5k()\)=g, U"u%h5j4MuQq'l[EJ*'C2PTqK_^Y)/VG]89i[l:jGqAh#fKASK_ U"]\4:;Q\tXcQ9aQAo]YHE?%):>;2lQa5HA'eWG'1HGu&jHu-73q07rYuqitE2YkH U"0Ff-;7Q6^r(CfW[b.T(niE7>w.91vI'\6&.cYN+ugiUUL/;E U"+Oppr6)<(=*Q[RSg*Zg'*O:Zqa:(CxBuk+Lur031\$e+_i\YX?Qu7FB?p7u)dM# U"SJUAWG$xbW?jh0-*4<9_tB1+;fiYQ(F%mc%< U"X&e\5K,P;cK=D;3J]<8[QmCDJ.m%u%2/k0>o,RTGkmJT_msF5&M3F;Q.D%/[D>N U"I^W(a]78&O52(RBJsz3OQH\Ga8s6o9c')8;05Rr*O>N)G\PI-.F8Eh%8Ci7N*5, U"hBHhtYl09D[fQ:hit;Q,l4HZY^Q/vIC2DJ#d>QB0p0qYikQIQ9i*oB07TrL;6>r U"RUJV+>[&171>YWo/:)HqS&C2<]b< U"Fa6kqv;L)ZL0*Ds*pksS)AtU8o+a*WHwf?R'>.?b_Bqj6\L'/D67n>.=,2<.i<7 U"R>X'>na6RIbuR6*jRd>Rf?56p7;\0ofnZnuSv>VunqDF[dlU6orW3(TPsxRGMYS U"WST.;^CjglO2h?RLd/F8-(%Y:9,2LmuE(pwK7fpaZHZP).mHg0d$./Fx?Sm&HT[ U"6x9lnSa133W'KQc>ZtLeCY3rj<>c?B8M93rED$;pmu-GbJLSZukrqoVki]$cMY3 U"I(2T+yY<%z/;:%?[:'7[zu:1;=yQ:1z U"i:(+S:+\Sz+1+zq/(]U/(UR/(5Y1f1Jzcq\+SEW#(wZ/H U":#3(.yyyRi_Hz,W^muDtqQiZlo*-$\<35AV8^uiHfZfan6[w1[T.c1#&l;A7K%+ U">L2x>qX=g7R[-U;nqxD^?>]_/XG*mSUDn U"P:Ankx76afM0omfl%2pFIRTa=Fe)i3Nfh&>PJCKQ&9%Y+me'LYh4V_NA7Vcs.j9 U"-vSji;*S08B7nrkS3qM(uD4Na_f;mm2k&[=9PfNX8.7uCqsM)i(lmJC4bjOFMul U"*)c5/>LM_mP,[''>:>WSl&o2XOM/>wOO^dovde^zO%[IQQNk9I*gfB5FKaP'P64 U"T$UqFV4(a?[;1C,yJ=?G&0z.x[Z'l0'zOiQZkK1u\#06)'9rb']KFnR;(Id$c3Q U"\m8>/K$jUD#W=$$50V,TsW%0$t=s^Q[yIz9nQPA^:/9e$5,;ZHYOU'oR*>]G4*V U"$fi'f?0*aPf+rNFV(\oj>U#&7C9N4,oom*>V%hTA'i)5K\'W51w.rU,\ponl>H[ U"ls_eWU]h0>7;Fl#ul-gnMCV:Zfqc1=_[7[HZdbt92sY:.dL5N6d&WtgHG?_#45* U"md%PYWi5HR]YCCinHabbyehqV0b4Ka<('2 U"1,mqeYS^Xi1:8;Ngsc0[\IRB-Z+73J76/Upj+.?6..Jkv7-W_7 U"_[Tp=-).=jfGQ7LpKQ:ko5xP7a6Qo2S4kGRAhk]b&=Rc.d1S=GwV..-/Z)pB_l( U"XuI)_X4^V()iDCWiOSLq&'X\kBNc9Xb$3#Ahnvp''D9RP._C)RQ;LM;X>cSohXo U"tT0\jNPI\'=rsY=iM8PJFXLU6uaEfTfi&UkvHcHIJJ>oX8=%LFYJoS2,N:[,'2#SN?Ft#-4ANG7nNT6R U"If&p>q';orm3ald7nkg?oDhoY%5a$I2Lcqn6Y,RX2/)38S\qLvA#,o8qf&Ihv[N U"*ddYxQ$KNgm1Nf9_?u1=51s<6bX.u9PJag\g*k7k%jnlYT/a14K&E)h_Fw;a/To U"J_^YTS4xQ*DsxafU9KRnFZ-=)\wJB\[Yy# U"]zSr=m/(aMgx8*1.p5;]hpyMHb;,-SS>?o4[5b51C]Y[)$3nxprNCZ0CA6OTXc- U"7Vb(mN=vu'g3*Jw]/Kf#w^ukm>an']Rav5zo-6%]aXyew*498zu*5Yp,W&)=EmH U"c&*5*Dcp/4gP91nw#Y2xF7w9E$Ip-YQ4U=Q%3na+x%ShoBWjdC6rYn8cuI25)+O U"XKGs?]_)twHZ]6ZfgF&u2Bm]nmZV-uKmZrYrbbE5ZG:J6%S-xj4SiXqmxU:ps:D*.k.% U"d_7#^/q*QF6fN$Yf)f/$>)E?9$4Q:EXH%Oc]4Sl%T:lf20KJ94uD2Wp&ob]%P_1 U"-Gq^Ao[tI$,SAVdNZsEvyxSPY+#'+[q/,kn;y:itBK5Dt0I^p/5/&IUf]%?SsAz U"#Sb#BK4xX*'HSCJb#>Q,E$= U"$d.7V4z/SEDIC.9r0BP&Frm/bYIk:x'L4nwY3X#S#pkOwCUU#_jG0X_1a U";E#5:Il)<,QRJq+RZJs+BfTJYo#\2$,dP?8fBt=16<4B0&_\h6oF'WAQRlW U"lZjd[rF7p5?L5'$06\:rO75nAxg+tD?,xDihJ*SjBm#%Xp[]PVUt5r3NFE5a>I, U"YLUEajJt_4uMEi(qh(+Z'RfD\W,3TBQAvQhFJ40Dkp.+aS5Fh+[m;4+EuVQ04$B U"aQ2,dkn/BYcE,h'iM61Y?KI)zvH,%]a/*q=^S0Eg0bOeYn3sA/)[R:z)#^60-Xe U"R>?F.FZ[OJ<](rkW$p\=^7^WHWkf'Dpju0*RrM9#mK^RAyJ9#.qJ:yK0X.(1sGM U"w>1q0m.;j)FP)0CS4.^3GzO+Q-*t\PDh1M$DmfdLjVL=t5I5Hg9Ba,Y+ U"ppC#Ps+CxT#Y.6X-O7,sELpAEmAW2>^EQFSb^7W3\ti9/Kh'qU/M_)*LS+26nk[ U"PFmb_4P5RCQt\WAoI%.R>PFLj*9NMKtefRsdV?9C:Y$57zn\o#8M\op85UW;f%# U"shf)tyy1PY'*)q].(>ek)vE;hsD\:lAL.\v\0i/R=STMZKxyee/fP\%iZ%9D%TU U"^RzPTg\^=%^t>(Dt]9CcI$#fbMZN[iGVuK?AXBmUE^1phu0DTj->.Q?YsHmE,;I U"'sfTv]J2aB11DsvScKA9WZ72#ygk.broMz_l/';f8M U"okxLeVkrn-k\(=0f3LKLj+q?k)8.a>o.E],Q5YM:KSL?%q_?9Q,8thV'W_A7h*x U"g;%e;v&mTz6eX*5qeS)9<7F\]>njYY_0kK,#kypF^H5KYXFV2^_Mu2*hA1KS3,5 U"FYZqj41xkn0J6>dCx+kUW5tuKr6Wc7?4>LZM,i5u_zt7z2S[iZ^jdd)>9QY7U_u2i(q-Z0j3G0PU0FQDG0*y.Q:*3X$I9DgzO U"m*F/1i/I&anp4mZls/xWV0caoH;%aNXjbKq:g['RB&J5Ew_H\CAHN193V0BAj[$ U"$ho<[>VZy\nJ51lk_0QIM)$]4P-Z3>nT0e+pSY%?5ia-]wUxSYZCL'*m*sN.Xa& U"6xQHq/-h\r][RlFht,E[aB7G)le2NkcrmUc70/QQGyh3+_&eP:3y4WC_Q:J=Fp_ U"q=J0g;NftrbCT+[JJh[8steml$Pns U"lrmVTuKbx;md%Y8.JHH*T)-&N6Uxk8=]bp,U^OL2,aaqb1u.Lmul U"%LSOK'ILL=EVOK5l.[SEc:EsVF(KbBu;:94\MdIwT//WGKXjqdE]4RG]J_(W+CG U"H%y=N>G,'1-]#4U0uo(Fg1CCuOda,D-lI2143)9aNxdOQ92f\Sqb<3[I=Wi,0[MPdyw8%qPQeOJpnE/a4Y1(l(e_4to U"GKsr>l]lZ0)=]9'MQSd^aRt?MY*JGn>^\,W5qW+G=t.rVc?c4xmt/Mp65Fg?y$& U"M99%u%Pn:+znkVr-hEQ^5D,#'UBo%Z%pvo%j'b/XA7(Kh[2Cp-pp4k[Ln7S*xEts52YOiP/u U"Aoph:wotR]Ro/J,#7Ow4rrLHt'QNYI_/FY0MpAH*pgcMtm\%tK9Zetx5T U"LpxV)^2kNHJs-Nm#Div?eI?bZ*r%9)h$TOL%x?,&c:BnIB_-*KH8P.QY=HpHL1i U"6j'?6nmiVKnM2$TZI0]wSoR&;AqDp9/S>-+%\'J_BD$>_.\>iS'BKPyzVJ%2h8\ U"anftutmB$hn_w=H$HcL-#OjE7?L*dKi-AK&[-J;+oX.e%hbn+I..Q/.aCrP7#1? U"f%5<$CfL=R:OercwdsG\#&#bmSB5=6R0_n11#+nr<7yx.Cn)Z]^^Lh9dux5ZI*< U"O\?kHm\\<##[1Q5\2thTJmK^,WuB7D.oaswH]C7-[oabWr#L#=(J^CIhQe#MG/^ U"A$Ipx\xw4&X?kkbUqAl69]aOtdBGhq<7E9AcZjB3cqY=3>Yk$7L'lGxcGO2KVm, U"=DH$HK:q.]\[K.t;_gOJU8G8jNNtX2RKaEB>^S^C=Y&^RN\TuJj,tjJ^?C+8XRl U"]-de,g9)eX)SPmddom\*Q]R9?,Z)#XX*8aZFDf_e8DN[D0D=c[5M> U"3+5<6jXy39)>:'Pu=eohD/kdF_K9,1 U"5n0St30:1Z?,gF.o:(wb.q/9*luqTWRnMn2TrWH.lZc^gzf+k.;9X7+dam,d?uT U"d]_jFXzscWsOq;\5,fNTz&,4L/g)t3[hk#/>dEf0.>T]=)nxopobxO9wecow4_m U"hN<#cp\:7PhwP.(u&*nv+Kb,#]FIE#-s:J)FmtJEsLSiGu=qDrChlFnntiU;qu\ U"8jRv71-=:fPLco$xlEli)Z4(+^DVfb8,%_%87]0n?&Rr#^DB%D#a=tP4TMd'6NLl#Xtk;MhT U"=C^aq*ScnLPN$]N49;,e=+9JS[I05tIdQ8IO/9>V3$hs&i*MPu U"&xc%Wm&*r<;uQm9.eco$(0?S(;N=e?#XPuS:d&,d3]^B_mE/Ofdt&51lHqAv,n[ U"(ELHoa$j.II0[it(1avG+mhYLHw;+&n&cit%mm^k.v^KI/9sDI..$oz'*qM0uJt U"5_C78J;YI^%B#Yto#W$+'e>M^<.OK%x%oNE>5%XVM0u#+p:c%%w&L&sAwa/(3oI U"O*9,XM9uVH2)w1M'DqZcu&[&l&Aa-<78N[p^F6t%?=Z9J&>f4veJ=(CO)4Y&o;^ U":\&+*bN%cD?zr$LOi84etrDW5ZaA7Ye?e^2idI&]?Y,21BBJ5OrB9iw7AVWwuiv U"*Tnqy0KG+AeNEni(t#/%/]Hl'+I&x*UKa=hjOvno*vR?A%'u)eqrzKxpv:L7hN+ U"Cx1Lu9S*7E,$%*%V;K1ofx('iD&BR(KSC'F#o*k6PX[A9F'LNJW*eh98<&z#ne.6EhW%_JY,/1+wr.>jS U"0i]^-06oV0/jUjc477hnHdE%k=EZhOBR\,lV%HI2h.gVNo[DUJLU0)Ej0m&o(S6 U"q;DG4x*&'*dAfUK#\c,XvF0'>6S6VNb.i6DXSD8PNuJuu=uZBj(lgC3W^EJkiX_ U"AndH.YIvMW#6Hk[d=V1=\W6HCE?t*d;3rLnm:PB20/B9FI%*X\>'Lmn&/Oyu6I? U"t*hd3rL#.:NG.hy<$]Mg%ahJwucGb9yw2oo\pJZN7r'L.Zv\c2v.'fu0&am=k%, U"xsIU#:OK76\K1/6SaCg/\:Dh^y<$M[g%7*16:ycI.qTYIm<>+&)qf#Dl9O%WMGc U"Ekw>OmJoQ86h3f^7q3ZNRXo58xC;Q\iIyzs7?j-fu[0&X;K+Imdn.CwIXK%CMhz U"iQo1\t8-Gh*wS:d4HufA2w'Hq>Cy\x_+e]-]*r<C9l6JwP*4,c#h,fy'WYBCUcq]E U"/H82eqH#olDV^$v5by'(E9wMOfG#GKVg;$m]QL++zitmM[.%byAl7(K]7bJuOU- U"rC7qWcvvNvR$kikD8#TUbZ;^C_EB%Qdd]j:FvN>ItoR&oK[,hoI(atwrkg^$pgP U"aZ9kQH2I,V;$DM$(5Y:BUe3:JakRfh$AY3Z7H-^I]wyp%(8VK+w=W_CvVwy*H[UB.OKmDjjw/Ye#J9t\M$7CS U"/enTU\=v'[)*>CnrTHd9cMon-cO^SqlL[PsuQl$qWuq&B9T27kwrp\K U"iIuu2*v2>U82+Za1sl:6=U4c_7x[Aib'R#AcIv3KtRxc9wosnwyCe)D7f,,.ZY' U"*rM5SLB_fUc5u:kO_-_r,>eY'*rM5cIC=-kjdnXL11-V;?+r?c(G_X-QZKPHRXM U"AnB_kLbNPpT;?8*L-]]1g1;:/m:Hex/HpB)AZghIO9TGE1^5V=:hbMtP[_D76rC U"pkk/n65U#4(n,wG_8G-/V;E)/$4\PPv/K9Cc6,'ZUdIqH(V7G+v(h8;zaCo?q.\Tl(PpBJ.:cdri:=Xl2%nCqd>5En/IP-)-,.\5at&f U"1l*5U_alc23k\f>V[3x%pI&7jLWR$KuD[//*E/I<;N]&RRX=BF;&S&RmXQQV[iN U"d]ms'8#=t$KdLV-5'l)4XIC48XPHlQ;7]Cb6UIdV-5Y')4XIo>Pxb=2:?'$'x?4 U"&xvQmXQQVgit[9HrlO;e=qpw%Y50rh:0TCW<1'VrI<+w_&xJM_&>FbA' U"+Mp*HB0gnBCKT',p;8:gb;8Cw/QfjBDTeTpm:Ybu^urpq2gw.jkBfnXw-khnXh<*tUkJu+&R6IPmRYxS>fwbM'lK3>GLb8uEoY[+ U"b6rJpIN0<1U36FtJxi<44HndtNsmbkFXL0H22n1lW8Nx6W6Jfd5YjFH..ZaZeO& U"*p\>W5b#\k2A+3&M^%G3iO9YJO'#%4&97*14&?aRQQFxT\X2qs:b7'hn[[yOIL/:*0\4XQxLJS>-$9lLY/THQ/;v^]<#O#Zr>i;VF;;>jZkcv#dPrwE(sZP40* U";F%84n%Ct0L[jNIWIwu4$f^#ntjXMwt?0cWt(6Z&XQ(X)nyzC0uxqN&Sjs>D,=W U"MRbfxLFP30efi0%e0Z5^&\u^&&^P\&4>M:H4:Zro<_W5ehUtd4Zk^WL&u57:^%O U"TQ:Zo6C+PXbksN%up&'%9%9%%%%-%(O)[H##6V?%A5%%&FZ%%%/%%%%%%%%%&%E U"%%%%%%%%%pn%qqjw%Sgfx%up&'%9%9%%%%-%'.hZHXGo3i&C8%%+,v%%%/%%%%% U"%%%%%%E%%%%i5%%%pn%qqjw#Slk'%up*+%%%%%%'%'%&?%%%'YH%%%%% END SUB CLOSE:IF S=89AND 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