home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / KLANCOOK.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  434b  |  7 lines
  1. 10  TEXT : HOME : INVERSE : PRINT "THIS DISK HAS BRIAN'S FAVORITE GAMES.": NORMAL 
  2. 20 T$(1) = "JUMPJET":T$(2) = "TROMPERS":T$(3) = "KLAN COOKOUT":T$(4) = "BATS IN THE BELFRY"
  3. 25  VTAB 4
  4. 30  FOR X = 1 TO 4: PRINT "<"X"> "T$(X): NEXT 
  5. 40  VTAB 9: PRINT "  WHICH <?>"; CHR$(8); CHR$(8);: GET A$: PRINT A$: IF  VAL(A$) <1  OR  VAL(A$) >4  THEN 40
  6. 45  IF A$ = "3"  THEN  PRINT  CHR$(4)"RUNKLAN COOKOUT"
  7. 50  PRINT  CHR$(4)"BRUN"T$( VAL(A$))