ZXTape!Lunar Landd'dZ4000:5000:"Press enter to play ";z$::2000:1000:3000 nz$="":1:z$= s<2,0;" ":z$""2,0;6;" " x#(z$="p")(d<3)d=d+1 #(z$="q")(d>1)d=d-1 (z$"0")(z$"9")z=z$:j=z j=j*(f>0) Tv=(.5+v+(.73333+.3*(d=2))*j-5+(hv^2)/5000) $h=(h+v+.5):h=h*(h>0) 8hv=(.5+hv+.73333*j*((d=3)-(d=1))) hp=((5*hp+hv)/5) f=(f>0)*(.5+f-j) 3000 <f=01,16;2;1;" NO FUEL " ܛ(h<10 )(v<10 )(hp<10 )(hv<10 )1,0;4;0;1;" SAFE LANDING ":"Press enter to play again";z$: (h<10 )(v<10 )(hv<10 )1,0;4;0;1;" SAFE LANDING ";2;" WRONG PLACE ":"Press enter to play again";z$: g(h<10 )1,0;2;1;" CRASH LANDING ":"Press enter to play again";z$: 110n 0:7:0: -1;" LUNAR LANDING " (7:2:''" JETS:" '" DIRECTION:" 1:'" VERTICAL VEL.:" '" HEIGHT:" $'"HORIZONTAL VEL.:" .'"HORIZONTAL POS.:" 8'" FUEL:" B0:8:4;19,0;" " L i0,2,10000',0,(1000*),0,2000,"LEFT ","VERTICAL","RIGHT " V2000:d$(3,8):j,d,h,v,hp,hv,f,d$(1),d$(2),d$(3) >b$=" ":c$=b$+b$:b=1: (r$(8):j,d$(d),v,h,hv,hp,f 3000 :n=17:r$:1+2*n,16;7;1;2-(n>2);((n=3)*(v>200)+(n=4)*(h<500)+(n=5)*(hv>100d)+(n=6)*(hp>1000)+(n=7)*(f<100d));r$:n nb=(hp/10 +.5):b=b-32 *((b-1)/32 ):18,0;4;c$(bb+31) ֺh1=(16-h/1000):h1=h1+(h1<1)*(1-h1):h1,27;" ";h1+3,27;" ";h1+1,27;5;a$(d,1);h1+2,27;a$(d,2) m=01:n=084:o=01:m;2;1;231+o+n-6*d,151-h1*8:2;m;2*j*((d=1)-(d=3)),-2*j:n:m  0:7:0: 61:1;" LUNAR LANDING " k'" Your task is to land the lunar module safely on the moon's surface at the correct place." v'" You can alter direction (LEFT RIGHT OR VERTICAL) by pressing keys Q(anticlockwise) and P(clockwise)." ='" You can set the jet thrust by pressing keys 1 to 9." X'" The vertical and horizontal speeds at touchdown must be lessthan 10 for safety." Y'" The correct landing place has a horizontal position between +10 and -10." '" Keys don't react immediatelythey are scanned every second. Hold them down until a yellow square appears in the top left of the screen."  P15,127,123{,119w,239,223,255,255 O0,128,192,192,192,192,192,128 D127,62>,0,0,0,0,0,0 Q255,255,198,196,192,240,224,192 G3,31,568,63?,63?,63?,31,7 P192,248,60<,252,252,252,248,224 F3,7,14,28,568,124|,0,0 J192,224,112p,568,28,62>,0,0 A0,1,3,3,3,3,3,1 Q240,254,222,238,247,251,255,255 H255,255,99c,35#,3,15,7,3 E254,124|,0,0,0,0,0,0 a$(3,2,2):a=011 :5000+10 *a:n=(97a+a)(97a+a)+7:b:n,b:n:a  pa=13:b=12:c=12:a$(a,b,c)=(137+4*a+2*b+c):c:b:a