Astro Zonex8******ASTRO ZONE****** from ZX Computing Oct/Nov.1984 * C.SANDERS 1983 * * 16K SPECTRUM * *A,B,C and D in lines* *120,150,230,240,410,* *420 and 1030 are UDG* *graphic mode chars. * **********************  hi=0 ***GRAPHICS*** 0:0:7: Df=03:g=07:c:(144+f)+g,c:g:f K24,24,24,60<,60<,60<,255,255 (Q126~,255,219,255,153,129,129,195 2F32 ,1,72H,16,8,0,68D,16 0) ="7"350^ ="6"en>0400 4s=s+(>.4Ls<30)-(>.4Ls>1) "x18600X , x=x+1 60.004yn,x ;sc=100dle=2 <sc=200le=3 =sc=300,le=4 >sc=600Xle=5 T 230 ^ ***FIRE*** c8*(m+1)+3,24:0,(17.9333-x)*8:1:8*(m+1)+3,24:0,(17.9333-x)*8 h/p=10 15:.005y# =,p:p:0 rm=s700 | 260 ***ENERGY SHIELDS*** an=182-2:n,0;6;9 ;"":n [x,s+1;6;2;"":v=40(557:.02{# =,v:v:x,s+1;" " Pn=218:n,0;" ":n:10 en=en-1  210 X ***LIVES*** b&li=li-1:li=0650 g x,s;" " lcf=12:.05|L,20:.05|L,0:.04|# =,2:.05|L,1:f v 210  1000 ***EXPLOSION*** Ux,s+1;6;2;"":v=40(557:.03{u\,v:v:x,s;" " sc=sc+25  210 ***GAME OVER*** <g=15:f=07:f:.03{u\,f:f:g 40:0::10 ,10 ;"GAME OVER"  30 10 ,10 ;6;2;"":a=10 20:.02{# =,4-a:a:10 ,10 ;" ":502: $5,0;"FINAL SCORE=";sc sc>hihi=sc $#7,0;"HIGH-SCORE=";hi )9 ,0;"LEVEL=";le .4sc015,0;"P A T H E T I C!!!" 3Csc>0sc<300,15,0;"NOT BAD - TRY AGAIN!" 8?sc>300,sc<70015,0;"GETTING BETTER" B;sc>700sc<800 15,0;"EXCELLENT!" GEsc>800 sc<90015,0;"SUPREME CHAMPION!!!!" L_sc>100015,0;6;2;1;"ULTIMATE SUPREME CHAMPION!!!!!!" 520,0;"Press any key to play again...." Yc=15:x=07:.01z# =,x+c:.02{# =,x+c:.03{u\,x-c:x:c 0::70F f