490 PRINT "[147]  LUNAR LANDING - JIM BUTTERFIELD."
500 PRINT"HEIGHT: 0000"
510 PRINT"VELOCY:  000"
520 PRINT"FUEL:    000"
530 PRINT"THRUST: 3"
540 PRINT " .. USE NUMERIC KEYS (1-9) .."
550 PRINT " .. TO ADJUST THRUST."
800 SYS 2584
810 V=(PEEK(1113)-48)*100+(PEEK(1114)-48)*10+PEEK(1115)-48
820 A$="A CALAMITOUS CRASH!"
830 IF V<21 THEN A$="A SMASHED SHIP!"
840 IF V<16 THEN A$="A WRECKED ROCKET!"
850 IF V<11 THEN A$="A LUMPY LANDING!"
860 IF V<6 THEN A$="A PERFECT TOUCHDOWN!"
870 IF PEEK(1112)<>45 AND V>0 THEN A$="OUT OF SKY!"
880 PRINT A$
890 PRINT
900 INPUT "ANOTHER FLIGHT";A$
910 IF LEFT$(A$,1)<>"N" GOTO 490