home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 26A.DSK / ASTEROIDS.bas < prev    next >
BASIC Source File  |  2014-09-09  |  756b  |  20 lines
  1. 0 D$ = "<CTRL-D>"
  2. 9  HOME 
  3. 10  VTAB 1
  4. 11  PRINT "ASTEROIDS BY MARC GOODMAN"
  5. 12  PRINT "ADVENTURE INTERNATIONAL"
  6. 13  PRINT "BOX 3435"
  7. 14  PRINT "LONGWOOD FL. 32750"
  8. 15  PRINT "PHONE: (305)-862-6917"
  9. 16  PRINT "(C) 1980. ALL RIGHTS RESERVED"
  10. 30  PRINT : PRINT "SELECT FROM FOUR VERSIONS:"
  11. 40  PRINT : PRINT "1. EASY (ALL FRAGMENTS FROM EXPLOSIONS     BECOME EXPLOSIVE)"
  12. 45  PRINT 
  13. 50  PRINT "2. REGULAR (ALL THE FEATURES FOUND IN      THE ARCADE GAME)"
  14. 55  PRINT 
  15. 60  PRINT "3. HARD (ASTEROIDS ARE ATTRACTED TO YOUR   SHIP)
  16. 65  PRINT : PRINT "4. HARDEST (CONSERVATION OF MOMENTUM)"
  17. 66  PRINT : PRINT "5. EASIEST (BELIVE ME!)"
  18. 70  VTAB (23): PRINT "WHICH (1 TO 5)? ";: GET A$: PRINT A$
  19. 80 A =  VAL(A$): IF A <1  OR A >5  THEN 70
  20. 81  PRINT D$"BRUNASTEROIDS.";A