10 GOTO 1000 20 ? CHR$(12); 30 ? "THIS IS A -* COMPUTER *- SIMULATION OF AN APOLLO LUNAR "; 40 ? "LANDING CAPSULE THE" 45 ? "ON-BOARD * COMPUTER * HAS FAILED (IT WAS MADE BY XEROX) "; 50 ? "SO YOU HAVE TO THE" 55 ? TAB(30);"CAPSULE MANUALLY.":? 70 ? "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN "; 77 AA=0 80 ? "0 (FREE FALL) AND 200" 85 ? "(MAXIMUM BURN) POUNDS PER SECOND. - SET NEW BURN RATE "; 95 ? "EVERY 10 SECONDS. -" 100 ? TAB (12);"CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS." 110 ? TAB (33);"GOOD LUCK" 120 L=0 130 GOSUB 777 140 A=120:V=1:M=33000:N=16500:G=1E-03:Z=1.8 150 ? L,INT(A);INT(5280*(A-INT(A))),3600*V,M-N,:INPUT K:T=10 155 AA=AA+1: IF AA=18 THEN ? CHR$(12);:GOSUB 777 156 IF AA=18 THEN AA=0 160 IF M-N<1E-03 THEN 240 170 IF T<1E-03 THEN 150 180 S=T: IF M>=N+S*K THEN 200 190 S=(M-N)/K 200 GOSUB 420:IF I<=O THEN 340 210 IF V<=0 THEN 230 220 IF J<0 THEN 370 230 GOSUB 330:GOTO 160 240 ?:? "FUEL OUT AT";L;"SECONDS":S=(-V+SQR(V*V+2*A*G))/G 250 V=V+G*S:L=L+S 260 W=3600*V:? "ON MOON AT";L;"SECONDS - IMPACT VELOCITY";W;"MPH" 274 IF W<=1.2 THEN ? "PERFECT LANDING!":GOTO 440 280 IF W<=10 THEN ? "GOOD LANDING (COULD RE BETTER)":GOTO 440 282 IF W>60 THEN 300 284 ? "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE" 286 ? "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" 288 GOTO 440 300 ? "SORRY THERE NERE NO SURVIVORS. YOU BLOW IT!" 310 ? "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W*.227;"FEET DEEP!" 320 GOTO 440 330 L=L+S:T=T-S:M=M-S*K:A=I:V=J:RETURN 340 IF S<5E-03 THEN 260 350 D=V+SQR(V*V+2*A*(G-Z*K/M)):S=2*A/D 360 GOSUB 420:GOSUB 330:GOTO 340 370 W=(1-M*G/(Z*K))/2: S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05:GOSUB 420 380 IF I<=0 THEN 340 390 GOSUB 330:IF J>0 THEN 160 400 IF V>0 THEN 370 410 GOTO 160 420 Q=S*K/M:J=V+G*S+Z*(-Q-Q*Q/2-Q^3/3-Q^4/4-Q^5/5) 430 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 440 ?:?:?:? "TRY AGAIN ? 1 - new/ 2 - end":?:INPUT Q:IF Q=2 THEN END 450 IF Q=1 THEN ? CHR$(12);:GOTO 70 460 GOTO 440 777 ?: ? "SEC","MI + FT"," MPH","LB FUEL","BURN RATE":? 778 RETURN 1000 ? CHR$(12):? TAB (32)"\|/":? TAB (33)"|" 1010 ? TAB (33)"***********" 1020 ? TAB (32)"* *" 1030 ? TAB (31)"* L E M *" 1040 ? TAB (32)"* *" 1050 ? TAB (30)"*****************" 1060 ? TAB (30)"* *" 1070 ? TAB (30)"*****************" 1080 ? TAB (29)"* LUNAR LANDING *" 1090 ? TAB (28)"* CCM,NEW JERSEY *" 1110 ? TAB (28)"* *" 1120 ? TAB (28)"*********************" 1130 ? TAB (28)" ** ** **" 1140 ? TAB (27)"** ** **" 1150 ? TAB (26)"** ** **" 1160 ? TAB (24)"***** ***** *****" 1170 ? TAB (24)"***** ***** ***** " 1180 ? 1190 ? TAB(17)"conversion for SBC6502 computer - Igi 2016" 1200 ? TAB (32)" 80columns !!!" 1250 FOR AA=0 TO 9500:NEXT AA:GOTO 20