home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MINOTAUR.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  457b  |  14 lines
  1. 10  READ N
  2. 20  FOR I = 1 TO N: READ GAME$(I): NEXT 
  3. 30  HOME : PRINT "DATA DISK #3"
  4. 40  VTAB 7
  5. 50  FOR I = 1 TO N: PRINT I;: FOR X = 1 TO 30 - LEN(GAME$(I)): PRINT ".";: NEXT : PRINT GAME$(I): NEXT : PRINT : PRINT : PRINT 
  6. 60  PRINT "CHOOSE ONE:";: GET X$
  7. 65  PRINT X$
  8. 70  ONERR  GOTO 120
  9. 80 D =  VAL(X$)
  10. 90  ONERR  GOTO 0
  11. 100  IF D >N  OR D <0  THEN  RUN 
  12. 110  PRINT  CHR$(4);"BRUN";GAME$(D)
  13. 120  RUN 
  14. 130  DATA  4,LEMMINGS,PHASER FIRE,COUNTY FAIR,MINOTAUR