DWB 7 LUNAR LANDER P 5155 LANDER.A P 513 LANDER.B P 513 LANDER.C P 513 LANDER.D P 513 MOON.A P 513 MOON.B P 513 d"": 53280,0: 53281,0En" "kx" "" LUNAR ** LANDER "" "" " :" WRITTEN BY DAVID AND DANIEL DUBINSKY";""b:" JOYSTICK IN PORT 2"::" LAND YOUR SHIP ON THE LUNAR SURFACE":: "YOU MAY LAND ONLY ON THE SPECIFIED SITE"" USING ANOTHER WILL RESULT IN A CRASH"F" STATUS LINE SHOWS FUEL REMAINING AND":" SPECIFIED LANDING SITE"z::" PRESS ANY KEY " QS$""" HAPPY LANDINGS""";2:BD1:SQ0:NF30000:LS$(325):LS(325): MS$(16):HG.025:VG.3J 1,0,8,0^ 53280,0: 0,1y 1,14,0,"PLEASE WAIT"I18:X(I):I:I18:Y(I):I 0,.7,.8,.7,0,-.8,-.8,-.7,-.8,-.7,0,.7,.8,.7,0,-.7 I1 8:I,0:I  "LANDER.B":I18:I,SB$(I): I< $ "LANDER.A":I18:I,SA$(I): Id . "LANDER.C":I18:I,LB$(I): I 8 "LANDER.D":I18:I,LA$(I): I BD1: SA$(D),1:1,100,100:1,1,8,0,0,0:X10:Y10:I1 8:I,0: I:""!L"":1::1,14,0,"PLEASE WAIT"G!V1,13:I140:XD((8)319)1:YD((8)160)1: 1,XD,YD: I:1,7!`P$"*": I110:R((8)18)1:C((8)40)1:1,C,R,P$: I!jP$".": I140:R((8)18)1:C((8)40)1:1,C,R,P$: I!t1,15:1,290,120,40,30: 1,290,120: 1,13;"~"MOON.A":I18:I,MS$(I):I:"MOON.B":I18:I,MS$(I8):Io" I1 14: MS$(I),(I24)24,175,2:I:1,2,197" I0 319: LS$(I),I,176,I23,197: I"1"1,0:1,0,0," ": 1" BD1 B1123:B2139# BD2 B130:B2432# BD3 B1218:B2229M# BD4 B1267:B2277f# BD5 B157:B266# I1 319:LS(I)0: I# IB1 B2:LS(I)BD:I#1,14,0," "# 1,26,0,"LAND ON SITE":1,38,0,(BD)# 1,0,0,"FUEL 30000"$ 11: "T2O5QDA":29$ SA$(1),1:1,100,100:1,1K$  ROTATE SHIPS$D1n$N(2):N127 NN127$(PX(53248):PY(53249)$2PY170 1620$<PY50 Y11$F (1,0)18 X11$P (1,0)328 X11$Z1,X1,Y1%dY1Y1(VG):X1X1(HG)&%n NF0 NN50Y%x N 1490,1310,1420,1440,1310,1310,1460,1480o% SA$(D),1:1310%DD1:T130:T:D8D1%SA$(D),1: 1310%DD1:D8D1% SB$(D),1:1500: 1310%DD1:T130:T:D1D8&SA$(D),1: 1310&DD1:D1D88& SB$(D),1: 1500: 1310J& MOVE SPRITEm& NF1000 1,40000,10,,,,1:~& NF150 &NFNF150&1,0,0,"FUEL "&1,7,0,(NF)& 1,NF,15,,,,3&"X1X1X(D):Y1Y1Y(D)&,X110X10'6Y110Y110'@1,X1,Y1'JG'T I2 8: I,((I1)48)24 ,200: IP'^""'h" LAND ON SITE";BD'r"FUEL ":"";NF'| (1,0)120 W0 : 1690' (1,0)241 W160: 1690'W (1,0)108+(CN1:J014424:CNCN1:LS$(JW),CN:JO( I2 8: I,1,13,1,1,1:I:0_( LA$(1),1n( 1,0,60( ROTATE BIG SHIP(N(2):N127 NN127(PX(53248):PY(53249)( (1) 11 2120(PY50 1930 ) (1,0)18 X12.0:2050+) (1,0)328 X12.0:1980C)1,(2X1),(2Y1)])Y1Y1(VG):X1X1(HG)r) NF0 NN50)& N 1920,1740,1850,1870,1740,1740,1890,1910)0 LA$(D),1:1740):DD1:T130:T:D8D1)DLA$(D),1:1740*NDD1:D8D1*X LB$(D),1: 1500:1740;*bDD1:T130:T:D1D8P*lLA$(D),1:1740f*vDD1: D1 D8* LB$(D),1: 1500:1740* I2 8: I,0: I* SA$(D),1* 1,0,165*1*1,0,0,"FUEL ":1,7,0,(NF):1310+W20 160+C 1:IWW20 54+J0144 24 : C C 1F+ LS$(JI),C\+1,(.5X1),(O)k+J:C 1:Iy+WW20 :+W200+ CN1:IWW205+J0144 24 : CNCN1+  LS$(JI),CN+*1,(.5X1),(0)+4J:CN1:I+>WW20:,H COLLISION%,R (1) 0 17708,\ Y11.5 2250J,f D1 2250d,p X11 X11 2250,z TEST FOR CORRECT LANDING SITE,L5((W(((1,0)24)2))3)1,R5((W(((1,0)24)2))9)1, L51 L51, R5319 R5319 - LS(L5)0 2250"- LS(R5)0 2250-- 2400V-15:2,10000,60 ,0,4000,800,3:2:E0e- I1 10t- J15 16- MS$(J),1- 1,1,3,0,0,0:1,1,2:1,1,8- J- I-  1,0- "":" GAME OVER" .$ "FINAL SCORE=";SQA.. "" :" PLAY AGAIN?(Y/N)"L.8 Q6$i.B Q6$"N" 57344 :.L Q6$"Y""": I28:I,0:I:SQ0:BD1:NF30000: 2:X10:Y10:HG.01:VG.25:1180.V 2360.` 11: "T2O3WCGO4CO4QEH#DHRO3WCGO4CQ#DE"%/j "":" A GOOD LANDING"R/t " SCORE= FUEL REMAINING X";LS(L5)h/~ SQSQ(LS(L5)NF)/ :" TOTAL SCORE=";SQ/ BDBD1: BD5 BD1:HGHG.05:VGVG.1/ " PRESS ANY KEY TO START NEXT MISSION":Q$ 0 NF30000:"": I28:I,0:I:X10:Y10:2:1180ppx8@pp 8xpp ttxzppp p x8@0pp 8x pp (ttxzp @<@BB<B A @݀ BB A B@BB ;E B<@@=@BB=@@@<BE;@<@BB<B  B@=P BB P<B B@BB <B@ B<@@=@B@B@=@@@<BB < 8|?X??  >?H/i`?B@ ALA D D@ L,2T`h~P` I@ B@  @`8Y<~ǺH@!