Appears on
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.
Source Code
2005 LET R=0 2010 LET H=1350+INT (RND*200)+1 2020 LET F=80+(INT (RND*400)/2)+1 2030 LET V=INT (RND*20)+1 2035 PRINT 2040 PRINT "PRESS ENTER TO BEGIN DESCENT" 2045 INPUT U$ 2047 CLS 2048 LET T=1 2050 LET D=1 2060 LET K1=1 2090 CLS 2095 FOR A=1 TO D 2100 PRINT AT 16-H/100,K1;" " 2101 LET F=INT (10*F) 2102 LET F=F/10 2103 LET H=INT (10*H) 2104 LET H=H/10 2105 LET V=INT (10*V) 2106 LET V=V/10 2107 IF R>0 OR H<1 THEN LET H=0 2108 IF R>0 OR H<1 THEN LET A=D 2109 PRINT AT 0,0;"HGT:";H;" VEL:";V;" FL:";F;" " 2110 LET V=V+17-T/3 2115 LET K1=K1+RND 2116 IF K1>26 THEN LET K1=20 2120 LET H=H-V 2125 IF H>1600 THEN GOTO 2305 2130 LET F=F-T/5 2140 IF 2*(INT (A/2))=A THEN PRINT AT 16-H/100,K1;"\.:\''\:." 2145 IF 2*(INT (A/2))<>A THEN PRINT AT 16-H/100,K1;"\.:\''\:." 2190 PRINT AT 16,0;"TIME:";D-A;"% % % % % % % % % % % % % % % % % % % % % % % % % " 2195 IF F<1 THEN GOTO 2300 2220 IF H<100 AND F>0 AND V<10 THEN LET R=1 2222 IF H<100 AND V>9 THEN LET R=2 2223 IF F<1 THEN LET R=3 2224 IF R>0 THEN GOTO 2280 2228 NEXT A 2230 PRINT AT 19,0;"THRUST? "; 2235 INPUT T 2250 PRINT T," DURATION?( 11)" 2260 INPUT D 2265 IF D>10 THEN GOTO 2260 2270 GOTO 2090 2280 IF R=1 THEN PRINT "SUCCESSFUL LANDING" 2290 IF R=2 THEN PRINT " CRASH LANDING","DIGGING A ";INT (V*4.5);" FOOT CRATER" 2300 IF R=3 THEN PRINT "YOU HAVE RUN OUT OF FUEL","GOODBYE" 2305 IF H>1600 THEN PRINT "YOUR SHIP EXPLODED" 2310 PAUSE 400 2320 CLS 2330 RUN 2340 CLEAR 2350 SAVE "1027%3" 2360 RUN