Source Code
5 REM "MOONLANDER"
10 LET A=21-INT (RND*60)
20 LET B=120+INT (RND*380)
30 LET C=321+INT (RND*90)
40 CLS
50 PRINT ,"HEIGHT ";INT B,,"SPEED ";INT A,,"FUEL ";INT C
60 PRINT AT (15-B/100),(5+RND*3-RND*3);"\.'\'."
70 PRINT AT 21,0;"THRUST?"
80 INPUT T
90 IF T>C THEN LET T=0
100 LET C=C-T
110 LET B=B+A+(T-5)/2
120 LET A=A+(T-5)/2
130 IF C<1 AND B>100 THEN GOTO 180
140 IF B>19 THEN GOTO 40
150 IF ABS B<20 AND ABS A<15 THEN PRINT AT 21,0;"YOU HAVE LANDED SAFETLY STOP "
170 IF C>1 THEN GOTO 190
180 PRINT AT 20,0;"YOU HAVE RUN OUT OF FUEL"
190 PRINT AT 21,0;"CRASHED AT ";ABS A;"MPS"
200 STOP
210 SAVE "1022%7"
220 RUN
