Stellar RuRRVTYSTELLAR RUN ORIGINAL VERSION @ H WALWYN SPECTRUM VERSION @ D PARKER [::10 ,10 ;1;"STELLAR RUN":8000@:black:7000X:6000p d FOR UDG ni=(y+1,x):i x<236066\,23675{\:236077\,23676|\-1 i=(y+1,x)+112p +236066\,0:236077\,60<   MAIN LOOP 23692\,255 "e=e+ee*:1000+d*100d LD=1 Vod$=a$(̲(e)*11 +13 )+20+0+b$(20)+a$:e>15.1}L,e/3:d=2 ` 2000 D=2 od$=a$(̲(e)*11 +13 )+20+0+b$(16)+a$:e>30.1}L,e/3:d=3  2000 D=3 gd$=a$(̲(e)+(e*.9ffff)*4.5+12 )+20+0+b$(16)+a$:<.08}# =d$=a$ (+e>45-.1}L,e/3:d=4 2 2000 xD=4 An$=20+0+b$:<.08}# =n$=20+0+i$ Cd$=a$(((e)+(e*1.1 ))*4.5+12 )+n$(16)+a$ +e>60<.1}L,e/3:d=5  2000 D=5 2>.6d$=20+0+b$:1530 :d$=20+0+c$((*40(+1)40() +e>75K.1}L,e/3:d=6  2000 @D=6 Jod$=a$(̲(e)*12 +14)+20+0+b$(14)+a$:e>90Z.1}L,e/3:d=7 T 2000 D=7 d$=a$(((e)+(e*5.1#333))*4.5+12 )+20+0+b$(16)+a$:e>105i.1}L,e/3:d=8  2000 D=8 3>.25~d$=20+0+b$:1830& &d$=i$((*2+1)30) &,e>120x.1}L,e/3:d=9 0 2000 lD=9 v2>.5d$=20+1+b$:1930 d$=a$ e1353000 PRINT d$<32 d$=d$+a$ 21,31;d;9 ;"";d$(32 );0,0;9 ;"MISSILES=";fg;0,13 ;"LEVEL=";d;0,22;"LYEARS=";e 4CHECK IF KEY PRESSED >k=:m<0m=0 H%.02{# =,m*10 :fg=fg+1 Rkm=m-2:2300 \k32 2200 ffg<22300 pf=1:fg=fg-2 zfg<0fg=0  2300  KEY PRESSED #m=m+1:m>3m=3 )k=535x=x-m:x<1x=1 +k=568x=x+m:x>30x=30 +k=546y=y+m:y>14y=14 )k=557y=y-m:y<1y=1 DISPLAYCHECK HIT fg>9 fg=9 $100d:i>1444000 qfy-1,fx;8;9 ;" ";fy-2,fx;8;9 ;" ";y,x;8;9 ;s$:fx=x:fy=y f<11000 $f=223553 . f=2 3 .01z# =,d 8r=x*8+3:s=(21-y)*8:1;red;r,s:1;red;1;0,-502:5:0;red;r,s:0;red;1;0,-502 Bbt=(r-4)/8:v=y+1y+7:(v,t)" "v,t;8;" ":.25~,-10 Lv:f=0:1000 YOU'VE MADE IT red:yellow:blue: :k=0480:.01z# =,k:.01z# =,480-k:k րk=07:.01z# =,k:k+5,3;8-k;k+1;"WELL DONE! YOU'VE MADE IT!":.01z# =,20-k:k 4070  SHIP HIT fy-1,fx;" " Qk=07:.02{# =,-1:y,x;x$(k+1):.02{# =,1:k black:yellow::black )6,11 ;1;"DESTROYED!" &8,7;"You got as far as" +10 ,14;(e*10 )/10 "12 ,10 ;"light years" (14,6;"ANOTHER GAME (y/n)" k$=:k$="y"6000p k$"n"4080  9999' p INITIALISE z$7::a=021::a XY POSITION OF SHIP $x=16:fx=x:y=10 :fy=y MISSILE BANK  fg=9 DISPLAY SHIP :k=0480:.01z# =,k:.01z# =,480-k:k s$=144  y,x;s$  VARIABLES Zf=0:m=0:d=1:e=0:a=0:b=0:c=0:ee=.2~L Yx$=148+32 +149+32 +150+151+152+32 -o$=145:p$=146:q$=147 0a$="":k=145-:a$=a$+145:k :i$="":k=145-:i$=i$+147+32 :k .b$=" " xc$=" "+p$+" "+p$+" "+p$+" "+p$+" "+p$+" " W 1000 XINSTRUCTIONS b:yellow::0,10 ;red;1;"STELLAR RUN" ltblack:1,0;"You are in control of theSTELLAR TRIPPER and havediscovered a new galaxy." vo'"The galaxy is 135 light yearswide and you will have tonavigate your way through theWARP MAZE." X'"Each time you play you will begiven a slightly different maze....so watch out!!!" '"See how far you can get!" *'"No-one has reached the otherside!" +'"The further you go, the harderit is!" 1000: 8,2;"Press 5 to move left";8;"8 to move right";8;"6 to move forward";8;"7 to move back";4;"SPACE to fire laser" ,21,5;"Press any key to start" =""7110 ? @ GRAPHICS JP"a",66B,102f,126~,126~,60<,60<,24,24 TU"b",255,170,251,170,255,170,255,170 ^Q"c",24,36$,102f,153,153,102f,36$,24 hO"d",129,66B,36$,24,24,36$,66B,129 rO"e",66B,102f,126~,126~,60<,60<,90Z,0 |P"f",66B,102f,126~,126~,60<,188,0,73I O"g",66B,102f,126~,126~,60<,0,0,129 L"h",66B,102f,126~,0,161,0,8,0 I"i",128,16,0,4,64@,0,4,0 <a=19 :a$:b=07:c:a$+b,c:b:a wblue=1:red=2:magenta=3:green=4:cyan=5:yellow=6:white=7:black=0 #' '7:0:7: ]