Lander

Gallery

Source Code

  10 REM 
  20 LET S=0
  30 LET M=2
  40 PAUSE 60
  50 CLS 
  60 PRINT AT 20,17;"SCORE ";S
  70 SLOW 
  80 PRINT ,"MEN LEFT ";M
  90 LET L=0
 100 PRINT AT 18,0;"/  // /  ///   /// / //// /   //"
 110 PRINT "////////////\''\''\''/////////////////"
 120 LET K=0
 130 LET A=3
 140 LET B=A
 150 PRINT AT A,B;"\.'\;;\'."
 160 IF INKEY$="0" THEN GOTO 250
 170 IF A=18 THEN GOTO 310
 180 LET L=L+.5
 190 PRINT AT A,B;"   "
 200 LET A=A+L
 210 IF A<0 THEN LET A=0
 220 IF INT (A)>=18 THEN LET A=18
 230 LET B=B+(INKEY$="8" AND B<29)-(INKEY$="5" AND B>0)
 240 GOTO 150
 250 PRINT TAB B;"VVV"
 260 LET L=L-(2.3 AND L>0)
 270 LET K=K+1
 280 IF K=20 THEN GOTO 510
 290 PRINT AT A+1,B;"   "
 300 GOTO 170
 310 IF B<>12 THEN GOTO 380
 320 IF L>1.5 THEN GOTO 380
 330 IF L*10<0 THEN LET L=.1
 340 PRINT AT 20,0;"YOU LANDED","GOING ";INT (L*10);" MPH."
 350 LET S=S+1500+(K*100)
 360 IF L=.1 THEN LET S=S+1500
 370 GOTO 40
 380 LET Z=0
 390 PRINT AT A-1,B+1;"*"
 400 PRINT TAB B;"***"
 410 PRINT TAB B+1;"*"
 420 IF Z=1 THEN GOTO 450
 430 IF L*17<0 THEN LET L=L+2
 440 PRINT AT 20,0;"YOU CRASHED",,"GOING ";INT (L*17);" MPH."
 450 LET M=M-1
 460 IF M=-1 THEN GOTO 480
 470 GOTO 40
 480 PRINT AT 11,12;"GAME OVER"
 490 PAUSE 500
 500 RUN 
 510 PRINT AT 20,0;"YOU RAN OUT",,"OF FUEL"
 520 PAUSE 60
 530 FOR A=A TO 18
 540 PRINT AT A,B;"   ";TAB B;"\.'\;;\'."
 550 NEXT A
 560 LET Z=1
 570 GOTO 390