Lunar Lander - Printable Version

Code:
10 PRINT TAB(30); "ROCKET"

20 PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"

30 PRINT: PRINT: PRINT

70 PRINT "LUNAR LANDING SIMULATION"

80 PRINT "----- ------- ----------": PRINT

100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)"; A$

110 IF A$ = "NO" THEN 390

160 PRINT

200 PRINT "YOU ARE LANDING ON THE MOON AND AND HAVE TAKEN OVER MANUAL"

210 PRINT "CONTROL 1000 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A DOWN-"

220 PRINT "WARD VELOCITY OF 50 FEET/SEC. 150 UNITS OF FUEL REMAIN."

225 PRINT

230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR APOLLO SPACE-CRAFT:": PRINT

240 PRINT "(1) AFTER EACH SECOND THE HEIGHT, VELOCITY, AND REMAINING FUEL"

250 PRINT "    WILL BE REPORTED VIA DIGBY YOUR ON-BOARD COMPUTER."

260 PRINT "(2) AFTER THE REPORT A '?' WILL APPEAR. ENTER THE NUMBER"

270 PRINT "    OF UNITS OF FUEL YOU WISH TO BURN DURING THE NEXT"

280 PRINT "    SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT BY"

290 PRINT "    1 FOOT/SEC."

310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FEET/SEC/SEC"

320 PRINT "    OR 30 UNITS OF FUEL PER SECOND."

330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE. YOUR DESCENT ENGINE"

340 PRINT "    WILL AUTOMATICALLY SHUT DOWN AND YOU WILL BE GIVEN A"

350 PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."

360 PRINT "(5) IF YOU RUN OUT OF FUEL THE '?' WILL NO LONGER APPEAR"

370 PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"

380 PRINT "    YOU CONTACT THE LUNAR SURFACE.": PRINT

390 PRINT "BEGINNING LANDING PROCEDURE..........": PRINT

400 PRINT "G O O D  L U C K ! ! !"

420 PRINT: PRINT

430 PRINT "SEC  FEET      SPEED     FUEL     PLOT OF DISTANCE"

450 PRINT

455 T = 0: H = 1000: V = 50: F = 150

490 PRINT T; TAB(6); H; TAB(16); V; TAB(26); F; TAB(35); "I"; TAB(H / 15); "*"

500 INPUT B

510 IF B < 0 THEN 650

520 IF B > 30 THEN B = 30

530 IF B > F THEN B = F

540 V1 = V - B + 5

560 F = F - B

570 H = H - .5 * (V + V1)

580 IF H <= 0 THEN 670

590 T = T + 1

600 V = V1

610 IF F > 0 THEN 490

615 IF B = 0 THEN 640

620 PRINT "**** OUT OF FUEL ****"

640 PRINT T; TAB(4); H; TAB(12); V; TAB(20); F; TAB(29); "I"; TAB(H / 12 + 29); "*"

650 B = 0

660 GOTO 540

670 PRINT "***** CONTACT *****"

680 H = H + .5 * (V1 + V)

690 IF B = 5 THEN 720

700 D = (-V + SQR(V * V + H * (10 - 2 * B))) / (5 - B)

710 GOTO 730

720 D = H / V

730 V1 = V + (5 - B) * D

760 PRINT "TOUCHDOWN AT"; T + D; "SECONDS."

770 PRINT "LANDING VELOCITY="; V1; "FEET/SEC."

780 PRINT F; "UNITS OF FUEL REMAINING."

790 IF V1 <> 0 THEN 810

800 PRINT "CONGRATULATIONS! A PERFECT LANDING!!"

805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER."

810 IF ABS(V1) < 2 THEN 840

820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!"

830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."

840 PRINT: PRINT: PRINT

850 INPUT "ANOTHER MISSION"; A$

860 IF A$ = "YES" THEN 390

870 PRINT: PRINT "CONTROL OUT.": PRINT

999 END