12) LUNAR LANDER (617 B)
To use: LOAD 4, RUN
"\letter" means: press SHIFT and letter
- do not add another program with DATA/READ

10 REM
20 REM LUNAR LANDER
30 REM
40 DIM A(19)
50 FOR I=0 TO 19
60 LET A(I)=READ
70 NEXT I
80 LET V=-50
90 LET H=1500
100 LET R=7000
110 GOTO 300
120 FOR I=0 TO 3
130 FOR X=0 TO 4
140 PRINT CHR$(A(X+5*I));
150 NEXT X
160 PRINT
170 NEXT I
180 RETURN
190 PRINT "THRUST (0-99)?",
200 INPUT F
210 PRINT F
220 PRINT "DURATION (1-10)?",
230 INPUT T
240 CLS
250 IF F*T>R/10 THEN LET F=R/10*T
260 LET R=R-F*T*10
270 LET A=F-32
280 LET H=A*T**2+V*T+H
290 LET V=2*A*T+V
300 LET L=H/100
310 IF L<0 THEN LET L=0
320 IF L>12 THEN LET L=12
330 FOR I=L TO 12
340 PRINT
350 NEXT I
360 IF L>8 THEN GOSUB 120
370 PRINT ,"VELOC","HEIGHT","FUEL"
380 PRINT ,V,H,R
390 IF L<9 THEN GOSUB 120
400 IF L=0 THEN GOTO 440
410 FOR I=1 TO L-1
420 PRINT
430 NEXT I
440 IF H<0 THEN PRINT "**CRASH**"
450 FOR I=1 TO 16
460 PRINT "\A\T";
470 NEXT I
480 IF L>0 THEN GOTO 190
490 IF H<0 OR V<-99 THEN GOTO 520
500 PRINT 100+V;" PERCENT OK"
510 STOP
520 PRINT "TERRIBLE"
530 DATA 0,0,156,0,0,0,8,3,136,0,0,2,3,130,0,134,131,3,131,135
540 STOP