Listing of file='MOONLAND' on disk='vmedia/games.wvd.zip'
# Sector 229, program filename = 'MOONLAND' 0005 PRINT HEX(03) 0010 PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR" 0020 PRINT "LANDING CAPSULE" : PRINT : PRINT 0030 PRINT "THE ON BOARD COMPUTER HAS FAILED(IT WASN'T MADE BY" 0040 PRINT "WANG) SO YOU HAVE TO LAND THE CAPSULE MANUALLY" 0050 PRINT : PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN" 0060 PRINT "0(FREE FALL)AND 200(MAXIMUM BURN) POUNDS PER SECOND" 0070 PRINT "SET NEW BURN RATE EVERY 10 SECOUNDS" : PRINT 0080 PRINT "CAPSULE WEIGHT 32,500LBS; FUEL WEIGHT 16,500 LBS" : PRINT 0085 INPUT "EXEC WHEN READY",Z9 0086 PRINT HEX(03) 0090 PRINT "GOOD LUCK!!!" 0100 L=0 0120 A=120 : V=1 : M=33000 : N=16500 : G=1E-3 : Z=1.8 0130 PRINTUSING 131,L,INT(A),INT(5280*(A-INT(A))),3600*V,M-N; 0131 %#### SEC ### MI #### FT #,###.## MPH ##,### LBFL BN 0132 INPUT K : T=10 0140 IF M-N<.001THEN 180 : IF T<.001THEN 130 : S=T : IF M>=N+S*KTHEN 160 0150 S=(M-N)/K 0160 GOSUB 320 : IF I<=0THEN 280 : IF V<=0THEN 170 : IF J<0THEN 300 0170 GOSUB 270 : GOTO 140 0180 PRINT "FUEL OUT AT";L;"SEC" : S=(-V+SQR(V*V+2*A*G))/G : V=V+G*S : L=L+S 0190 W=3600*V : PRINT "ON MOON AT";L;"SEC - IMPACT VELOCITY";W;"MPH" 0200 IF W>1.2THEN 210 : PRINT "PERFECT LANDING (LUCKY)" : GOTO 340 0210 IF W>10THEN 220 : PRINT "GOOD LANDING (COULD BE BETTER)" : GOTO 340 0220 IF W>60THEN 240 : PRINT "CRAFT DAMAGED.........YOU'RE STRANDED HERE UNTIL" 0230 PRINT "A RESCUE PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" : GOTO 340 0240 PRINT "SORRY, BUT THERE WERE NO SURVIVORS....YOU BLEW IT!!" 0250 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W*.2777;"FT DEEP" 0260 GOTO 340 0270 L=L+S : T=T-S : M=M-S*K : A=I : V=J : RETURN 0280 IF S<5E-3THEN 190 : D=V+SQR(V*V+2*A*(G-Z*K/M)) : S=2*A/D 0290 GOSUB 320 : GOSUB 270 : GOTO 280 0300 W=(1-M*G/(Z*K))/2 : S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05 : GOSUB 320 0310 IF I<=0THEN 280 : GOSUB 270 : IF J>0THEN 140 : IF V>0THEN 300 : GOTO 140 0320 Q=S*K/M : J=V+G*S+Z*(-Q-Q*Q/2-Q^3/3-Q^4/4-Q^5/5) 0330 I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30) : RETURN 0340 INPUT "EXEC TO TRY AGAIN",Z9 : PRINT HEX(03) : GOTO 50 0345 DEFFN'14 : LOAD DC R"MENU" 0350 END