ZXTape! 0Created with Ramsoft MakeTZXPLANET  **** Black Planet ****  Loader program  By B.G. Cornhill  1983 Phipps Associates *58799:0:0:0: 2#1;2;1,12 ;"LOADING..."  "BP-A" ( "BP-B" #( mastering #2 58799 #<"PLANET"1 #F]18,0;"Program saved."'"Press a key to load remaining portion of the game..." #P%#1;"Press a key...";:0 #Z MBP-A PL R:\ R;;!*=\s#r>n R;;! v THIS PROGRAM IS PROTECTED  1983 PHIPPS ASSOCIATESB<@    @ @@ > ! Y w# <> :O!d j k >>> > < KoP# N#F:v\2v\ <28>!X :( = +!X~w x(# x ~w x+88|8(l88|88D88|8888|8(l~ZBBBo>+ = :fO >:e=2e B:v\:*"!>#>>2>>k͖!X:(,: o: ~A #~A +>2} 2fD:e<(VO2e>+(1>i(TD`( :f< (2f#:f=(2f+TD:=2 !Z:f= T22fEd< *e"_^<    ͎*EL> 2;> > > y>yi(yy :S*Q#r=  :S r= :S+r= :SBr= :S<<( 2SB"Q >2S!OY"QOY>K999y2\888>2\G>xy>>>>>+>+͎> :a0y2a2b>O8> :aҹ8yyOd 08 y>!2(>2)>_2.">2)>`2.">2(>2)>a2.">2)>b2."> 2(>2)>c2."!a:c :_ #:` +>dw#>dw":_(:`#( #~(<2c:c(=:_:aO02c͎>2\> ͪ:_=2_= Y:`=2` ́:`<2`:_<2_,͎͊>!3#2>! :`08 yv\},͊>2c:=2!\>~#~>>:c<2c>2>G2!W:# :w x :2=?@@ !͵Rd!X~w x(#!X~w x(#(! ͵2R            %7                     %7                         %    7                                     %    7    [[O:1(< <(SO< :1<21:!Y w!͵*6\!|"6\ n nnn2n6nL0n"6\< d x   ! "# $% &' () *++, -++. /0 1234 5++6 7++8 9:;< =>?@ AB++CD E++++F G++++H IJ++KLMNOP QRSTUV W++++X Y++++Z [++++\ ]++++^_r`abcdefg h++++i j++++++k l++++++m n++++++o p++++++qr++++stuvw??????????????????????>͎>L>h> u>Y!~ >W=w## ~ >X=w##  !~ =w##~ =w##  d!N#F#ͦ ^#;D=^~0:*u^O5N0EM4oZ6< ՝T+PQf QJKca97B@:3ƕH=w`"LFl.F/ u} (Mt_f5H{WpFJhuAJyFN=k?E8X-64vƍ4GdWңO@_kA5b]kI0WnߤUT*Yei9J. _":C<_/9)v]N4M/DL3pY5; ֞S*OPg PIJd`86A?92ǖG<xa!KEk-E.v~'Ls`e4GzXoEIiv@IxEMD7W,53wǎ3FcXӤN?^j@4a^jH/VoTS)Xfj8I-d!N#F#""!N#Fͦ 7BF+N>8ͦp+q##N#Fͦ 7BF+N>8ͦp+q##N#Fͦ 7BF+N(ͦp+q##N#Fͦ 7BF+N(ͦp+q##ù!*">2:2ͦ} > o>g>2222>22$"":< >22ͦ*">2:2ͦ} > o>g>2222>22%"":< >22ͦ*">2:2ͦ} > o>g>22=o8 >22>22$"":< >22ͦHomegameӟ˷ӿ!>ӟ>ӿ>ӿ>ӿ>ӟ ߢ>ӟ!26#6:ؐ2ɯ:Ѐ2ɯ:ؐ2ɯ:Ѐ2yOC|T͎># >>2> <   *">2:2ͦ} > o>g>22=o8 >22>22%"":< >22ͦ 8 MWW\GWq !v><<<~~<><<$$ R"A04.<~<8<~> @@ xx |W}/~|< {><x |<=|x@]<< ?`߀ w>[~|x;~><`@vo~m7 <}x`-p@?`+z߿<{x 7~ ~xx{x JXx}| x>x{xx +  J^@_ 7m~uH@ >w<o| r+z;Pxxnup@/v/?n絫`ր;`JX`onVoi?o~7w@ so _w@ J^l7][9=h~~+}~ x -}-z`|>?@|Tp>? ?|f￿׽|UY ^ý@V^<o Nf�~xU [@x@_ 5#kk# <@'''ֶ\\\\UZobssח\&f&x>Ke X!!@@P!!8   K SR P] **** Black Planet **** By B.G. Cornhill  1983 Phipps Associates ;x()=8*uc+3:y()=(21-ul)*8+3 0:7:0:  9700% :0:0:5: sr:60500T 65215,5:65216,10 :65217,2:65218,24:65219,11 :65220,15:65221,14:65222,19 65223,145:65224,145:65225,144:65226,144:65227,1:65228,3:65229,5:65230,6 battle=0 "61155=08150 9:PIRATE=(<.1}L+p$*.07}\():61156,PIRATE &:dir=(*4):(7400+dir) d80P,0:22,26:17,14:8,3:8,-3:17,-14:22,-26 i92\,0:16,20:11 ,8:8,3:8,-3:11 ,-8:16,-20 n%127,0:0,43+ o%111o,0:7,40( p%91[,0:12 ,25 q&143,0:-7,40( r'163,0:-12 ,25 t 8140 u64590N v64400 x 8100 }60717- ~60685 60653 dp$1n=p$:nn=(15-n/2):s=1n:#1;1,nn+s;(p$(s));"":s 120,26;61155;" %":244  60500T sr:60500T !1:#2:62656 S612331=3061157:61155,(61155)-10 :6 61208 srb:button8000@  ="p"7500L battle200 1:7 64436 61156>0battlebattle=1:#1;0,0;1;1;2;" " #battleinc=2555000 ,<battle60830:60561:0:60653 ^<:PIRATE=(<.002xn+p$*.002xn):61156,PIRATE inc=60736@ %0:60685 :60717- 61010R:244 þ61025a5100 6ink=61025a/30:0:ink:col=1 62752 O159,15:191,0:159,7:191,255 !in=ink+64@:62727,in j#1;0,0;1;" COORDS 1 2 3 4 5 6 7 ";" OR ~l~ to land " *62716,(21-col):62710  5 dcol=col+1:col>8col=1:in=(inkin>ink)+((ink+64@)in=ink):62727,in (i$=:i$<"0"i$>"7"i$"l"5006 i$"l"5015 5050:85004! >60990>-256*(60990>>127)<1end 3p$7"Enter new planet number (1-7):";i$  0 p$=76000p i$<"0"i$>"7"5013 $61025a=30*i$6 461025a,i$*30:61026b,i$*30 60811:60717- inc=0:6 n=1̱p$:p$(n)=ink9500%:1:7::10 ,0;1;"YOU HAVE BEEN HERE BEFORE !":9600%: N 5100+(INK*100d)   Docking Zdriftx=:df=(300,*((61155)/100d)):drifty=:dx=16:dy=21 *0:0:0::cd=10 ?#1;1,0;"COUNTDOWN TO DOCKING SEQUENCE ";cd gr=872H8:cd=cd-1:#1;1,30;cd;" ":131,83S,r:r b60499S,2:60497Q,79O:60498R,89Y:11 ,16;3;"" D0,0;2;1;"FUEL";1,0;"UNITS" [0,25;4;"CONTACT";1,26;"SPEED";19,26;"DRIFT" =#1;1,0;"l to lock : arrow keys position" 'dy,dx;1;4;4;" " dy,dx;1;8;" " 60424 3,0;4;0;df;" ";3,27;2;0;1;(drifty*100d);" ";20,26;(driftx*100d);" " 'dy,dx;1;4;4;" " dy,dx;1;8;" " !11 ,16;3;"" dx=dx+driftx:dy=dy+drifty:dx=dx+(31dx<0)-(31dx>31):dy=dy+(21dy<0)-(21dy>21) .05|L,0  60420  /="5"driftx=driftx-.01z# =:df=df-1  /="8"driftx=driftx+.01z# =:df=df-1  /="6"drifty=drifty+.01z# =:df=df-1 /="7"drifty=drifty-.01z# =:df=df-1 f="l"ƺ(drifty*100d)5ƺ(drifty*100d)-5dx>15dx16.43335160( ="l"((drifty*100d)>5ź(drifty*100d)<-5)2::61157:"YOU HAVE CRASHED!"'''''"Press ENTER for another game":q$:2 ="l"(dx15dx16.5)2::61157:"YOU HAVE CRASHED!"'''''"Press ENTER for another game":q$:2 df064400:4:0:10 ,0;"YOU ARE ADRIFT IN DEEP SPACE":"Press ENTER for another game";q$:2  5110 (M5:0:10 ,0;1;"#### SUCCESSFUL DOCKING ####" )O"ENTER NEW COORDS (17): ";q$:q$<"1"q$>"7".5,-20:5161) -'61025a=30*q$5160( /461025a,q$*30:61026b,q$*30 160811:60717- 261155,100d 3inc=0:6 PC0:0::#1;1,0;2;"Wait..."; Q0,0;2;"CREW:";60990>:n=05:5;n*2+5,0;n+1;"=":n:236066\,229:236077\,231:n=05:6;n*2+5,3;(32 +n):n:236066\,0:236077\,60< R 5203S SH131,155,107k,131,163,131,75K,107k,131,107k,195,107k,513,83S,107k,83S,163,83S,227,83S,75K,513,131,513,195,513,107k,27,163,27,131,11 ,.01z# =,.01z# = T 3 Ux,y:x=.01z# =5208X V x,y,8 W 5205U X 5211[ Y"w,x,y,z:w=.01z# =5214^ Zw,x:y,z:5209Y [112p,137,13 ,12 ,116t,130,39',0,157,136,-18,14,170,127,19,-15,159,125},-19,-13 ,125},112p,-12 ,11 ,100d,125},-17,-13 ,85U,108l,37%,0,141,108l,45-,0,202,102f,18,-15 \203,546,22,20,219,83S,-46.,0,170,88X,20,14,157,88X,-19,12 ,128,100d,-16,-11 ,115s,84T,39',0,100d,84T,-40(,0,101e,87W,-22,12 ,69E,101e,-14,-10 ,546,76L,16,-18,78N,58:,22,19,83S,524,39',0,127,59;,-16,16 ]137,579,22,20,140,524,46.,0,188,58:,-19,19,191,44,,-18,-14,156,32 ,-16,14,155,26,-40(,0,100d,30,-18,16,114r,34",12 ,10 ,113q,21,9 ,-7,139,10 ,19,10 ,.01z# =,1,1,1 ^ 5215_ _0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,16,0,0,0,0,5,0,0,0,13 ,1,20,0,0,0,8,0,0,9 ,1,16,1,24,0,0,11 ,0,6,1,13 ,1,20,1,28,0,15,0,0,9 ,1,16,1,24,0,0,18,0,0,0,13 ,1,20,0,0,0,20,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0 `a(9 ,10 ) a:n=19 :o=110 :a:a(n,o)=a:o:n b 2,16;6;"" c=cl=2:al=8:ac=6:cmc=6:pl=0 d9lv=0:a(al,1),a(al,ac);4;164 e"Direction (1 to 6):";d$ f,a(al,1),a(al,ac);0;32 g4d$="5"a(al,ac-1)ac=ac-2:5230n h4d$="6"a(al,ac+1)ac=ac+2:5230n iKd$="4"a(al-1,ac+1)ac=ac+1:al=al-1:5230n jKd$="3"a(al-1,ac-1)ac=ac-1:al=al-1:5230n kKd$="2"a(al+1,ac+1)ac=ac+1:al=al+1:5230n lKd$="1"a(al+1,ac-1)ac=ac-1:al=al+1:5230n m .5,-20:5220d n-a(al,1),a(al,ac);4;164 o.:h$="lrlrlrlrlrlr":h=(*12 )+1 p#a(al,1)=2pl=1 qpla(al,1)=20p$=p$+ink::10 ,0;"YOU HAVE BEEN SUCCESSFUL":9600%:5:65000,65000+1: rWclalh$(h)="l"a(cl-1,cmc-1)cl=cl-1:cmc=cmc-1:5240x uWcl>alh$(h)="r"a(cl-1,cmc+1)cl=cl-1:cmc=cmc+1:5240x v:h$(h)="r"a(cl,cmc+1)cmc=cmc+2:5240x w.h$(h)="l"a(cl,cmc-1)cmc=cmc-2 xR(a(cl,1),a(cl,cmc))=460990>,60990>-1:lv=1 y\n=70-1:a(cl,1),a(cl,cmc);n;1;150:.5,n:n z'a(cl,1),a(cl,cmc);6;" " {Wlv#1;1,0;"YOU HAVE BEEN VAPOURISED":502: 9000(#:no |00,0;2;"CREW:";60990> }þ60990>end 5220d-(lv*2) 5:5:7: /o$="":n=13:o$=o$+o$:n:o$ 1,1;1;1;"";5;"";9 ;"";12 ;"";15;"";18;"";21;"";24;"";28;"" o4,15;1;1;"";5,15;"";5,17;"";7,15;"" n=0162:20,n;1;1;"":n:n=19312:20,n;1;1;"":n U:n=114:(*11 )+8,(*32 );1;1;"":n ?60419,0:60418,0:60417,1 #1;1,10 ;"CREW:";60990>;" ":60406,21:60412,21:60407,0:60413,0:60261e,1:60262f,0 G21,0;3;164:5,16;6;"" :h=60042 Rh=2815 60244T:60418,0:60419,0:5308 9þ6041860261e,1:60262f,0 >60406=21þ60407ƾ604195320 þ604175322 r60255_=21þ60256`60418,0:60244T:60261e,1:60262f,0  5310  9500% ɕ:10 ,0;"Well done! You have out-witted"'"the Ballons and can now proceed!":9600%:65000,65000+2:p$=p$+ink: 660990>,60990>-1:þ60990>end \#1;1,0;"YOU HAVE BEEN SQUASHED!":30:9000(#:yes5307  0:0:2:: Dl=20:c=0:l,c;0;6;" ";l+1,c;" " $0,27;6;" " $1,27;6;" " $2,27;6;" " $3,27;6;" " h$="rrrrruuurruu" "d=(*12 )+1 #7#1;1,0;"SCANNING FOR SAFE PASSAGE" $Ih$(d)="r"c=c+(1c<30):l,c;6;" ";l+1,c;" " %Hh$(d)="u"l=l-(1l>0):l,c;6;" ";l,c+1;" " '"c>26l<45422. )=c=30l=l-1:l,c;6;" ";l,c+1;" " *<l=0c=c+1:l,c;6;" ";l+1,c;" " , 5410" .s1,29;6;"":item=0:#1;1,0;"CREW:";60990>;" " 05ul=21:uc=0:ul,uc;6;164 6l=*21:c=*31 7.1}L,-40( 8!(l,c)6l,c;150 :i$=:i$""5440@ ;l=*21:c=*31 < (l,c)6l,c;32 > 54306 @ul,uc;6;" " A0uc=uc+(i$="8"uc<31)-(i$="5"uc>0) B0ul=ul+(i$="6"ul<21)-(i$="7"ul>0) Ci$="l"59826:60990>,60990>-1:#1;1,0;"CREW:";60990>;" ":þ60990>end D_(ul,uc)=21,-15:60990>,60990>-1:ul,uc;" ":5452L Eul,uc;6;164 F&ul=1uc=29item=1 H)itemul20uc15475c J 5436< Lþ60990>end P`#1;1,0;"YOU HAVE BEEN BOILED ALIVE!":502:9000(#:yes5422. Q c""5475c dZ6::10 ,11 ;"WELL DONE!":65000,65000+4:9600% ep$=p$+ink: |&6:6:6:1: }3,20;1;1;157;5,20;158;3,22;159;5,22;160;19,0;159;21,0;160 ~ 4,21;2;"" 4#1;1,0;"CREW:";60990>;" " Bgot it=0:ml=8:mc=27:hl=20:hc=0 +panic=1:stun=0:bp=-20 H236066\,45-:236077\,233:hl,hc;0;33! ml,mc;0;34"  .1}L,bp  i=:bp=-10 :5520 stun5540 .stun=stun-(1stun>0):5509 $l=hl:c=hc:i=4805528 Dl=l+(1i=546l<21)-(1i=557l>0) mc=c+(1i=568c<31)-(1i=535c>0):l=4c=21l,c;6;" " I(l,c)=34"236066\,0:236077\,60<:5550 (l,c)118v5514 hl,hc;6;" "  hl=l:hc=c hl,hc;0;33! ui=480ƽ(hl-ml)6ƽ(hc-mc)6stun=5:.1}L,30:.15~,10 :.2~L,0 7hl=4hc=21panic=2:got it=1 Vhl=20hc=0got it236066\,0:236077\,60<:5570  5514 &yl=(hl-ml)*panic:xc=(hc-mc)*panic }(ml+yl,mc+xc)=33!ml,mc;" ";ml+yl,mc+xc;0;34":236066\,0:236077\,60<:5550 &(ml+yl,mc+xc)118v5509 )ml,mc;6;" ":ml=ml+yl:mc=mc+xc  5508 ""5550 Y0:0::10 ,0;"Unfortunately you have been devoured" 660990>,60990>-1:þ60990>end 9000(#:yes5500|   9500% ]0:0::"WHOOPEEEEE you have done it !":65000,65000+8 9600%:p$=p$+ink: 1:0:4: G#1;0,0;2;" " G#1;1,0;2;" "  5699C 1,0;")))))))!"'"))))))"+34"'")))))"+34"'"))))"+34"'")))"+34"'"))"+34"'")"+34" '16,31;1;34" 417,30;1;34";0;")" 518,29;1;34";0;"))" 19,29;")))" 20,30;"))" 21,29;")))" r5698B:20,29;6;"":#1;1,0;2;"CREW:";60990>:5699C ^bc=10 :hl=0:hc=6:c=35#:b$=32 +37%+32 :j=0 hl,hc;5;c :5626:5631  d=1 bc+d>26d=-1 bc+d<1d=1 bc=bc+d:.1}L,-40( 21,bc;5;b$: jƦ="6"j=j+1 45633+(1j=1)+(6j=2) 5627:5631 Phl,hc;" ":hc=hc+(1hc<8):hl=hl+(1hc=8hl<22) "c=35#+(1c-35#) .(hl,hc)=23hl=hl-1:5664  6(hl,hc)=37%j=2:b$(2)=38&  hl,hc;5;c:5633 /hl=21:hc=bc+1:"8"5633 b$(2)=37%:hl,hc;5;37%;hl-1,hc;5;35#;hl-1,hc;" ";hl-1,hc+1;5;36$:(hl-1,hc+2)=6j=3  /hl-1,hc+1;" ";5;35#  j=35644   Whl-1,hc+2;" ";hl,hc+2;5;36$;8;" ":5664   J"5"5627:hl-1,hc+2;5;35#:5644   j=4:hl-1,hc+2;" ";hl-1,hc+1;5;36$;hl-1,hc+1;" ";hl-1,hc;5;35# Y(hl,hc)37%hl-1,hc;" ";hl,hc;5;36$;hl,hc;" ":5664  Ehl-1,hc;" ";hl,hc;5;38&:b$(2)=38& "7"5627:5648 hc=bc+1 %hl,hc;5;39':502 *hl,hc;5;37%:hl=hl-1 3hl,hc;5;40(:hl=05655 hl=hl-1:(hl,hc)32 hl+1,hc;" ":5698B:#1;1,0;"You have smashed into the cliff!":502::#1;1,0;"AND":30:5665!  hl+1,hc;" ":5652 +hl,hc;" ";0,hc;5;40( 80,hc;" ";0,hc-1;5;40( @0,hc-1;" ";0,hc-2;5;40( hc>9 5660 5698B:9500%:10 ,0;1;6;"YOU HAVE SUCCEEDED WELL DONE":P$=P$+INK:9600%:65000,65000+16: +c=35#:B=502:0,bc;" " .hc=hc-2:l=020:L,hc;" " F.1}L,b:l+1,hc;5;(35#+(1c-35#)) b=b-2:l:hl=l  V.5,-30:60990>,60990>-1:hl,hc;" ":21,bc;" " ! 5698B:þ60990>end "\#1;1,0;"YOU HAVE BEEN DISSOLVED":502:9000(#:yes5600 #: B-236066\,0:236077\,60<: C0236066\,221:236077\,232: D5:5:0: E F>0,0;4;" " G?21,0;4;" " HG#1;0,0;4;" " IG#1;1,0;4;" " Jvt=110 :l=120:c=(*32 ):l,c;1;" ":c=(*32 ):l,c;1;" ":l:t KD#1;1,0;"CREW:";60990>:þ60990>end L_got it=0:21,20;4;"";0,2;8;7;164 Mul=0:uc=2 N59774~:l=59825 Pl=ulul,uc;1;0;" ":uc=0+(uc+1uc<31):59798:ul,uc;8;7;164:5720X S59798 X=""5710N bul,uc;8;32 c>ul=ul+(1Ʀ="6"ul<21)-(1Ʀ="7"ul>0) d>uc=uc+(1Ʀ="8"uc<31)-(1Ʀ="5"uc>0) fU(ul,uc)=40(60990>,60990>-1:.2~L,-30:5750v h%ul,uc;8;7;164 j)ul=21uc=20got it=1 l got it ul=05775 n 5710N vc#1;1,0;"YOU HAVE BEEN FROZEN TO DEATH!":502:9000(#:yes5707K {:  9500% :n=060<10 .2~L,n:n  20 n=060<15 .15~,n:n n=60<0-12 .2~L,n:n "HOW ABOUT THAT THEN?" /p$=p$+ink:65000,65000+32 9600%: 0:0:6: ^ny=151:y=111o80P-1:79O,y:-79O,ny-y:ny=ny-4.75:y ^ny=151:y=111o80P-1:176,y:79O,ny-y:ny=ny-4.75:y {x=79O:y=79O:z=96`:n=79O0-1:x,y:z,0:x=x-1:y=y-1:z=z+2:n *mx1=83S:mx2=171:my=86V (:f$="mmmrmmmmmmmlmmmmmmmmmmlmmmrmmmm" #1;1,0;"Press any key...":0:h=0:#1;1,10 ;5;"CREW:";60990>;" ":tone=0:got it=0 ul=21:uc=15 ul,uc;1;"" !11 ,15;4;"" ="z"Ŧ="x"i$=:ul,uc;1;"":ul=ul+(1i$="x"ul<21)-(1i$="z"ul>11 ):ul,uc;1;"":ul=11 ul,uc;"":got it=1 w$=f$((*31)+1) w$="l"w$="r"5898  .01z# =,tone )w$="l"11 ,10 ;3;"" )w$="r"11 ,21;3;"" _="n"23677}\,x():23678~\,y():1;mx1-x(),my-y():.01z# =,20:.01z# =,0:23677}\,x():23678~\,y():1;mx1-x(),my-y():w$="l"h=1:11 ,10 ;7;156;8;155;8;154;8;153;8;152;8;151;8;150 _="m"23677}\,x():23678~\,y():1;mx2-x(),my-y():.01z# =,20:.01z# =,0:23677}\,x():23678~\,y():1;mx2-x(),my-y():w$="r"h=1:11 ,21;7;156;8;155;8;154;8;153;8;152;8;151;8;150 Ԃhw$="l"23677}\,83S:23678~\,86V:1;x()-mx1,y()-my:.01z# =,0:.01z# =,30:23677}\,83S:23678~\,86V:1;x()-mx1,y()-my:60990>,60990>-1:ul,uc;7;156;8;155;8;154;8;153;8;152;8;151;8;150:5890 քhw$="r"23677}\,171:23678~\,86V:1;x()-mx2,y()-my:.01z# =,0:.01z# =,30:23677}\,171:23678~\,86V:1;x()-mx2,y()-my:60990>,60990>-1:ul,uc;7;156;8;155;8;154;8;153;8;152;8;151;8;150:5890 /11 ,10 ;" ";11 ,21;" " 5897 :w$="m":h=0  got itul=215880  5822  9500% :8;9 ;10 ,12 ;"Well Done!"''"Remember to reward that brave crewman when this task is over!":p$=p$+ink:65000,65000+64@ 9600%: þ60990>end 5897 :ul,uc;6;143:#1;1,0;"YOU HAVE BEEN SHOT!":502:9000(#:11 ,10 ;" ";11 ,21;" ":w$="m":no  5806  22542X,0:22543X,0:22544X,0:22574.X,0:22575/X,0:225760X,0:tone=0:  22542X,16:22543X,16:22544X,16:22574.X,16:22575/X,16:225760X,16:*502+1:tone=30: p<9600%:0:0:7::59759o,p$ u i=7 zn=110 ,254,90Z:254,100d:n %5,8;"YOU HAVE THE KEY" e12 ,15;i;m$(1)'15;m$(2)'15;m$(3)'15;m$(4) i=i-1:i=020,0;2;"PRESS a key to DESTROY THE BLACK PLANET":0:6045  6010z 7:0: g.1}L,0:10 :.1}L,0:10 :.1}L,0:10 :1,-10 .64400:0:597004:4 3n=160<:59670:n:61157 an=70-1:n:n::x=110 :254,16+n:254,n:x:n 5::7,2;1;"THE BLACK PLANET HAS BEEN";8,10 ;"DESTROYED"''10 ,8;"YOU ARE A HERO" X'''"IF YOU HAVE ACHIEVED THE RESULT PROPERLY YOU WILL GET THE SECRETCODE WORD CORRECT" #"Press ENTER to get the word";q$ :59710> (6,4;"THE CODE WORD IS :-" L20,0;"Don't forget to claim your reward identification!"  6230V 8*n=17:n:n::.8L,n:n B0:0:5: L" YOU HAVE LOST ALL YOUR CREW"''''" THE PIRATES WILL ROAM FREE"''" CREATING HAVOC IN THE "''" SPACE LANES"''''" WHY NOT HAVE ANOTHER GO?" V9000(#:yes2  0 D62654,91[:62655,243:612331,0: E62654,248:62655,241:612331,0: E62654,149:62655,240:612331,0: D62654,502:62655,239:612331,0: L159,7:191,31:159,6:191,15:159,8:191,16:159,12 :191,2:159,13 :191,9 Q0:n=1100d V64436:n [861156,0:61027c,61027c-502 ` 6 >O159,15:191,0:159,7:191,255 ? @laser B"atr=(23728\,23729\) HI2:1;116t,38&:1;x1-116t,y1-38& JI2:1;138,38&:1;x1-138,y1-38& Tssr:8060| c&r=15:62728:r: |I5:1;138,38&:1;x1-138,y1-38& I5:1;116t,38&:1;x1-116t,y1-38& -atr=20:61078:6 tatr=40:z=61027c:61028d:PIRATE,61156:61027c,z:phit=phit+1:6  "65209,(*7+1) P65206,5:65207,10 :65214,145:65190 "65209,(*7+1) P65206,2:65207,24:65214,145:65190 "65209,(*7+1) Q65206,11 :65207,15:65214,144:65190 "65209,(*7+1) Q65206,14:65207,19:65214,144:65190  G#1;0,0;5;"" 6#1;5;""  ship status &:"SHIELD STATUS ";61155;" %" 9000(#:no7998>  2 !41:1:7: !6(0,6;"" !7&1,7;" " !8&2,7;" " !9%3,8;" " !:&4,7;" " !;(5,6;"" !<57,0;"" !=480,167:0,-31:199,167:0,-31:0,111o:0,-103g:255,111o:0,-103g:21,0;"" !>s8,1;"FUEL";8,10 ;"=";8,13 ;(300,*((61155)/100d));" Tonnes" !?^10 ,1;"SHIELD";10 ,10 ;"=";10 ,13 ;61155;" Percent" !@Q12 ,1;"CREW";12 ,10 ;"=";12 ,13 ;60990> !A414,1;"PIRATE SHIPS DESTROYED = ";phit !B 16,1;"PLANETS :-" !D118,1;"COMPLETED ";:8550f!:r$ !F"20,1;"TO VISIT ";t$ !a !fr$="":t$="" !kn=17 !m3o=1̱p$:p$(o)=nr$=r$+" "+n:8560p! !no !ot$=t$+" "+n !pn !z #(6"":#1;1,0;"Another try (y/n)? "; #2U9100#:q$=¯i$:yes=(q$="Y"q$="y"):no=(q$="N"q$="n"):(yesno)9000(# #< #i$="" #*#1;1;"L";0;8; #""9115# #q$=:q$=""9120# #_q$=12 i$i$=i$(̱i$-1):#1;8;" ";8;8;:9110# #q$=13 "": #-i$>8.4L,-20:9110# #(q$<32 ůq$>1279110# #$i$=i$+q$:#1;q$;:9110# %""9500% %& %-#0;1,0;"Press a key..."; %=""9610% % % initialise %%23681\,0:x=58800 %9970&:inc=0:59759o,0:60990>,59675-63815G:x1=124|:y1=84T:65166,x1:65167,y1:65186,1 %23658j\,0:phit=0:end=62008:61155,100d:61156,0:ssr=8035c:sr=9988':srb=9994 ':65000,0 &w#1;0,10 ;9 ;8;"BLACK PLANET";1,6;1;"Press a key to start";0 &H=""9800H& &R "^" &\&23681\,1:x1=58800 &f: &k61023_,0:61024`,0:61025a,0:61026b,0:61027c,128 &k61023_,0:61024`,0:61025a,0:61026b,0:61027c,128 &p$="":m$(4,2) &Hm$(4)="":m$(3)="":m$(2)="":m$(1)=" " & &1n=60979360992@:n,*(4+p$):n & '63805= '"x1=65166:y1=65167 '  ' ,button=65168:button=65186: '{23681\,0:x=58800:0:"BP-B"16384@,23641Y\+256*23642Z\-16383?:5 xA@&nThin8sc'r 'P