home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 February / 1995-02b.d64 / lunar64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  836b  |  20 lines
  1. 490 print "[147]  lunar landing - jim butterfield."
  2. 500 print"height: 0000"
  3. 510 print"velocy:  000"
  4. 520 print"fuel:    000"
  5. 530 print"thrust: 3"
  6. 540 print " .. use numeric keys (1-9) .."
  7. 550 print " .. to adjust thrust."
  8. 800 sys 2584
  9. 810 v=(peek(1113)-48)*100+(peek(1114)-48)*10+peek(1115)-48
  10. 820 a$="a calamitous crash!"
  11. 830 if v<21 then a$="a smashed ship!"
  12. 840 if v<16 then a$="a wrecked rocket!"
  13. 850 if v<11 then a$="a lumpy landing!"
  14. 860 if v<6 then a$="a perfect touchdown!"
  15. 870 if peek(1112)<>45 and v>0 then a$="out of sky!"
  16. 880 print a$
  17. 890 print
  18. 900 input "another flight";a$
  19. 910 if left$(a$,1)<>"n" goto 490
  20.