'=========================================================================== ' Subject: BLOOD BATH (FIGHTER) Date: 08-23-98 (21:31) ' Author: Justin Lallinger Code: QB, QBasic, PDS ' Origin: lall@firstnethou.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BLOODBTH.ZIP",4^6:Z&=9352:?STRING$(50,177); U"%up()%9%%%#-%+vm4%%%0%%%%kn%lmyj%wSgfaxfaxaxT_k$86 U"Kx5RA$KLNs\dI)M&g\p5o_av;p;?J7bTgK#Y:SXX*H;\>WDuxJc4G;R)IYFl2hS U"rx)tuVN'-5)&%P,nnsT(tUbYQ3rSuG-YKw:c^/?3^aw]-82_Bfp,&A>,>wG3oQ< U"y74C0Zd-el4^tU#osc U"ousp<]kNKF#8Wxo[X*gJYA^#-?.WQjuwUvZPtbP_##\CS*gc5ikDk:/^rXxCZ*0 U"mDt'Rn,lAxvpO+N6MTY&,v/RT.m6jaQeDlp>o6NfZ U"?X'JZawBZTCJ=NG%W9lS[ux9?UtU#,ykDPNH*':$gQLHPwa,lpFoEb)VF4/DG=;f&%T*J%)E5#'$\P_llE02,faDHn(c.uo-K=S%?H&VE0$zgM U"v>()Vs5zT'(H\samLnG2]Sfqz?f4-lQHg8Cv]rH;>YyScp$RjFkza.-^7a4eVAN U"e+k>AM:z+Y9[RkU$gN&kJ6(CBjZg.+,FMiu8JqII=+v,(g*fR:>D2]s.9cRTbf[ U"U_QI[8V-Z6l%e-S,n*7].dJaM$s7SeX8H?XHv3N9cphy%%f;oFV+AI0WcUprL0N U"(FTks[Z5xUj7vrefiDUff[EJEacdkHVI,Se9Lf0aLXka\ylE#sC,I0zSF.,wh8IXpNPWX$f+o2I1P: U"2CI.^Of+p\2m_hqLI)qZ)a2qni8ib2X2u2NI77+S[z=+)Wo6cr)0\>jtOK?(;Wy U"k5w^tB&F(BX8CQXqACg4;TA6aga)JoEi U"2Q(:JRcHsS34N,X'CQ81_eYI<(Q,))DCWa%y>Pu[<%^j?+OC8o&aJC;v)ryOP$\ U"WqFGN_WW4xyYVc&,0]AC#EFI#b%lqz#$hqt$s'9bg*fq[&b?o_4Ka(xEH3%ciO$ U"TSK\twSN*WaDUE:z=TOX-+T:d%gANeXw*,H)5O_qS+-%oCu8>8B$P?KM4[ayfG#3BfR(#WV3g.=,YFS'DsY1Vk419$V/LR=Xso&WV#E$dz(J8 U"&;OW#2_3yU$bkFY65E&&JIkzq&1r\yN;f*p0O:B,\a+EzfUBgJ-Wnxo U">5l+),Uv6_gL4l(Ib37[:$WXcPSkuBtAaIJvXN_M7^DU^L%a9C>P>-#8M8sn.=S U":SQ&[+ap7079#nU\o95y*wK1QW,krV8)_7d4?(^9Vp,loFTLK[%yP'XxI-__b&3 U"9F'Z1[uT0MKD%l3bPG^I/lx4pFv/C5Z]BNh%%n8B.z3HzgP\\,L7n4'*9vAMbAe U"aYdX.Of1%vYnmfIVgCDSp-;f4lql##%u](9DTHj,bL6C=+QtzM?*MX<1DBGZQuI U"usuB*3q,Hk;hk'RH&elI(9s?a]V^%S,1;0,J$e(7/dV^a18rjrflLrSc6,b+6,h U"lt_L6,=0KJk?rGGl#q&/csrA;?htr,TW:D.2kcp(k\k0v$YH4T2'Z71FDATjQ'P3hUZ:V\:mAc U"Z,0(q.VnpKLee/fNkcreAHuiY.W_W5H+DLBo^L^.GnDXL$;6sv:0e>Bl9vH;DVM U"0UnaDoCh='mat%Cv6Xc8O#Gu4glv?j4:q<:CqZ)-i#VJBog([cRKp-(YF$[pQhQ U"UV(^y3%G43tp/6$huxb_Tm4;8c-mK7m#utcUm]bn+B/yXHQ(N';kP>:h4t?C(oD U"YP2tJdW2oo*NG;dH;d>Lk+Iw].,l43d+V?_cNb;0wQM9t[5RrU#3[yja+2%yOoE U"p(O%LPDo(UNZAj-p*c<9+q]s8SbVon(lV-[wTCp<$Vv(MCP5m?w^VE%Rgvl'eXS U"/=K9(V6JUW0+l0pT']F$TgQRuT:Jk/pL]p+A=8p(wG/\cL9RknO0&(L+K&,LG6iiGg' U"Iqy4abx]VI+qryFdr4$2Gq5uo+QLs6]Ls6LI_zl8M6Bu#XVL1/:9?:M\/J5G/[' U"%'cZEMY8kv9oaEE*K-$H0**+]gc]Ls6L=_NMM>;C-wLB[#YWbE:+0a9wz8vm&_1 U"j9tx<>hkvTN;9Uhvyje-zD-tik0=yi52UC_$P;1h_v7Sb5VnLqsw09tp.H*3;8h_]lO U"G8:?L_c,D%(#?Wu6Pox^+]#+3MdJCJeAR6K]'ArCQ>Bv$4GScij#Y1+(NrfI7/G U"Z50-&eMeb_c(8ts^daC^]g^wEgon6.m0 U"l8dKLQ+;S%Lc?,]S*'F#u%qCAr74P51eZj\uL84AA):?B3[,OQC33km(,E9- U"hREHM/*f2#FY/J#Aw.qoPEJ-Rf;8XvLO&'i5MY&4Ovh:NG[YY%VIr-9UTFK8/6[ U"h(*4.$r7w,IyYNRwbp.z[-DdB\E%(dsO)\&.sK^JG8bPZfQn$qK#o7qsQ[VxUCM7(w\&K&D\J9P)H=IiV+[hZ3fGj( U"67C:sD.'V4F)HG_sO)'?nFL:Y*TNSDw15GE?c3t?%0c+4Nkso0hlt'^ww%\b%q0 U"D+AJpHZN>I5Zax$M;C,XQV%Zy^BS#^BKiyCH-=3gbFHt,t&A'Rltrnu1]U9GdkZ U"eu*nIryUTI-TPfiw^h#QmKky.]h64%DxJ2iv+eijdrFr;-AS5Zp U"Y,fId9om^xE6'i(5>N,[NPhJfP7h[g&QM[i%A-yp[>C\Pck1NL6[C#J$pb3Vrt$GDB>6J^x#GISL+.:+jNt/sYm/=38uaz]wsJrp$ U"yUs)Z7pB/j=MePZ(Uk^uf5;qY$9vC>GvScwZt[2?d?GB,OQr\J+G=+_pW7+y-2V U"?TiKRB5-i_l3TZwP4H%vXwnEN6r0^-S6&D/5$FZr]2-=e*vV'+]5VC(boTm1JaE U"%.'_IN&3q%C+P.1]5IEj$e\x0c$LOk-_X$G)lYLCF/oLVt0IVA__ U";#\]h_X-31QdR/e^C3>Y_?6+,aU.ssyCk34MpXy75y;u3okJO-:IHtq62G:brEO U"\0*(ev3S=213xH]=D3/*_]ai4*JgII5.9*gf,QOdsFSdak.e6kk;Rqeu/cBC^XC U"o8;rPVeHn7aU'&*ue2g?\UE(b2aB//RvouuNtp/#$&p4ihKaO7V2])[bB>&]eR& U"Y[(a*(Rc$Z2J.8%$g9OirAbkmOChg(_6jY]Y;QIV-eI?2jBDU1Rvef%'>o$hc3f U"=-H*la#FeJM?b\+f[C936wF&RSQ?]*pG)x?$DE8<[T%A0Mp>A]3p2p'j1H>=Tga U"(SQL85e3V.#v/O[X4-%lK^AB/IBbjcfA04EIDWqd<=Z'On2zdhjo(1#'QT]Fb1l U"Hn]k6HPsVNk+1BhB6a.W-02ieF80:>Flk\AbuL^Y]I1v]YpT9NYeQ:i&0;^Q#5i U"xq0k-)K)e,$D=l4V6A-ioFU[n)-U#M[SQkPe#.Tj3'MBS.i?Rg%Nb,?71HqT3Er3Jho6oDtjF%$lD^MM U"0P,/Z[FnPj.0kwFf_1\18KN)1hJ2b>6ke+6k5We(>n82::38a7:n;Z/]=SA6- U"oh%UxvcxwvQHx(#TPgVMt7VY;EF*Ia)BGX]\3-Yh+_D7UolXbnWs4LDy>)? U"240>W/kOt\2DbidM9/Mkba4*/_nQqrVOYJ0OEgI.By,p[:>3^&6z(iRFvo'U^fh U"gHUr4eu>*AerRjU6gdi?=E(%NJd:f9QNl]KYE.tD;XM6s\Vn1cM=qTYc.;Hv84, U"6XoRr98CZ#7eN^3_GW$s)]3b,3^e,^o6Evek;b<7Lejsl0sVe.D7^3aCi0:,bY[ U"rrbq2_ulg9Em0s(nfj7pB8A/YF2e'hw\%c$vIXQw(:R U";%>:UHI(XKM]2i1Nk2Y)H'[-a=UoT(>i?wm6l[8j>7p?uxU.Cbp%DpEJ U"5.:W?fr&eoOi?Ol[Frx%9X?)9$gO6H2rT.kYZ'ucXduxkc8//TWcPMTnWkr[=u= U"OWN,ORpl&_gW40)BJdt^mPXJj6ocFMntoikNARN8#f/(W_ai_C\m'+*d-**wP(\ U"58xfM(-sz;qT-,6CBD1^EZX3UUK2Tum]33^$i,]S7K:/1ii^jFzpn\hsMk^k.r* U";8JZBi3cYVG(q,]bnsL-'?ADN.HKJ7?b]/Ga8KBcJ?C4u\&lrTqBxWzr<4f(aJe U"+#.eIWlhhWY[IK%#ifW.El8M?BD%).>ZiZxqNU]kk7fAlR'r9W=N>TQS(5bodBynCNpLG\(hAHGesiMN U"7V:0fA_1AOlaA?a3O%7[yZ=n U"D'tR1P:rUl*qSBf13u-UJVc/Cd>uRAc4XeXm6+:L5$8X#[q50[(']-&((,oR1d9 U":)tNh;=+7q*O?o9(RH]Dj9Pp;G:F_a0q>RA5VFG$&[sZ5::rJFc%q1Qa*,RZ-Ra U"FJ)7^KgCU6JN6[61s&>?r#t,aICF3M$SAf=3wJq6Fgbc-iK-0o2)]V^%4_EO,UtA6/qu\BO;>b.u;bM:&TaYIJUI^Ep6YhS57nyo0s+jR\4>r&E>h0BU2ker8,?1P/b_mM)Yt\0hLgp35u7WPBaf+Ir_6Kp[4Q<436[e-vEiy U"aJ+OZXz'%BA4J4/7ol?6_J'*Um_9MRhZ-pC2T?)YZX_l3'7%Qc7%qqhtrjB1qNY U"Gt]<6I4%&aFITXZ4R>wXJ8^,i3WdtRwXL&5C)fh&B6Ohqi6/^BXPGg8%U:Wh8U? U"xNe2..pvLN<0KRbU[(>PLdtcqm$gv<_c- U"f;7uvR.g.P8>q<<6$l+J>TS]sdMm(Y U"ae\Ua5AHj6Dp]ArGmllWteOjA,HY72kqUmlcNVv3IJhgYA?K+T.xYHDwtLBJL., U"$s5[JK,*K1+*M*^#;Dul6nvjFbeq(AD0AiC('CJqn=i]/#s*j8+sv]43DtvQq-iG U"VR(=rPnLDIn.HA,=T.K2:3Z4Vi:EC?&]v#P[^xg*EVLoy4[n,R2L9bof%P7,Dni U"drSYg*$CDp$fjjlHdeAqI<3Z/WYh:,j1%t6f.4'hV#YoRLQ'>MKiX=]&%3ZYWEo U".rP6OgnPhIXrm0$SqcBO0NV5uFSrT9J=)O6G0&M;]IWfNmwKi*95zN+k\^bCoSC U"#p[^Z,T;g[cDCFF0,/'0-])rpHNw*DW30mziGja50Ul;X0E(NPuf0hFqWIV0A]U U"A6PJ7WHg6rLr#c0-,dMQ3=[.h0?MXo^K6U-,VMoVj0X7?rkeB\O$K0+exMA/QZE U"VHRMeb]5DIJw/a?55%#7'?eRga6N U"nxPoV8'jqNt_bC9QV$F.qbm]xfmROqlANnZTA?Y0xcg,BA#W6$_;*zv U"whxO#1GSg;BS^G(T?pFn[LBV2gACRHwUas%qP8+&Wq3v]vu3Pt&u'D.MrOqS]*W U"jaG0OFC'C7k'Z[mLSQ]Ij=<'WiZPjy.+3=CuOh4glo^Zqq8=1yn1ga'r0;]6cvm U"rf\'3kYM%%%0%%%%knl%myjw%Sxuw*fjnw%#V9e9t?R*sU,0Ro U"#[,6.-X/TMJn/j9RzaM02snF[cg;2^eyG.8Iod4tuTYbixTx[jFv=b'NTn;,N81 U"a?hppd0WL>a'jP17%G]Io7N5#u[,qhmBlLn.kp?#0b'P9mda7)g,p*8+7.VEwAt U"KeL]X4'v(v_kD*\uhBBoH81$uq>(_wm2?*b]/'HM5u:VYaOq$S]gFt^x%GL?>NY U"Tjw\v5t?f5acnB&Wixo1cu5?8#8c;'2=H)YpT*>2.?Tz?1V-2miESQSdKsRR7xo U"$:?\>q'N?2Z)&zt5uK?t34jG?ZjOX3]v'ORYB7RT)ncmLEaM_u/-ei;Wjp>.Os^ U"uH)TtH;)jab[uL;&a?&*pku44/GIwYJR6MgilFDT5=8?K?PY),WIEuaiWua\1P# U"8riHFIkvG:KBLnV-t9umNlqK6k#HBvYljl45aSqGxjhE7yfknuNRl2_uM?dEBa?2fpb$elQ2tVql#& U"B;EFU;(yM)5wUl9W\vOG4jn;UIsPAFLw[Vpo-=q4V8-vMgbScT)PW5AF1w[nsr\v/?JfcbfE4b07MKC^op5l#VPz%9 U"5r9G,&H=VWfTL-lqXL;5s\x=T??8\Vn^^p9\Pt?^<(zR]r=x+$F+rvY;?_g]q1k U"T_lWxERUJRPeLU[pjj6S+HJ]WZ;TSGw5[W-_LX-iDe,DC*6-D[nyk9>&,8[#3c, U"Eej.\lXMeF7PF?t(iGTH4R]CG9u.I&NV%SnsG\t6k=(^wf.up,.s].qfe=.&t%j_N6ff<9t&00/o/U%ZH__KQs2UQQ_O#-PHPPf;?ZSS?nS U"H1393/Y='c(8:NMJ6VHk&PpppMHktnXnc/tolWHEB5TX%BE]XBc=ET\ U"a+\:\XIY,2qKvL:qjFSf^[Y$f)jj#1M:GLL_\/((6''/A?;DDpL5*G#8#&Z-2mn U"n(g]UItHa[)m)mm_]MTI6iK#>GKVKk#(Ns\s=\*_Tl?EEtW52>[XmXlEuCW=U-% U"Vs'c+$?4+s(5rYc^^*>qRf$$e61:qQmmS/%(DDDS0A;VAV,5*2GNN4oZ-WVBV&] U"UrvMX>X.enId3s00?TF\1u566F9\QvfFw0RlhfH5_VLh*13?hhH)5M>\+=(=L:& U"nx&%up()%9%%%R-%gO[W-'(7%%*,%%%0%%%%kn%lmyj#wSy'(y\zr,>Tk5 U"o6T)x)0IN7$9pP?Is8l9pL#\-FSeOPkRU%]jmUYUaJoh+-sd$XpI2Binp5m:$Rl U"\hH6RB,Z/WPf7KZ)RG5>T),,R;Hq'&.24ksU+X(G.)3RDbU[9p8ZR:mSaWLqHpu U";#nQVVrnDLUL2z-q1(D$i7l^i4mYOc)k&o[)l60:j6JB1'vViq8x*ELSu_zk36Z U")qq+&-%7e5i$S1ekr%*5ba&=D&J=1tFQa+%.JiN#4]0-z\n*,#%T8Xh&*iT:xM=3>o&vZ7L>iESU;&x>*4WRszordk##iWN_lDn U"3W2dxa41x]Dz#e8VmTO]wapwulR4Jizfg'z\-e]szT0YnNIe[j^MoJ6BMQx]gUB U"eM0xIV.EU;eAkZ#>xJYXSp+TN>8Df_qkMarq-G4( U"DGZL;&#nP8QcX:+p\$FlT>5i#=?14xm\T;D-uswf6p)WH$uUn)*BN++['tN;x^U U"[22uPc\J(sxnuX95j*[AX<<:Ron<8LEGhJ*EHQKkbj*k<%*8ZMc&0Wa$chJc-KcH>VN'PtgX' U"_[*=kUQ.--&U'1m6?,^#$D5^rViDuF-1Y/)bnw,e^u>ix7pwEB/hAN)bZ]+F35kfW174$XXMk+>h U"R)5+ZI'][CE79MCKA;mM/xF$W-g'qWK&re*pHs25*m4hAA3yEGosERM+Whs3od- U"HS.k>:)tEvPnf[8K3Q7rxO/0]^oFES,aX^N[NVO8%v/ldPJ&ZL/I?%3['%%% U",+%%%0%%%%ijk%fzqy%SufqW6ctADi?9Scp([NI=ir'$jQf>.p=;=?.?/ak6Xr( U"EPhSnfM\7,f\35YuerAw?ktPtdnDCxfRZnSkFpzTu0:v0kR4y_UxJN+H^7T>07z U"\sV%tKybC)OX5$d,#Qd%dD:y96N]*/r&q&\&&UG:&6.Pz7JPI+u9D*2b'g:J-j: U"X-[*-7#XaQ>$G[(lGD4oj%hY,OSkkF38heSMGX>L U"Y.Dhu$\FXiooDve6>3A/Z7+r$=xi?N[M]x(ue8NKM):0t)i(.9Cx>XA;9L7G-Hh U"^NB)gb)%<7sI&cIAmTAnQ$;_$)IS0f;[2SgS6#.(7I%I)Ia_a?FZ[ign;MPSkS% U"B.>.%p7;I0EmWn(=$UE&plgeB;H.&qIBjU03$D0Y^-)sLb.70If0B)*1vh#P)1q U"T4T-?s/bKmP)LunhtF.w(jZ*>2b6\rc;vUo*YFG5^?q4OtGDfHKIm0nhNIrZ,n> U"PG'tKnBWQ[mYMbyZ]Lvk/omRF>,x5*HhBXL$1En9RF,(D5FE8'd4up%&'9%%9%%%#-%+vm4%%%0%%%%%%%%%&%%E%%%%%%%%%knlm%yjwS%gfxu%p&'9%%9%%%%-%(\ U"$8J5Y,E_7[)%%l&>%%0%%%%%%%%%%%%E%%+%#=%%%knl%myjw%Sxuw%up&'%9%9 U"%%%%-%*gO%3['%%%,+%%%0%%%%%%%%%%%E%%%%T%F%%i%jkfz U"%qySu%fqup%*+%%%%%)%7)%]%.%%]H%%%%% END SUB CLOSE:IF S=217AND 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