Mooniron nn8n0:0:20,0;:600X:f$="":key=1:joy=0:1200:m$(3):son=1:m$(1)="1":m$(2)="2":m$(3)="L":hi=40(:502 t=0:s=166:12 :3:t=11 :12 :s=166:3:t=24:12 :s=166:3:t=-7:20:s=80P:3:t=21:12 :s=166:3:20:s=80P:t=6:3:11  g=1s d:.1}L,d+t ""30 g: 30 `-12 ,0,-12 ,3,7,7-12 ,0,-12 ,3,7 i-24,5,5-12 ,8,12 ,-24,5,5-24,8,12 r-24,-2,-2-24,2,5,5-24,-2,-2-24,2,5 z-24,3,3-24,7,10 ,10 -24,3,3-24,7,10 -24 {-24,-4,-4-24,0,3,3-24,-4,-4-24,0,3-24 r-24,-5,-5-12 ,-1,2,2-12 ,5,5-12 ,-1,2 t-24,-5,-5-12 ,-1,2,2-12 ,-5,-5-12 ,-1,2 -24,0,-24,3,7,7-24,0,-12 ,3,7,7-12 ,7-12 ,0,-24,-12 ,0,-24 m-24,0,-12 ,-12 ,7,7-12 ,0,-12 ,-12 ,7-12 |-24,5,5-24,5-12 ,12 ,12 -24,5,5-24,-12 ,12 -24,-2,-2-24,-2-24,5,5-24,-2,-2-24,-2-24,5 {-24,3,3-24,3-24,10 ,-24,3,3-24,3-24,10 _-24,-4,-12 ,-12 ,3,-12 ,-4,-24,-12 ,3 ]-24,1,-24,-12 ,8,-12 ,1,-24,-12 ,8 _-24,-5,-24,-12 ,2,-12 ,-5,-24,-25,2 ]-12 ,0,-12 ,-12 ,7,-12 ,0,-12 ,-12 ,7 ="1"21004 ="3"joy=0.05|L,35#:joy=1:key=0:11 ,8;6;1;1;"3: KEMPSTON":14,8;4;1;0;"4: KEYBOARD" ="4"key=0.05|L,35#:joy=0:key=1:14,8;6;1;1;"4: KEYBOARD":11 ,8;4;1;0;"3: KEMPSTON" (="2"300, )="0"70F * 30 2513:60< 30,0;1;""'"";20,0;""'"":g=021:g,0;1;"";g,30;"":g 40,0;"";1,0;"";0,30;"";1,30;"";20,0;"";21,0;"";20,30;"";21,30;"": Ikey=114,8;4;1;1;"4: KEYBOARD" ?Ijoy=111 ,8;4;1;1;"3: KEMPSTON" @ 2 d MAINLOOP  eBg=219:g,2;" ":g fl$="GET READY FOR YOUR MISSION":g=1̱l$:3,2+g;1;l$(g):.0009vkC,502:.0009vkC,557:.0009vkC,60<:g gy=17:.07}\(,6:.07}\(,5-24:.07}\(,6-12 :y:y=15:.07}\(,1:.1}L,0-24:.07}\(,-11 :y:y=19 :.07}\(,6:.07}\(,5-24:.07}\(,6-12 :y iKg=021:g,0;" ":g:scr jg=12 kx,y;4;1;b$(g);x-1,y;7;0;h$(g);x,y-1;" ";x,y+1;" ";x-1,y-1;" ";x-1,y+1;" " l$joy=19000(#:113q mI=m$(1)y>1y=y-1:rite=0:.009ztj,557 nJ=m$(2)y<30y=y+1:rite=1:.009ztj,557 o^=m$(3)y+4<31rite=1x,y-1;" ";x,y+1;" ":1050 p]=m$(3)y-4>0rite=0x,y-1;" ";x,y+1;" ":1000 q(x+1,y)=" "200 uball=1y1=y1-1 vy1=5ball=2 wball=2y1=y1+1 xy1=23ball=1 yx1,y1;5;1;"";x1,y1-1;0;" ";x1,y1+1;" ";x1+int,y1;5;1;"";x1+int,y1-1;0;" ";x1+int,y1+1;" ";x1+int*2,y1;5;1;"";x1+int*2,y1-1;0;" ";x1+int*2,y1+1;" " |400:g:106j +tre=(*3):y=(*28)+2  FALLING  Ux,y-1;" ";x,y+1;" ";x-1,y-1;" ";x-1,y+1;" " ʯx=x+1:x-2,y;" ";x,y;b$(g);x-1,y;h$(g):254,0:.008zn,557-x:254,63?-x:254,546+x:254,7:0 (x+1,y)=" "202 !(x+1,y)" "400: , DEFINE KEYS  -Bg=219:g,2;" ":g .l$="DEFINE KEYS":g=1̱l$:3,9 +g;1;l$(g):.0009vkC,502:.0009vkC,557:.0009vkC,60<:g /Rm$(1)="?":5,6;5;1;"KEY FOR LEFT ";7;"?" 0(5,19;1;m$(1) 1Z""5,19;1;1;:m$(1)=:5:10 :3106 2 3040 6]m$(2)="?":10 ,6;6;1;"KEY FOR RIGHT ";7;1;"?" 7)10 ,20;1;m$(2) 8[""10 ,20;1;1;:m$(2)=:5:10 :320@ 9 3117 @\m$(3)="?":15,6;4;1;"KEY FOR JUMP ";7;1;"?" A)15,19;1;m$(3) B[""15,19;1;1;:m$(3)=:5:10 :330J C 321A Jl$="HAPPY WITH THESE KEYS ?":g=1̱l$:18,3+g;1;l$(g):.0009vkC,502:.0009vkC,557:.0009vkC,60<:g KR="Y"g=219:g,2;" ":g:60< LS="N"g=219:g,2;" ":g:300, M%key=1:joy=0:331K   CHECK  (x+1,y)=70Fbulb=0t=07:x+1,y;t;1;"":.007ye`A,t+45-:.008zn,t-4:t:s=140(:254,546:254,0:s:0:bulb=1:score=score+10 :#0;1,8;score (x+1,y)=250bulb=1win=win+1:t=110 :.005y# =,t+20:254,t:.005y# =,t+25:.005y# =,t+30:t:bulb=0:0:win=3500 X(x+1,y)=25bulb=1win=2500:bulb=0:win=0 &(x+1,y)=2491300 =(x+1,y)=69E750:life<0700 +(x,y)=69E750:life<0700:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;;; 5(x,y)=69E750:life<0700   NEW SCREEN  g=121:g,0;1;"";g-1,1;" ":g ]h=13:l$="BONUS":k=1̱l$:5,11 +k;٥*7;ܥ;l$(k):k:h g=17:5,12 ;g;1;"BONUS":.009ztj,25+g:.0009vkC,40(+g:.0009vkC,502+g:g bi=115:score=score+1:#0;1,8;score:.005y# =,45-:i 2bulb=0:win=0:x=18:y=2 score>5score<100dscore>150score<200score>250score<300,score>300,score<400546"  549% "l$="AN EXTRA LIFE:":t=1̱l$:8,8+t;6;1;l$(t):.0009vkC,60<:.0009vkC,557:.0009vkC,502:t:547#:549% #q10 ,14;1;h$(2);11 ,14;b$(1);" ";5;life:.009ztj,502: % 25 & fwd=1scr=scr+100d ' bwd=1scr=scr-100d ('scr=3500 3500 :500 0+t=70-1:t::t:scr: X VARIABLES  YGcv=1:f=1:p=7:rite=0:x=19:y=3 Zx1=5:y1=10 [h$="":b$="" \score=0:life=3 ]scr=3000 :win=0 ^*bulb=0:ball=1:scre=0 _  GAME OVER  g=121:g,0;1;5;"";g-1,0;" ":.0009vkC,35#:g  :513 @1,10 ;1;" GAME OVER ":score>hi1400x 44;1;5,3;"SCORE: ";7;score:10 ,3;5;0;"SCREEN: ";7;1;scre:g=152:4+g,15;1;"";4+g+1,15;"":g:7,21;6;"";8,21;"" f$=""n$="NOBODY" f$""n$=f$ å15,3;7;1;"HIGH: ";3;hi;7;" ,SET BY: ";3;n$:18,8;"OVERALL RATING";13 ,7;"" Sscore<50220,11 ;1;1;6;4;"PATHETIC" Pscore>502score100d20,11 ;1;5;"NOT BAD" Nscore>100dscore15020,14;1;3;"FAIR" Nscore>150score20020,14;1;1;"GOOD" Uscore>200score300000u20,11 ;1;1;"VERY GOOD" score>300,score400l$="BRILLIANT":g=1̱l$:20,10 +g;ٺ(*7)+2;1;l$(g):.0009vkC,502:.0009vkC,60<:.0009vkC,557:g Gscore>400score50020,12 ;1;"EXPERT" Iscore>500score600X20,11 ;1;"CHAMPION" 7score>600X20,12 ;1;"MASTER" >725:g=1491:d,f:s=1d:.06|u\,f ""736 .05|L,f-12 s:g 5,4,4,9 ,2,9 ,2,11 ,5,12 ,5,4,2,7,2,5,2,2,2,0,5,2,2,2,2,4,4,5,2,5,2,7,2,5,2,4,2,2,2,0,4,7,2,7,2,5,6,2,2,2,4,9 ,2,9 ,2,11 ,4,12 ,2,14,2,12 ,2,11 ,2,9 ,2,7,2,4,6,7,2,4,2,5,2,7,2,9 ,2,11 ,4,12 ,2,4,2,7,2,7,2,5,2,2,2,0,20,2 c600X:1000:g=219:g,2;" ":g:60<  LOSE A LIFE  LIFE<0700 bx-1,y;" ":s=115:x,y;0;"";x,y-1;" ";x,y+1;" ":.0009vkC,502:x,y;1;"";x-1,y-1;" ";x-1,y+1;" ";x-2,y;" ":.0009vkC,45-:s:x,y;0;" ":life=life-1:s=152-1:blo,s;5;7;1;" ":.004yn,45-:s Js=152-1:blo,s;0;" ":.005y# =,25:s 9x=blo:y=3:0,26;1;life;" ":  PRINT SCORE ETC.  0,0;1;1;"":f=1̱l$:0,0+f;1;l$(f):.0009vkC,502:.0009vkC,557:.0009vkC,60<:f m0,1+f-1;1;1;"":0,25;5;"";7;1;life;" " ]1,0;1;"";0,31;1;"" #0;0,0;7;1;1;"";1,0;"SCORE HIGH SCREEN " h#0;1,8;7;1;1;score;1,18;hi;1,29;scre   JUMP LEFT  x=x-1:x,y;4;1;b$(g);x-1,y;7;0;h$(g):x,y+1;" ";x-1,y+1;" ";x+1,y;" ";x,y-1;" ";x,y+1;" ";x-1,y-1;" ";x-1,y+1;" " ;t=14:y=y-1:1003:t:1010 Cx,y;4;1;b$(g);x-1,y;7;0;h$(g) <x,y+1;" ";x-1,y+1;" ";x+1,y;" " .0009vkC,557+t: x=x+1:x,y;4;1;b$(g);x-1,y;7;0;h$(g);x,y+1;" ";x-1,y+1;" ";x-1,y-1;" ";x,y+1;x,y-1;" ";x-2,y;" ":  JUMP RIGHT  Tx=x-1:1053:t=14:y=y+1:1053:t:1055 x+1,y;" ";x,y;4;1;b$(g);x-1,y;7;0;h$(g);x,y-1;" ";x-1,y-1;" ";x,y+1;" " x,y;4;1;b$(g);x-1,y;7;0;h$(g);x,y-1;" ";x,y+1;" ";x+1,y;" ";x-1,y-1;" ":.0009vkC,557+t:  x=x+1:x,y;4;1;b$(g);x-1,y;7;0;h$(g);x,y-1;" ";x,y+1;" ";x-1,y-1;" ";x-1,y+1;" ";x-2,y;" ":  GRAPHICS  R1200:g="a""u"+7:s:g,s:g:0:0:7:0: K60<,94^,191,179,94^,94^,60<,60< J0,60<,94^,191,179,94^,94^,60< P126~,102f,190,166,188,39',231,224 N126~,126~,101e,125},61=,228,231,7 M255,0,255,255,170,85U,170,85U M188,92\,188,92\,188,92\,188,92\ Q193,171,163,183,181,189,255,255 O0,255,213,171,255,171,213,255 M60<,44,,94^,90Z,191,191,255,102f L60<,78N,191,191,126~,60<,44,,24 M24,60<,480,126~,127,247,218,92\ K31,32 ,64@,127,127,85U,42*,31 L255,0,0,255,255,85U,170,255 L240,8,4,252,252,84T,168,240 Q255,129,129,129,129,129,129,255 N255,85U,170,85U,170,85U,170,255 Q126~,249,241,225,197,141,129,126~ 255,255,0,255,0,568,92\,76L,76L,92\,568,0,255,255,0,255,231,24,255,231,126~,129,255,126~ L255,127,122z,84T,44,,40(,480,480   TELEPORT  g=1:x,y-1;" ";x,y+1;" ";x-1,y-1;" ";x-1,y+1;" ":f=70-1:x,y;f;1;b$(g);x-1,y;h$(g):.009ztj,45-:.005y# =,g+30:f:x,y;" ";x-1,y;" " +tre=(*3):y=(*28)+2 tre=1x=int tre=2x=int*2 tre=3x=int*3 %(x+1,y)=69E1302  (x+1,y)=" "1302 (x,y)=71G1302 ft=07:x,y;t;b$(g);x-1,y;h$(g):.009ztj,557:.005y# =,33!-t:t: F)r=lix3-1:r,yix;" ":r: x HI SCORE  yhi=score:f$="":g=219:g,2;" ":g:4,5;1;1;"YOU HAVE A HIGH SCORE";16,4;0;5;"PLEASE ENTER YOUR NAME";18,7;6;"(MAX 8 LETTERS)" z23617A\,238:f$ {f$>81402z }Bg=219:g,2;" ":g ~ 4 INSTRUCTIONS  5r=0:l$="The crystal MOONIRON has been stolen,and RoBoD has been sent to steal it back from the starship where it is being kept. Before he can rescue it he will have to journey through five rooms. In each room,3 light packets will have to be taken to the light lock on the floor for somewhere else. There are also many dangers...and surprises and....an extra life,(If deserved), and a bonus after each room,so.....GOOD LUCK! " 64#0;1,0;1;"";1,30;"":g=131-4:#0;1,1+g;1;l$(g);1,1+g+1;"":.0009vkC,45-+g/4:.0009vkC,40(+g/3:g:#0;1,1+g+1;1;"":g=1̱l$-31 8l$=l$(2) :B#0;1,2;7;1;l$(229) ;.005y# =,45- <="1"t=300-1:#0;1,t;1;" ":.0009vkC,35#+t/3:.0009vkC,40(+t/5:.0009vkC,45-+t/4:t:#0;1,0;" ":21004 =P="2"#0;1,0;" ":300, >P="0"#0;1,0;" ":100d ? 1:g @g=40(0-5:.005y# =,g:.06|u\,g:h=12:254,546:254,2:254,0:h:g:#0;1,0;" ";1,30;" ":0:60<  SCREEN NO.1  sfwd=1:bwd=0:blo=20:int=5:x1=5:scre=1:l$="THE RECEPTION ROOM":900 21,0;1;"";21,10 ;1;7;1;"";21,15;0;0;5;"";21,20;"" <21,28;2;7;1;1;"" 6,0;1;" ";6,6;5;"";6,2;6;"";6,8;5;"":g=11 315:6,g;5;1;"":g:6,11 ;7;1;"" 11 ,0;1;" ";5;11 ,6;"";11 ,8;"":g=11 315:11 ,g;5;1;"":g:11 ,11 ;1;"";11 ,25;6;"" 16,0;1;" ";5;16,6;"";16,8;"":g=11 315:16,g;5;1;"":g:16,11 ;1;"";16,25;6;"" 5:  SCREEN NO.2  Vblo=20:int=5:x1=5:scre=2:l$="THE LANDING BAY":900 6,0;1;" ";5;6,2;"";6,6;"";6,8;"";6,28;6;"";6,23;5;"" 11 ,0;1;" ";6;11 ,15;"";11 ,12 ;5;"";11 ,20;"";11 ,17;7;" " 16,0;1;" ";5;16,7;"";16,1;"";16,19;6;"";16,15;5;"";16,23;"";16,26;"" "j17,10 ;7;0;1;" ";9 ,16;" ";13 ,24;" " #21,0;7;1;"";21,27;2;7;1;1;"";21,15;1;7;1;1;"" $  SCREEN NO.3  Zblo=18:int=6:x1=6:scre=3:l$="THE SILICON FACTORY":900 j7,0;7;1;" "'" " }13 ,0;2;6;1;""'1;"" 13 ,4;1;" ";14,4;" ";13 ,31-4;" ";14,27;" ";7,14;" ";8,14;" " 7,0;1;"";7,29;"":f=031:20,f;1;"";21,f;"":f:1;19,0;"" 5;1;7,5;"";7,18;"";7,23;"";19,28;"";7,10 ;"";7,1;6;"";7,30;"" H6;1;13 ,1;"";5;13 ,3;"" 1;7;;1;1;13 ,14;"";13 ,10 ;5;0;0;"";13 ,19;"";13 ,22;6;"";13 ,24;5;"" 19,6;5;1;"";19,14;"";19,12 ;1;7;1;1;"";19,25;2;""   SCREEN NO.4  lblo=20:x=blo:y=2:int=5:x1=5:scre=4:l$="THE TORTURE CHAMBER":900 _6,0;7;1;" ";11 ,0;" ";16,0;" ";21,0;3;6;1;"" 5;1;16,5;"";6,2;"";6,6;"";6,15;"";6,17;"";6,26;"";6,29;"";11 ,4;"";11 ,6;"";11 ,11 ;"";11 ,16;"";11 ,18;"";11 ,26;"";11 ,28;"";16,8;"";16,11 ;"";16,19;"";16,24;"";16,29;"";21,10 ;"";21,14;"";21,29;"" W6;1;6,16;"";11 ,27;"";16,21;"" 1;7;1;1;11 ,1;"";11 ,30;"";21,25;"";2;7;11 ,5;"" %8,0;"";8,31;"";12 ,1;"";12 ,9 ;"";12 ,11 ;"";12 ,30;"";12 ,22;"";17,2;"";17,7;"";17,5;"";17,10 ;"";17,26;"";17,31;"" 6,5;" ";17,14;" ";16,14;" ";7,5;" ";15,25;" ";17,25;" ";6,9 ;12 ,22;" ";5;1;1;"^" G2,0;7;1;""  H SCREEN NO.5  Iqblo=20:x=20:y=2:int=5:x1=5:scre=5:l$="THE GOAL IS NEAR...":900 Jk6,0;4;1;" ";'3;" " KR11 ,0;1;" " L_16,0;0;" ";6;'" " M21,0;1;"":g=1312:21,g;4;1;"":g:21,31;1;"" Ng=167-2:g,25;1;" ";g-1,25;" ":g:6,25;" ";17,25;" " OE5;1;6,31;"";11 ,13 ;"";16,5;"";16,11 ;"";16,17;"";16,20;"";21,1;"";21,7;"";21,11 ;"";21,14;"";21,21;"";21,23;" ";16,3;"" P1;7;1;1;6,7;"";21,26;"";21,29;"";2;11 ,19;"";0;21,18;"^" QV6;1;6,1;"";21,30;"";21,15;"" R  COMPLETION  :bwd=1:fwd=0:l$="YOU'VE REACHED THE CRYSTAL.":g=1̱l$:5,1+g;1;l$(g):.0009vkC,557:.0009vkC,502:.0009vkC,60<:g _12 ,0;1;"" x=11 :y=2 wg=12:x,y;1;4;b$(g);x-1,y;7;h$(g);x,y-1;" ";x-1,y-1;" " :t=17:11 ,30;1;t;"":t y=303510 y=y+1 g 3504 ,11 ,30;4;1;b$(g) l$="WELL DONE,YOU HAVE IT":s=1̱l$:16,4+s;1;l$(s):.0009vkC,557:.0009vkC,502:.0009vkC,60<:s g=12 dx,y;4;1;b$(g);x-1,y;7;h$(g);x,y+1;" ";x-1,y+1;" " y=10 3516 y=y-1:g:3512 fl$="YAHOO!":s=1̱l$:x-1,y+s;1;1;l$(s):.009ztj,45-:s:502 U3520 :s=126:a,b:t=1a:.05|L,b:.04|# =,b-12 "":500 t:s 3,5,3,5,1,0,2,5,3,12 ,3,5,3,7,1,8,3,8,1,5,2,7,2,10 ,1,10 ,2,8,2,8,1,7,2,15,3,5,2,5,2,7,2,8,1,8,2,7,1,7,2,5,20,5 912 :p=1166:z:.1}L,z+11.58 ""3530 p dx,y;4;1;b$(g);x-1,y;7;h$(g);x,y+1;" ";x-1,y+1;" " y=y-1:5 y=0: 3530 #( KEMPSTON COMPATIBLE  #1M31=2y>1y=y-1:rite=0:.009ztj,502 #2M31=1y<30y=y+1:rite=1:.009ztj,4 #3@31=16y+4<30rite=11050 #4?31=16y-4>0rite=01000 #< ;