Demolition VDemolition by Chris Lemon from ZX Computing Jun/Jul'83 ( 2 6 <)10 ,6;"D E M O L I T I O N" F/15,4;"Use 6 to break the walls." P*16,4;"Press Enter to start" Zl$ _ d7c=0:k=8:a=0:s=0:p=1 8000@  4000 i=031 (1,i)=""3000 i c=c+1:c=k1000 vv=(*2) vv=0300,  350^ , go right 61,0;"*"; 8="6"500 @i=131 B.01z# =,16:p J 8;" ";" ";8;"*"; L="6"500 Ti V8;" "; \ 200 ^ go left h1,31;"*"; j="6"500 ri=030 t.01z# =,16:p |%8;" ";8;8;"*"; ~="6"500 i 8;" ";  200 drop !x=33!-23688\-1 i=220 i-1,x;" "; (i,x)=""700 i,x;"*";:.01z# =,8 &i (20,x;" "; 0 200 percu ,i,x;" ":s=s+10 :.02{# =,16 $i=i+1:i>21720 (i,x)=""s=s+10  i,x;" " j=15  xm=x-j:xm<0xm=0 "xp=x+j:xp>31xp=31 sm=((i-j,xm)="") tm=((i-j-1,xm)="") sp=((i-j,xp)="") tp=((i-j-1,xp)="") w=sm+sp+tm+tp w=0200 i-j,xm;" ";:i-j,xp;" "; ,i-j-1,xm;" ";:i-j-1,xp;" "; #s=s+w*10 :.05|L,4  j * 200 /c=0:a=a+1:a>51020 P23692\,255:21,31;b$:20,0;b$:1100L q=(*7) ^23692\,255:21,31;b$:q;20,0;a$:a=10 a=0  1100L L#k=k-1:k=2k=3 V 200 4'a$="" >b$=" " @'z$=" .....AAAARGHHHH..... " Hi=015 Rb$ \i fi=1620 p(i-16);a$ zi b$  200 stop 21,0;z$ 0 0,0;s  score s$=s:l=s$  j=1l  f=s$(j) Gi=07:e=(u+f*8+i):(v+j-1+256*i),e:i j  @g0=00000000 Jg1=01111110~ T"g"+0,g0 ^i=16 h "g"+i,g1 ri |"g"+7,g0 'u=236077\*256+236066\ 3v=16*256+32 *6+16384@  21004 G