'=========================================================================== ' Subject: TANK!!! Date: 04-01-96 (00:08) ' Author: Kenneth Green Code: QB, QBasic, PDS ' Origin: green3@pa.mother.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TANK.ZIP",4^6:Z&=2934:?STRING$(50,177); U"%up()%9%%%I-%L*&PEA=8Q0Z-%%%vC%%%-%%%%yf%spSgIfxt(;9, U"xN7/:su\.Ui0QVsY7qpRr8K$orqaLe\Yp(JjU[o:\X\UCopd[E<-_]2v_]F/mi_ U"3SU.UCk>0=&efB':ch9_IR#JIPrnrbFPmjJKmI=U>7hR)&>t8-#tL U"viZ=h\qm:OZay*7\Tx'q?kv8g3Y+f.Fgf#,DDHr2qTjJNg<=mm_YTju,2(X##\> U"b)YY2*IQy3?Pwn+-VakH;=>#r%bAK.nC6]4)o:bH+JAZG_cR-nRi?K461sMj17Q U"yxZb<[DP#+Qh;my$*%abcdW'0/kdhHV%mD;i$Rq8xMhKIQ>JAsa)Rzn<:NIP\\k U"jv0Kc6404,#KQ)h(&q;qFaM'=oc8QXtO)MEVaFz<^1o(:[N:D_ZVlVplBO,$^^g U"gpDZh,EF9&iWiL/STN?f+2>-fU;JLRQf$*An-k5edD&w]/:U[gKN20f0;cUj:c' U")Ifc?bj\3,=Kajc[kR$^CTYPFY[DA/oRp;*>3Fmy,/mdjYVjn,=b2Z>^VOEd#1# U"O\c^>;pj9d(][Yv\26OmOqV9&ExHOg)16]IhX0UdR:r:#=AoYK.qZF82iSn6\'f U"9WnvUbRw$09>t\&9nOP_m9&.TX[/i8gAaUj U"aqQ&MA:_OBk0[u/7b_Y1>/J15DDDF=L(2vD$mU?p3A8-_sga.pBc2[;^v U"e18MX&ER]PeJrLrSTe3aXsK1];)Nqm=CfMSw*J<%S:r9H?CkYz&mqu\SXfvPq<1Pr,WV>*a:zV$vm?f] U"wbz,c1ZhZ1S8Mqd]^b\Zlo8eI'3k8<5gnpDMBk2L=V\&&$J6OKrFg^Q)sl?E\:=ERh7i-WcE1X_F;Z62^-5Z.HT?.^$/RC,FcZa7PZe(5-L>I.lZT/Q[#u U"VJi:)S$,D?Nd7x?XBF28q1?1fo+KU>9B?Iy&KhJ[k0Yp](Y]\ U"h5^eh=gs\76FEY^x\kDp?*;1OYch3MysnR'1h7mL/AaCImCa)_(eAneiEQUlhDB U"Mle*[%RM0TQAo\=^6n5CF5iUM.J2=S#iQ8KOpO_#.l/QmChul61cC%U\=cT:,R] U"C]$iQNqqPt90=rT^e9+A$)FZ5=:z%AtJ38y)CA>qC*N\#m_hmpA+CIVT#/33_43 U"D+P,r*FdU=#z2[&NCs3%e\Zvb[is_M78apvbXO=aLtaUFDu5Xx^SXMK)CsL6IWo U":nQ)#VA4)Z5WYsFrC4*(xk?=d\'s>=]#8fi.gZD[(9=d3=]Dtl4OX;c3lBdYSu.DN;z6 U"lr%'$ft'0R.6G\uitng,G%9cxv/c\S25+&u'ni/0K7Vj8Q_(vOOor$OF>F&l0$d U"EHduP)G(_8,u/+3p(SZfmO;0%V=9W4eL*:)coOE'%]HnTLQ9jA45lEFl(V\jHk] U"O)4$T.U)h8$e=:Kj55kY)(Ql)(q)Han4s*I2b-b/I:6klhn9)WTdyu7g$MCcg-7 U"QJbu+'r4c,k0eq=.0ciBqlOjIqv..$?.0ugIY$ko$OC^8s+]5E^,%MoSN&:gp#Q U"=lE,5NoB#n6i_E54Z[EG6=$kL6463KB>0v/fpF5+$uKQ\rJhbION0(LV%3.USGH2pf]2pC2?]6klKS)M=4CS9O2/MyQ%,zvN\y7fIzm%%gF7_81lT U";z864XLP&1b8r/3TK4T(y%+o&78/t8+Q5;+:d\BD3iRr6i-1g>gKl]g,=*5S7r? U"vsZeg;fOuInx1Tn40]w10;.[lip;2bUn0uonYT;ueHR\LBY^#kL523Yzg\vVLGLKDNqZ_g,89ck'B?sKFbiA>DpPm05usPEjii5Oh U"]:a\gdO,_m^vGrmf+V90:gk$\I(4r2YaGGa.aTU)fTr+W>m=nPp>c45?%7g.5F8 U"J9b14dWaQL[XOB;H/$9&-Zfg4PepCr$+,65fx).h0Rc.vo2P#Yuse$ftw3lXB_sc,).EW:_l>CpLfvaC3/, U"XC?/(XC?/(XC?J(XCY8dh0L\(_+uUY(wn_Pz8/$vXw6.TvyoAqysqFy.8t)ylMz U"Kfix9%Lozs>cq\eM-XcMF):DWFl\IT$g7yuMwgKo9Xe,#2yH+b+csDu%p()9%%% U"%-L%[aPgEwhH&S^%%%%)5%%%*%%%%yiSmvlfK&z2%E79):0\dv;n),4-)=F:i0Z U"[fqD)zc*%_&cNsam6,mim:LLQCvN2[_)W%%%%)%5%%*%%%%y%zSvl?fD*.%%F9*sf*+dQCw-4e U"5L1w16kX[?RO8+oULjPlx\f%tMdH??h(vt3w&M%&yqup%&'9%%9%%%I-%L*&PEA U"=8Q0Z-%%%vC%%%-%%%%%%%%%&%%E%%%%%%%%%yfsp%Sgfx%up&'%9%9%%%%-%2[ U"aPEVwhHS%^%%%%)5%%%*%%%%%%%%%%%E%%%%,.%%%yi%Svlu%p&'9%%9%%#%-%u U"DaPEh(-IwU%%%%)%5%%*%%%%%%%%%%%%E%%(%2.%%%yqS%vlup%&'9%%9%%%R-% U"&aAPEM_-\1U%%%%)5%%%*%%%%%%%%%%%%E%%%'/.%%%ywSv%lup&%'9%9%%%%-O U"%-aPjEU[_')W%%%%)5%%%*%%%%%%%%%%%E%%%%.%/%%y%zSvl%up*+%%%%%%*%* U"%%'&%%&-/%%%%% END SUB CLOSE:IF S=184AND 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