Source Code
2005 LET R=0
\n2010 LET H=1350+INT (RND*200)+1
\n2020 LET F=80+(INT (RND*400)/2)+1
\n2030 LET V=INT (RND*20)+1
\n2035 PRINT
\n2040 PRINT "PRESS ENTER TO BEGIN DESCENT"
\n2045 INPUT U$
\n2047 CLS
\n2048 LET T=1
\n2050 LET D=1
\n2060 LET K1=1
\n2090 CLS
\n2095 FOR A=1 TO D
\n2100 PRINT AT 16-H/100,K1;" "
\n2101 LET F=INT (10*F)
\n2102 LET F=F/10
\n2103 LET H=INT (10*H)
\n2104 LET H=H/10
\n2105 LET V=INT (10*V)
\n2106 LET V=V/10
\n2107 IF R>0 OR H<1 THEN LET H=0
\n2108 IF R>0 OR H<1 THEN LET A=D
\n2109 PRINT AT 0,0;"HGT:";H;" VEL:";V;" FL:";F;" "
\n2110 LET V=V+17-T/3
\n2115 LET K1=K1+RND
\n2116 IF K1>26 THEN LET K1=20
\n2120 LET H=H-V
\n2125 IF H>1600 THEN GOTO 2305
\n2130 LET F=F-T/5
\n2140 IF 2*(INT (A/2))=A THEN PRINT AT 16-H/100,K1;"\.:\''\:."
\n2145 IF 2*(INT (A/2))<>A THEN PRINT AT 16-H/100,K1;"\.:\''\:."
\n2190 PRINT AT 16,0;"TIME:";D-A;"% % % % % % % % % % % % % % % % % % % % % % % % % "
\n2195 IF F<1 THEN GOTO 2300
\n2220 IF H<100 AND F>0 AND V<10 THEN LET R=1
\n2222 IF H<100 AND V>9 THEN LET R=2
\n2223 IF F<1 THEN LET R=3
\n2224 IF R>0 THEN GOTO 2280
\n2228 NEXT A
\n2230 PRINT AT 19,0;"THRUST? ";
\n2235 INPUT T
\n2250 PRINT T," DURATION?( 11)"
\n2260 INPUT D
\n2265 IF D>10 THEN GOTO 2260
\n2270 GOTO 2090
\n2280 IF R=1 THEN PRINT "SUCCESSFUL LANDING"
\n2290 IF R=2 THEN PRINT " CRASH LANDING","DIGGING A ";INT (V*4.5);" FOOT CRATER"
\n2300 IF R=3 THEN PRINT "YOU HAVE RUN OUT OF FUEL","GOODBYE"
\n2305 IF H>1600 THEN PRINT "YOUR SHIP EXPLODED"
\n2310 PAUSE 400
\n2320 CLS
\n2330 RUN
\n2340 CLEAR
\n2350 SAVE "1027%3"
\n2360 RUN
