SPACERKS 9 E99 - SPACE-ROCKS -  Nuno Miguel Penedo  ) Nov/Dez 2007  yTested on Basin 13a Z80 3.0 Gleck 0.0.5 ZXSpin v0.622   para concurso prog. basic categoria basic puro www.bytemaniacos.com k$="O":u$="V":i$="#":nh=0:lh=0:sr=0:a=19:b=11 :c=(*18)+1:l=3:p=0 &6:1:0:0: <e=12 :q$="<":r$=">":z$="":x$="^":y$="A":w$="#" 524 &6:1:0:0: Tested by Rodrigo |0;0;0,22;"<<<<<<<<<<";1,22;"<";1,31;"<";2,22;"<";2,31;"<";3,22;"<";3,31;"<";4,22;"<";4,31;"<";5,22;"<";5,31;"<";6,22;"<";6,31;"<";7,22;"<";7,31;"<";8,22;"<";8,31;"<";9 ,22;"<";9 ,31;"<";10 ,22;"<";10 ,31;"<";11 ,22;"<";11 ,31;"<";12 ,22;"<";12 ,31;"<";13 ,22;"<";13 ,31;"<";14,22;"<";14,31;"<";15,22;"<";15,31;"<";16,22;"<";16,31;"<";17,22;"<";17,31;"<";18,22;"<";18,31;"<";19,22;"<<<<<<<<<<" 1;1;1;0,22;">>>>>>>>>>";1,22;">";1,31;">";2,22;">";2,31;">";3,22;">";3,31;">";4,22;">";4,31;">";5,22;">";5,31;">";6,22;">";6,31;">";7,22;">";7,31;">";8,22;">";8,31;">";9 ,22;">";9 ,31;">";10 ,22;">";10 ,31;">";11 ,22;">";11 ,31;">";12 ,22;">";12 ,31;">";13 ,22;">";13 ,31;">";14,22;">";14,31;">";15,22;">";15,31;">";16,22;">";16,31;">";17,22;">";17,31;">";18,22;">";18,31;">";19,22;">>>>>>>>>>" ;f=019:0;f,0;q$;f,21;q$ Ef,0;5;0;1;r$;f,21;1;r$:f a,b;y$;a,b;1;w$ 5,24;5;"LIVES";1,24;5;"SCORE";3,24;7;p;5;18,24;5;"NP'07";9 ,24;"ENERGY";15,24;6;"SPACE";3;16,24;"R";z$;"CKS";16,25;1;x$ I7,24;6;y$;y$;y$;7,24;1;w$;w$;w$ Bugs?! maybe 1 or two n=119 7;3,24;p B="z"b>1a,b;" ":b=b-1:a,b;y$;a,b;1;w$ C="x"b<20a,b;" ":b=b+1:a,b;y$;a,b;1;w$  ="m"bcb*8+2,22:0,153:b*8+5,22:0,153:.003xD,20:1;b*8+2,22:1;0,153:1;b*8+5,22:1;0,153:e=e-1 ="m"b=cb*8+2,22:0,153:b*8+5,22:0,153:.003xD,20:1;b*8+2,22:1;0,153:1;b*8+5,22:1;0,153:s=70-1:n-1,c;s;z$;n-1,c;s;1;x$:s:p=p+(200-(10 *n)):e=e-1:480 On,c;3;z$;n,c;1;3;x$;n-1,c;0;3;" " n=19c=ba,b;y$;a,b;1;w$:.003xD,10 :t=01:s=70-1:a,b;1;s;" ":s:t:l=l-1:a,b;6;y$;a,b;1;w$:480 "l=27,26;" " !"l=17,25;" " ";e12 5;1;11 ,24;"" #De=11 5;1;1;11 ,24;"" $De=10 5;1;1;11 ,24;" " %Ce=9 5;1;1;11 ,24;" " &Ce=85;1;1;11 ,24;" " 'Ce=75;1;1;11 ,24;" " (Ce=65;1;1;11 ,24;" " )Ce=55;1;1;11 ,24;" " *Ce=45;1;1;11 ,24;" " +Ce=35;1;1;11 ,24;" " ,Ce=25;1;1;11 ,24;" " -Ce=12;1;1;11 ,24;" " .Ne02;1;1;11 ,24;" ":105i /n 0+n-1,c;" ":c=(*18)+1 1p999999t#p=0 2dl=0a,b;" ";7,24;" ";9 ,6;"GAME OVER";7,1;7;"====================";7,1;1;"--------------------";11 ,1;"====================";11 ,1;1;"--------------------":k=0100d:k:#1;1,7;"ANY KEY TO CONTINUE":0::10 3 23 4b0:0:1,6;q$;q$;q$;" ";q$;q$;q$;" ";q$;q$;q$;" ";q$;q$;q$;" ";q$;q$;q$; 5Y1;1,6;r$;r$;r$;" ";r$;r$;r$;" ";r$;r$;r$;" ";r$;r$;r$;" ";r$;r$;r$; 6C2,6;q$;" ";q$;" ";q$;" ";q$;" ";q$;" ";q$;" ";q$ 7L2,6;1;r$;" ";r$;" ";r$;" ";r$;" ";r$;" ";r$;" ";r$ 8L3,6;q$;q$;q$;" ";q$;q$;q$;" ";q$;q$;q$;" ";q$;" ";q$;q$;q$; 9T1;3,6;r$;r$;r$;" ";r$;r$;r$;" ";r$;r$;r$;" ";r$;" ";r$;r$;r$ :A4,6;" ";q$;" ";q$;" ";q$;" ";q$;" ";q$;" ";q$ ;J4,6;1;" ";r$;" ";r$;" ";r$;" ";r$;" ";r$;" ";r$ 0:0 ?P7,6;z$;z$;z$;" ";z$;z$;z$;" ";z$;z$;z$;" ";z$;" ";z$;" ";z$;z$;z$ @Y1;7,6;x$;x$;x$;" ";x$;x$;x$;" ";x$;x$;x$;" ";x$;" ";x$;" ";x$;x$;x$ AH8,6;z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$ BQ1;8,6;x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$ CH9 ,6;z$;z$;" ";z$;" ";z$;" ";z$;" ";z$;z$;" ";z$;z$;z$ DQ1;9 ,6;x$;x$;" ";x$;" ";x$;" ";x$;" ";x$;x$;" ";x$;x$;x$ EK10 ,6;z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$;" ";z$ FT1;10 ,6;x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$;" ";x$ GR11 ,6;z$;" ";z$;" ";z$;z$;z$;" ";z$;z$;z$;" ";z$;" ";z$;" ";z$;z$;z$ H[1;11 ,6;x$;" ";x$;" ";x$;x$;x$;" ";x$;x$;x$;" ";x$;" ";x$;" ";x$;x$;x$ I_o=05:o,1;6;1;1;" ":o J`o=611 :o,1;3;0;1;" ":o K 5 LD16,4;"ZRIGHT";16,13 ;1;6;"-" O&18,14;5;"Miguel" Pf16,21;"M-FIRE";16,22;1;">";16,22;1;6;"<" Q#18,9 ;5;"Nuno" R#18,4;5;"2007" S7#1;1,8;7;"ANY KEY TO START" T?0;14,0;"================================" U$13 ,28;1;"XXXX" V$13 ,28;1;"####" Wl13 ,28;1;2;1;" ";6;1;" ";4;1;" ";5;" " XH7;1;14,0;"--------------------------------" Y?0;20,0;"--------------------------------" ZH7;1;20,0;"================================" [i=524 \I0,i;3;" ";z$;0,i;3;1;1;" ";x$ ]""14 ^]12 ,29-i;3;z$;" ";12 ,29-i;3;1;1;x$;" " _i `i=112 aS12 -i,5;0;z$;12 -i,5;3;1;1;x$ b13 -i,5;" " c""14 dCi,25;0;z$;i,25;3;1;1;x$ ei-1,25;" " fi g 91[ h0:14 iThanks Isabel j n,c;" " k27;6,1;"====================" l;7;1;6,1;"--------------------" m37;14,1;"====================" n<7;1;14,1;"--------------------" o 5;8,2;"ENERGY LOW. FIND";10 ,2;"6 ENERGY CELLS";10 ,17;0;"O";10 ,17;1;0;"#";10 ,17;1;5;"X";12 ,2;5;"TO RECHARGE LASER":k=0100d:k p:#1;1,7;"ANY KEY TO CONTINUE":0 qr8,2;" ";10 ,2;" ";12 ,2;" " r*14,1;" " s)6,1;" " t1#1;1,7;" " u 147 v8st=(*13 ):sp=st+4:st=0118v wn=119 xn,st;3;z$;z$;z$;z$;"O";z$;z$;z$;z$;n,st;1;3;"*";"*";"*";"*";5;"#";3;"*";"*";"*";"*";n,st+4;1;5;"X";n-1,st;0;3;" " yB="z"b>1a,b;" ":b=b-1:a,b;y$;a,b;1;w$ zC="x"b<20a,b;" ":b=b+1:a,b;y$;a,b;1;w$ {bn=asp=ba,b;y$;a,b;1;w$:.01z# >,502:e=e+1:p=p+10 :sr=sr+1 |}n=ast=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 }n=ast+1=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 ~n=ast+2=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 n=ast+3=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 n=ast+5=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 n=ast+6=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 n=ast+7=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 n=ast+8=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:141 7;3,24;p /n18a,b;y$;a,b;1;6;w$ [sr=61;1;11 ,24;"";13 ,29;5;"" 6sr=15;1;13 ,24;"" 7sr=25;1;13 ,24;"" 8sr=35;1;13 ,24;"" 9sr=45;1;13 ,24;"" :sr=55;1;13 ,24;"" e=6sr=0:e=12 +(*24):19,st;" ":a,b;y$;a,b;1;6;w$:5;10 ,4;"ENERGY RESTORED";8,1;7;"====================";8,1;1;"--------------------";12 ,1;"====================";12 ,1;7;1;"--------------------":k=070F:k:8,1;" ";13 ,24;" ";12 ,1;" ";10 ,4;" ":24 "l=17,25;" " "l=27,26;" " l=0a,b;w$;a,b;1;y$:u=02:s=07:a,b;s;1;" ":s:u:a,b;" ";7,24;" ";19,st;" ";9 ,6;"GAME OVER";7,1;7;"====================";7,1;1;"--------------------";11 ,1;"====================";11 ,1;1;"--------------------":k=0100d:k:#1;1,7;"ANY KEY TO CONTINUE":0::10 n:19,st;" " #a,b;y$;a,b;1;6;w$ 118v j=02 8lh=(*20):nh=nh+1:lh=0148 n=119 vn,lh;0;k$;n,lh;1;0;u$;n,lh;1;2;1;i$;n-1,lh;0;3;" " B="z"b>1a,b;" ":b=b-1:a,b;y$;a,b;1;w$ C="x"b<20a,b;" ":b=b+1:a,b;y$;a,b;1;w$ n=alh=bl=l-1:a,b;w$;a,b;1;y$:.003xD,10 :s=07:a,b;s;1;" ":s:a,b;w$;a,b;1;6;y$ "l=17,25;" " "l=27,26;" " l=0a,b;w$;a,b;1;y$:u=02:s=07:a,b;s;1;" ":s:u:a,b;" ";7,24;" ";19,lh;" ";9 ,6;"GAME OVER";7,1;7;"====================";7,1;1;"--------------------";11 ,1;"====================";11 ,1;1;"--------------------":k=0100d:k:#1;1,7;"ANY KEY TO CONTINUE":0::10 Fn:nh=nh+1:19,lh;" ";a,b;w$;a,b;1;6;y$ j=1k$="8" u$="{":i$="}":j #a,b;y$;a,b;1;6;w$ k$="O":u$="V":i$="#" 118v '"SPACERKS"10 KOUVI#ab clpe QZX^YAW# J `