#define W #define
W B(q):for i=0 to a:j=i\61:k=i U 61:q:next:
W T(q,r,s):v=q:if v then r:else s:end if:
W N and
W R*rnd
W U mod
W L m(p)
W C m(i)
W RM(m,o)(o\6>=(m-1)\6N(o-1)\6<=m\6)
W H T(v-1,:,:
W G:z=p:L=0
W S:while L:p=a r:wend
randomize:cls:a=1159:y=65:d=3
1:dim m(a),o(a)B(T((k U 6)*(j U 6),T(1r^7,C=8,C=1r^4:C*=((5+9r\1)^(7r\1)+6)U 15)C+=C*bit(1634,C),T(k U 60N j U 18>0N(p+i)U 5=0,p+=1r:C=5+0.6r,C=9)))S:x=p:L=f*2 U 6+11S G:while f<5B(T(C=8N q<1,p=i+sgn((z U 61)-k)r+(sgn(z\61-j)r\1)*61T(p=z,y-=6R,T(L, ,L=8:C=0)), ))locate 1,1,0B(p=RM((z U 61),k)N-RM(z\61,j)T(k, ,?)T(z=i,v=10,v=C)o(i)or=p:color v*o(i)N(q>0)+8*p+7:?mid("  ?O>++%s#@(!/$>",v+1,1);)color 7:?"H";y,"K";d,"$";e,"L";f:T(y>0,v=getkey-49:p=z+bit(73,v)-bit(292,v)-61*bit(455,v)*sgn(5-v),?"DEAD";f*25+e*4:end:)v=L+1H G)H)H T(-2r,B(o(i)=2+v),o(x)=1)G)H q=14G)q-=1H S G)H T(d>0,d-=1G+6, ))H G+6)H d+=1G)H L*=7r\5)H)H)H T(d>0,d-=1T(x=p,L=15,L=(5R+10)U 13+2), ))H y+=6G)H L=0T(x=p,p=0S:x=p:L=15,p=7R:B(C+=C=p+1N 1R)))H e+=1G)H f+=1:goto 1)wend:?"WON!";99+y+e*6