Moon!ander 267
220 LOCATE 1,24:PRINT"FueI ";F;"
230 SOUND 1,60,2
240 IF INKEY(0)=0 THEN E=0
250 IF INKEY(2)=0 THEN E=1
260 IF INKEY(8)=0 THEN COL=COL+1*(COL>1) 270 IF INKEY(1)=0 THEN COL=COL-1*(COL<30
280 IF H>1950 THEN H1=H
290 IF H>2000 OR H<1 THEN LOCATE 1,1:PRI NT CHR$(18);:GOTO 320
300 LOCATE COL1+1,21-(H1/100):PRINT" ":L OCATE COL+1,21-(H/100):PRINT CHR$(231); 310 IF E=1 THEN LOCATE COL1+1,22-(H1/100 ):PRINT" ":LOCATE COL+1,22-(H/100):PRINT
CHR$(232);:LOCATE COL+1,22-(H/100):PRIN T"
320 LOCATE 1,21:PRINT STRING$(32,45):LOC ATE 16,21:PEN 3:PRINT"_":PEN 1
330 IF F=0 OR H<=0 THEN 350
340 GOTO BO
350 IF F=0 THEN LOCATE 11,11:PRINT CHR$( 24);"OUT OF FUEL";CHR$(24);
360 IF H<=0 AND V<-5 THEN LOCATE 9,12:PE
2:PRINT CHR$(24);"YOU HAVE CRASHED";CH R$(24);:PEN 1:GOTO 430
370 IF H<=0 AND V>-6 THEN LOCATE 9,12:PE
3:PRINT CHR$(24);"YOU HAVE LANDED";CHR $(24);:PEN 1:LOCATE COL1+1,(20-(H1/100)) +1:PRINT " ":LOCATE COL+1,21:PRINT CHR$( 231);
380 IF H<=0 AND V>-6 AND COL =15 THEN LO CATE 6,13:PRINT CHR$(24);"IN THE CORRECT PLACE";CHR$(24);
390 IF H<=0 AND V>-6 AND COL <>15 THEN L OCATE 7,13:PEN 2:PRINT CHR$(24);"IN THE WRONG PLACE";CHR$(24):PEN 1
400 LOCATE 5,19:PEN 3:PRINT"PRESS ANY KE
•	TO RESTART":PEN 1
410 IF INKEY$<>"" THEN 410
420 IF INKEY$="" THEN 420 ELSE CLS:GOTO 50
430 LOCATE COL1+1,(20-(H1/100))+1:PRINT" ":LOCATE COL1+1,21:PEN 3: PRINT CHR$(233 );:PEN 1