Listing of file='LUNAR' on disk='vmedia/more_games.wvd.zip'
# Sector 808, program filename = 'LUNAR' 0010 REM *LUNAR* : LOAD DC T#6,"GAMES" 0020 REM LUNAR MODULE PROGRAM "ROCKET" 0030 PRINT : PRINT : PRINT "CONTROL CALLING LUNAR MODULE" : PRINT 0040 PRINT "YOU MAY SET THE FUEL CONTROL RATE (K) ZERO OR ANY VALUE" 0050 PRINT "BETWEEN 8 AND 200 LBS/SEC. A NEGATIVE FUEL" 0060 PRINT "RATE WILL ABORT THE LANDING UNLESS THE RATE" 0070 PRINT "IS -2, IN WHICH CASE THE CURRENT POSITION IS" 0080 PRINT "SAVED FOR LATER RECALL UPON RESTART." : PRINT 0090 PRINT "YOU HAVE 16000 LBS OF FUEL." 0100 PRINT "ESTIMATED FREE FALL TIME IS 120 SECONDS." 0110 PRINT "CAPSULE WEIGHT IS 32,500 LBS." 0120 STOP "PRESS CONTINUE" : PRINT HEX(03) 0130 PRINT : PRINT "FIRST RADAR CHECK COMING UP..." 0140 PRINT "BEGIN LANDING PROCEDURE" : PRINT : PRINT 0150 PRINT "TIME HEIGHT VELOCITY FUEL FUEL RATE" 0160 PRINT "SECS MI.-FT. MPH LBS" 0170 LET L=0 : LET A=120 : LET V=1 : LET M=32500 : LET N=16500 0180 LET G=.001 : LET Z=1.8 0190 IF A >= 1 THEN 220 0200 PRINTUSING 240,INT(L+.5),5280*A,V*3600,M-N; 0210 GOTO 250 0220 PRINTUSING 230, INT(L+.5),A,V*3600,M-N; 0230 %#### ####.#MI. -####.## #####.# 0240 %#### ####.#FT. -####.## #####.# 0250 INPUT " K=",K 0260 LET T=10 0270 IF K<>-2 THEN 290 0280 M1=M : L1=L : V1=V : A1=A : PRINT "SAVED YOUR POSITION" : GOTO 250 0290 IF K<0 THEN 620 0300 IF K=0 THEN 350 0310 IF K<8 THEN 330 0320 IF K<=200 THEN 350 0330 PRINT "NOT POSSIBLE",,,,"K"; 0340 INPUT K : GOTO 290 0350 IF M-N-.001<=0 THEN 440 0360 IF T<.001 THEN 190 0370 LET S=T : IF N+S*K<=M THEN 390 0380 S=(M-N)/K 0390 LET I0 =1 : GOTO 850 0400 IF I<=0 THEN 740 0410 IF V<=0 THEN 430 0420 IF J<0 THEN 770 0430 LET I0=1 : GOTO 670 0440 PRINT "FUEL OUT AT"; : PRINTUSING 630,L; : PRINT " SEC." 0450 LET S=(-V+SQR(V^2+2*A*G))/G 0460 LET V=V+G*S 0470 LET L=L+S 0480 PRINT "ON THE MOON AT"; : PRINTUSING 630,L; : PRINT " SEC." 0490 LET W =3600*V 0500 PRINT "IMPACT VELOCITY OF"; : PRINTUSING 630,W; : PRINT " MPH" 0510 PRINT "FUEL LEFT"; : PRINTUSING 630,M-N; : PRINT " LBS" 0520 IF W>=1 THEN 540 0530 PRINT "PERFECT LANDING! CONGRATULATIONS!!" : GOTO 620 0540 IF W>=10 THEN 560 0550 PRINT "VERY GOOD LANDING, NOT PERFECT YET." : GOTO 620 0560 IF W>=25 THEN 580 0570 PRINT "A FAIR LANDING, NO CRAFT DAMAGE." : GOTO 620 0580 IF W>=60 THEN 600 0590 PRINT "CRAFT DAMAGE -- BETTER LUCK NEXT TIME." : GOTO 620 0600 PRINT "SORRY NO SURVIVORS." 0610 PRINT "IN FACT YOU BLASTED A NEW LUNAR CRATER"; : PRINTUSING 630,W*.2777777; : PRINT " FEET DEEP" 0620 PRINT : PRINT : PRINT "TRY AGAIN? (Y,N,RESTART,OR LOW WINDOW)" 0630 %-#####.## 0640 INPUT R$ : R$=STR(R$,1,1) 0650 IF R$="Y" THEN 130 : IF R$="R" THEN 1010 : IF R$="L" THEN 950 0660 PRINT : PRINT "CONTROL OVER AND OUT" : GOTO 1060 0670 LET L=L+S 0680 LET T=T-S 0690 LET M=M-S*K 0700 LET A=I 0710 LET V=J 0720 IF I0 =1 THEN 350 0730 IF I0=3 THEN 820 0740 IF S<.005 THEN 480 0750 S=2*A/(V+SQR(V*V+2*A*(G-Z*K/M))) 0760 LET I0 =2 : GOTO 850 0770 LET W=(1-M*G/(Z*K))/2 0780 LET S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.005 0790 LET I0=3 : GOTO 850 0800 IF I<0 THEN 740 0810 GOTO 670 0820 IF J>=0 THEN 350 0830 IF V<=0 THEN 350 0840 GOTO 770 0850 LET Q=S*K/M 0860 IF Q<=0 THEN 920 0870 LET J=V+G*S+Z*(-Q-(Q*Q)/2-Q^3/3-Q^4/4-Q^5/5) 0880 LET I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30) 0890 IF I0=1 THEN 400 0900 IF I0=2 THEN 670 0910 IF I0=3 THEN 800 0920 LET J=V+G*S 0930 LET I = A-G*S*S/2-V*S 0940 GOTO 890 0950 LET L=140 0960 LET A =2.382342 0970 LET V=.1257558 0980 LET M=18500 0990 LET N=16500 1000 GOTO 180 1010 M=M1 : L=L1 : V=V1 : A=A1 : GOTO 220 1020 PRINT "HERE" 1030 REM * FULL LANDING -- 15X7,100,150,200X4,150,125,75,40, 1040 REM * 15,13.7344 = .01MPH 1050 REM * LOW WINDOW ---- 50,40X2,25,17.5735875 = .01MPH 1060 END