Demolition:?DEMOLITION By D.Valentine Sinclair Programs, May 83 SPECTRUM DEMOLITION By D.Valentine 22/1/83 1,10 d23658j\,0 n 9000(# xB4:1:0 :0:0:0:4: =#1;0,0;1;8;"PRESS ANY KEY" 0 .s=0:b=0:c=-1:a=480 , 8000@ 0:6:1:  7000X H#1;0,0;"SCORE:0","HIGH SCORE:";s(d*2-1) r=(*10 +1) 4dx=(r>5)-(r5):x=31*(r5) x1=x k$= x=x+dx ,x>31 x<0 dx=-dx:1030  0,x;"*";0,x1;" " $ k$""b=b+1:1100L . 1010 Lb21 y1,x;" ":1000 (y,x)a 3000 y,x;"*";y1,x;" "  2010 y1,x;" " lx=x:rx=x l=(y,lx) r=(y,rx) l=a r=a 1000 3la lxrx s=s+5:.01z# =,10 +x-lx ,ra s=s+5:.01z# =,10 +rx-x #1;0,6;s y,lx;" ";y,rx;" " 6lx=lx-(lx>0):rx=rx+(rx<31):y=y-1 y<0 1000 3020 p"i=31 33!-t -1 z42;5;1;0,i;0;"" .05|L,31-i i =0,i;1;1;8;8;1;" " dx=d*2:y=x-1 is"5"8050r d=w$(1) b#1;0,0;1;6;" PRESS ANY KEY TO START GAME ":1:0  500 #(-9200#:i="a""c"+17:x:i,x:i #2$s$(10 ,10 ):s(10 ) #<,i=1 10 :s$(i)="..........":i #F #M0,126~,126~,126~,126~,126~,126~,0 #I6,24,96`,255,255,96`,24,6 $T33!,0,65A,1,32 ,0,126~,254,126~,200,35#,13 ,32 ,-8,1,255,255,201 n