ZXTape!MOON :{9900&:9100# :9000(# wait stage1 stage2 %ship<4man<10 10 ( endgame stage1  up=0 Qx=2:y=3:mothx=0:a$(5,32 ):i$(5,32 ) man=man+1 pointer=1  inc=1 'c=15:d=132 (*(11 -man)<.4La$(c,d)="" d:c    surface  topprint $a0,6;6;score;0,17;5;high;0,30;7;ship .Ac=15:4+c*2,0;6;a$(c):c 8.2,0;m$;3,0;n$;y,x =3,3;s$ !mothx=mothx+inc:dropx=x+inc mothx=28inc=-1 mothx=1inc=1 .2,mothx;m$;3,mothx;n$:y,x;s$ 9pointer=pointer+pinc:pointer>32 pointer=1 ac=15:6;4+c*2,0;a$(c,pointer);a$(c,pointer-1):c ="0"drop=1 F.005y# =,24*drop-12 :.005y# =,24*drop-10  y,x;" "  y=y+drop:y=21shiploss drop1200 *x=x-(="5"x>0)+(="8"x<32 ) (y,x)=320 (y,x)=""shiploss  1200  Ty-1,x;s$:c=110 :.0,-10 +c:.1}L,-10 -c:c up=0:drop=0 pointer=1 $m(nman)=0:nman=nman+1 :surface:topprint y=y-1:y,x;s$ 'c=15:d=132 (*(11 -man)<.4Li$(c,d)="" .005y# =,30:d:c score=score+250  a0,6;6;score;0,17;5;high;0,30;7;ship Ac=15:4+c*2,0;5;i$(c):c  %3,mothx;m$;3,mothx;n$ 4mothx=mothx+inc 5mothx=28inc=-1 6mothx=1inc=1 9%2,mothx;m$;3,mothx;n$ : y,x;s$ >9pointer=pointer+pinc:pointer>32 pointer=1 Cac=15:5;4+c*2,0;i$(c,pointer);i$(c,pointer-1):c H="0"up=1 RB.005y# =,24*up-12 :.005y# =,24*up-10 \ y,x;" " fy=y-up:y<3shiploss p!y=3x=mothx+2home zup21004 *x=x-(="5"x>0)+(="8"x<32 ) (y,x)=""shiploss  21004  7:0:0: 0c=0502:*255,*175:c 65,4;5;"WELCOME TO 'MOON RESCUE'" H16,0;1;1;"PRESS ANY KEY WHEN YOU ARE READY" =""3040 ?16,0;1;"PRESS ANY KEY WHEN YOU ARE READY"  ?4:17,0;" " 618,0;" " 619,0;" " f20,0;" ";3;"";4;" ";3;"";4;" " 621,0;"" ?c=110 :m(c)>020,m(c);6;"" c  7: _0,0;6;1;"SCORE: ";5;"HIGH: ";7;"SHIP: " -3;""  |Wc=07.5:y,x;c;"":.01z# =,c*5:.01z# =,c*-5:c !score=score+300,:30 pFc=y20:c,x;٥*7;"";1;c,x;"":.01z# =,-c:c u1,-20:502 z9ship=ship+1:drop=0:up=0::30 @(6,11 ;1;"GAME OVER" Jscore>highhigh=score:c=110 :.01z# =,*502:*7:c:0:11 ,0;1;1;"WELL DONE - A NEW HIGH SCORE!!!!" T250::5 #' #(,a$(5,32 ):i$(5,32 ) #2?ship=1:man=0:x=2:y=3:nman=1 #7_s$=19+1+"":m$=" "+16+2+" ":n$=" "+16+2+" " #<,mothx=0:drop=0:score=0 #F:stage1=1000:stage2=2000:endgame=8000@ #Pwait=3000 #Rpinc=2 #Usurface=4000 #W*topprint=5000:shiploss=6000p #Xhome=5500| #Z!m(10 ):c=110 #d m(c):c #nX4,5,6,11 ,14,15,17,23,23,26 #x # c="a""n"+7:a:c,a:c #high=0 & &s0,100,00111111?,1111111,1100000`,11110110,11111111,11111111 &v11000,1111110~,11111111,11111111,0,11111111,11100111,11000011 &r0,100000 ,11111100,11111110,111,1101111o,11111111,11111111 &r11111000,11111000,11111000,1111100|,111111?,11111,1111,111 &r1000,11100,1111111,1001001I,1011101],111110>,100010",1000001A &v11111,11111,11111,111110>,11111100,11111000,11110000,11100000 &u11000,1111100|,11111110,1111111,1111111,1111110~,1110008,10000 &t0,111100<,1100110f,11111111,11111111,10111101,1000010B,100100$ &10000000,11000000,11100000,11110000,11111000,11111000,11111110,11111111 &\1,10110011,11111111,255,255,255,255,255 &^1111111,111111?,11111,1111,111,11,1,0 &h0,11100,11100,1001001I,111110>,1000,10100,100010" &d1,11,11,1111,11111,111111?,1111111,11111111 &y11111110,11111100,11111100,11110000,11100000,11000000,10000000,0 ' aig@hiaxymaothrocortagetagendgam@ai inurfacopprinhiplospom|ointen! SM  N  5   ɥ T