“0” to fire rockets, “5” to move left, “8” to move right.
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