home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 109A.DSK / HELLO.bas next >
BASIC Source File  |  2014-09-09  |  600b  |  15 lines
  1. 10  TEXT : HOME : VTAB 5: PRINT "   [1] - SNOGGLE"
  2. 20  PRINT : PRINT "   [2] - TERRITORY"
  3. 30  PRINT : PRINT "   [3] - STAR BLASTER"
  4. 40  PRINT : PRINT "   [4] - ZARGS"
  5. 50  VTAB 3: PRINT "SELECT:";: POKE  -16368,0: GET A$: PRINT A$
  6. 60  IF A$ = "1"  THEN 110
  7. 70  IF A$ = "2"  THEN  PRINT "<CTRL-D>BRUNTERRITORY"
  8. 80  IF A$ = "3"  THEN 130
  9. 90  IF A$ = "4"  THEN  PRINT "<CTRL-D>BRUNZARGS"
  10. 100  GOTO 50
  11. 110  PRINT "<CTRL-D>BRUN SNOGGLE START"
  12. 120  PRINT "<CTRL-D>BRUN SNOGGLE"
  13. 130  POKE  -16304,0: POKE  -16302,0: POKE  -16297,0
  14. 140  PRINT "<CTRL-D>BLOAD STAR BLAST2"
  15. 150  PRINT "<CTRL-D>BRUN STAR BLASTER"