Lander

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Gallery

Lander

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 

People

No people associated with this content.

Scroll to Top