Staster % %%=STASTEROIDS  1983 MJL   WRITTEN FOR C&VG dControl Routine n64999:For m/c x9000(#:Instr 8000@:Skill 7000X:Vars 6000p:Screen 5000:Intro  1000:Start Main Loop a=128 Tod,a-1;" ":c$=(d,a+1):d$=(d,a+2):c$=""d$=""3000 xd,a;b$(r+1):.001wn,d+20:.001wn,40(:od=d:i$=:d=d+(i$="z"d<21)-(i$="1"d>1) fuel=fuel-1:sc=sc+1:r=r:0,10 -sc;sc;0,16;"00"(3-fuel);fuel:fuel2500 a Reached End Of Screen aod,a-1;" ":x=15:.05|L,0:.05|L,1:x:odp21004 'x=128+(*(lev+1)) Pp,29;2;"";6;"":.02{# =,x+5:fuel=fuel+1 gp,29;b$(1,4);2;"":.02{# =,30-x:0,19-fuel;fuel:x 4.sect=sect+1:sect=11 3500 >'7200 :6020:160   Ran Out Of Fuel +0,16;6;1;"000" 8:8:x=od+121:attr,64@+(*8)*8:l=scr:x-1,a;" ";x,a+1;"":.01z# =,502-x:.01z# =,513-x:x:attr,72H:l=scr 23693\,71G:x=15:21,a+1;5;"":.01z# =,20:21,a+1;" ":.02{# =,20:x ]attr,71G:l=scr:x=110 :21,a+1;"":.01z# =,x*5:x 21,a+1;" " .23693\,71G:x=1200:x 4000  Crashed wx=120:d,a+1;6;"":.01z# =,25:d,a+1;1;"":.01z# =,26:x ̃x=2010 -1:attr,80P:l=scr:d,a+1;"":.02{# =,x:attr,104h:l=scr:d,a+1;" ":x ,attr,71G:l=scr:lives=lives-1 6100:lives4000 fuel=150:2110 > New Sector V8,0,," ENTERING NEW SECTOR",,,"PREPARE FOR JUMP TO LIGHT SPEED",,, ,x=060<5:.01z# =,x:x sk<.9ffffsk=sk+.1}L 7010b ޚx=07:attr,x*8+64@+7-x:l=scr:.01z# =,x+20:attr,8*(7-x)+64@+x:l=scr:.01z# =,20-x:x bx=110 :attr,92\:l=scr:2:attr,73I:l=scr:.02{# =,10 :x A8;8;9 ,0,,,,,,:attr,71G:l=scr (fuel=fuel+502:sect=1:  Game Over 87,0,," GAME OVER",,,:502 Sx=02553:254,x:attr,x:.005y# =,x/4:l=scr:x attr,71G:l=scr x=1100d:x /x=124:l=3582 :1:x  /scs(lev)x=1100d:x:4200h i''" CONGRATULATIONS!! YOU HAVE"''" QUALIFIED FOR THE STASTEROIDS"''" HALL OF FAME AT LEVEL 0";lev x=15:y=10 60<5:.01z# =,y:y:x:''" PLEASE ENTER YOUR NAME BELOW"''" (MAXIMUM OF 12 CHARACTERS)" Mz$:z$=""űz$>12 .2~L,-20:.3,-30:4100 s$(lev)=z$:s(lev)=sc h rT6;" H A L L OF F A M E"'5;"________________________________" |Y'6;" LEVEL NAME SCORE"'5;"________________________________"  Ax=19 :3;x;10 ;s$(x);27;s(x):x -5;"________________________________" -''6;" PRESS ENTER FOR ANOTHER GAME" 9i$=:i$="".1}L,-23672x\/5:4270 i$13 4290 0x=10 20:.1}L,x:x:4800 i$="n"130 Pfuel=150:sc=0:sect=1:lives=3:7200 :150  p8,0;" " 65003,0:65006,24:x=07:y=07:attr,x+8*y:l=scr:y:.05|L,y+x:y:x Y0:attr,71G:l=scr:502:x=111 :l=3582 :1:x  0: Mx=2932 :130,109m,x:x:125},104h,30 U6,12 ;"COMPUTER";8,13 ;"& VIDEO";10 ,14;"GAMES" a93],101e:64@,0:13 ,13 :-64@,0:-13 ,-13 >x=17:attr,x:l=scr:4:x:4380  $'"WOULD YOU LIKE THE SAME SECTOR?" !i$=:i$"y"i$"n"4810  Play Intro Tune (?) Ox=010 :.06|u\,x:.06|u\,x+1:.05|L,10 -x:x .2~L,0 x=1100d:x   pSet Up Screen z!23693\,71G:0: 0,0;"SCORE:0000 FUEL:000 SUBSECTOR:00";0,10 -sc;sc;0,19-fuel;fuel;0,32 -sect;sect:1:6;0,0;" ";0,11 ;" ";0,20;" ":0 7x=121:x,0;7;a$(sect,x):x p=(*19)+2:p-1,29;" ";p,29;ٺ(*3)+3;" ";p+1,29;" ";11 ,0;b$(1,4) U"":#0;" SHIPS: ";:x=1lives:#0;ٺ(*3)+4;" ";:x  XSet Up Variables ]9sc=0:lives=3:fuel=150:sect=1 b=a$(10 ,21,32 ):na=sk*90Z:inc=1 lx=110 vy=1na Md=(*21)+1:a=(*32 )+1:a$(x,d,a)" "7040 a$(x,d,a)="" y x=6inc=-inc /na=na+inc*(*(sk+.6)*19+5) na0na=10 2z=10 12 :a$(x,z,5)=" ":z x  #d=11 :a=0:od=d:oa=a * r=0  @Skill Level Selection J!23693\,58::7: TR7,0;" " ^#''" (1 - EASIEST, 9 - HARDEST)" h[attr,568+(*5):l=scr:i$=:i$<"1"i$>"9".01z# =,*20:8040h rsk=i$/10 !23693\,23:0: 6,0;0,," ",,, & lev=i$ " #(Instructions, Usr Chrs  #2!23693\,71G:0: #<23658j\,0:: #Fx="a""g"+7 #P a:x,a #Zx #dx=118 #n a:x+64999,a #xx #ga$=" " ##scr=65000:attr=scr+1 #x=70-1 # attr,x*8+x+64@ ## l=scr:x:.3,-x-20 #x #Vx=1502:*255,0:x=38&21,0;a$(32 ) #5x=39'21,0;a$(33!64@) #-x=40(21,0;a$(65A) #l=3582 :x $Dz=5:n=-20:a=.1}L:p=17:x=1z $( attr,p*8+64@:l=scr:a,n $& attr,71G:l=scr:a,n-5 $"0n=n+.5:x:z=z+3:a=a-.01z# =:p $,a12 ,0;" Copyright 1983 M. J. Levers":n=40(0-1:.01z# =,n:n $6G100d:7:0:23692\,-1:21,0; $@-2;" STASTEROIDS  1983 M.J. LEVERS " $Je'" The idea of this game is to pilot a space craft through a sector of galaxy. This may soundsimple but each sector is divi- ded into ten sub-sectors. Each of these sub-sectors are filled with STASTEROIDS (STationary ASTEROIDS). At the end of each sub-sector is a refuelling stat-ion which you must try to dock with to replenish your fuel. You" $T"start with 150 units of fuel. Ifit runs out or you crash three ships the game ends. Your score is the distance you manage to travel." $Y@" If you reach the end of a sector another is generated." $^'"KEYS: 1 - UP, Z - down" $h6#0;1;" PLEASE PRESS ENTER TO CONTINUE " $rMs$(9 ,12 ):s(9 ):x=19 :s$(x)="ZX Spectrum":x $|,65003,32 :65006,21 $b$(2,7):b$(1)=16+3+""+16+6+"":b$(2)=16+4+""+b$(1,4) $13 9360$ $ %Data For U. D. G. %&M135,223,502,254,502,223,135,0 %0O192,112p,204,255,204,112p,192,0 %:L68D,16,130,40(,128,18,128,36$ %DK29,21,119w,215,119w,21,29,0 %NM36$,90Z,129,130,65A,129,106j,20 %X>0,6,24,98b,24,6,0,a %b20,a,6,24,6,0,a,a %Data For Machine Code %62>,0,17,0,88X,6,24,197,6,32 ,18,19,16,252,193,16,246,201  2#aA` cttl!