Moon Lander

Gallery

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