103 PRINT 104 PRINT "CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY." 106 PRINT "YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE" 108 PRINT "BETWEEN 8 & 200 LBS/SEC. YOU'VE 16000 LBS. FUEL. ESTIMATED" 111 PRINT "FREE-FALL IMPACT TIME = 120 SECS. CAPSULE WEIGHT = 32500 LBS." 120 PRINT "FIRST RADAR CHECK COMING UP." 125 PRINT : PRINT : PRINT 130 PRINT "COMMENCE LANDING PROCEDURE." 135 PRINT 140 PRINT " TIME ALTITUDE","VELOCITY","FUEL (LBS)","FUEL RATE" 145 PRINT " SECS MILES FEET"," MPH" 147 PRINT 150 L=0:A=120:V=1:M=.325E05:N=.165E05:G=.1E-02:Z=1.8 210 PRINT L;INT(A);INT(5280*(A-INT(A))),3600*V,M-N, 220 PRINT "K="; 250 INPUT K 260 T=10 270 IF K,275,310,271 271 IF K<8 GOTO 275 272 IF K<=200 GOTO 310 275 PRINT "NOT POSSIBLE" 290 FOR X=1 TO 52: PRINT ".";: NEXT X 300 GOTO 215 310 IF M-N<.1E-02 GOTO 410 320 IF T<.1E-02 GOTO 210 330 S=T 340 IF (N+S*K)<=M GOTO 350 345 S=(M-N)/K 350 GOSUB 900 360 IF I<=0 GOTO 710 365 IF V<=0 GOTO 380 370 IF J<0 GOTO 810 380 GOSUB 600 390 GOTO 310 410 PRINT "FUEL OUT AT";L;"SECS" 420 S=(-V+SQR(V*V+2*A*G))/G 430 V=V+G*S 440 L=L+S 510 PRINT "ON THE MOON AT";L;"SECS" 515 W=3600*V 520 PRINT "IMPACT VELOCITY OF";W;"MPH" 525 PRINT "FUEL LEFT IS";M-N;"LBS" 540 IF W>1 GOTO 550 545 PRINT "PERFECT LANDING! (LUCKY)": GOTO 590 550 IF W>10 GOTO 560 555 PRINT "GOOD LANDING--COULD BE BETTER": GOTO 590 560 IF W>25 GOTO 570 565 PRINT "CONGRATULATIONS ON A POOR LANDING": GOTO 590 570 IF W>60 GOTO 580 575 PRINT "CRAFT DAMAGED. GOOD LUCK.": GOTO 590 580 PRINT "SORRY, BUT THERE WERE NO SURVIVORS. YOU BLEW IT!" 585 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W*.277777;"FT. DEEP." 590 PRINT : PRINT : PRINT : PRINT "TRY AGAIN?" 592 PRINT "ANSWER 1 FOR YES, 0 FOR NO",: INPUT P 593 IF P,592,598,594 594 IF (P-1),592,120,592 598 PRINT "CONTROL OUT" 599 STOP 600 L=L+S:T=T-S:M=M-S*K:A=I:V=J 610 RETURN 710 IF S<.5E-02 GOTO 510 720 S=2*A/(V+SQR(V*V+2*A*(G-Z*K/M))) 730 GOSUB 900 740 GOSUB 600 750 GOTO 710 810 W=(1-M*G/(Z*K))/2 820 S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.5E-01 830 GOSUB 900 835 IF I,710,710,840 840 GOSUB 600 850 IF J,860,310,310 860 IF V,310,310,810 900 Q=S*K/M 910 Q1=0 920 FOR Q2=9 TO 1 STEP -1 925 Q1=Q*(1/Q2+Q1) 930 NEXT Q2 940 J=V+G*S-Z*Q1 950 Q1=0 960 FOR Q2=9 TO 1 STEP -1 965 Q1=Q*(Q1+1/(Q2*(Q2+1))) 970 NEXT Q2 980 I=A-G*S*S/2-V*S+Z*S*Q1 990 RETURN 999 END