home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MASTER.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  550b  |  9 lines
  1. 10  TEXT : HOME 
  2. 20 D$ =  CHR$(13) + CHR$(4)
  3. 30 Z$(1) = "SUPER HUEY":Z$(2) = "MASTER OF THE LAMPS":Z$(3) = "SUPER HUEY DOCS":Z$(4) = "MASTER OF THE LAMPS DOCS"
  4. 40  VTAB 10: FOR X = 1 TO 4: HTAB 10: PRINT "["X"] "Z$(X): NEXT 
  5. 50  VTAB 15: HTAB 10: PRINT "[ ]" CHR$(8) CHR$(8);: GET A$
  6. 60  PRINT A$: IF  VAL(A$) <1  OR  VAL(A$) >4  THEN 50
  7. 70  IF A$ = "1"  OR A$ = "2"  THEN  PRINT D$"BRUN"Z$( VAL(A$))
  8. 80  HOME : PRINT "ANY KEY...";: GET B$: PRINT : PRINT D$"TLOAD"Z$( VAL(A$)): PRINT D$"TLIST": PRINT : PRINT "ANY KEY...";: GET B$: PRINT 
  9. 90  GOTO 10