home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / STARTUP.bas < prev   
BASIC Source File  |  2020-08-13  |  487b  |  14 lines
  1. 10  HOME 
  2. 20  PRINT "TODAY'S MENU:"
  3. 30  PRINT : PRINT "1) MIDI CONCERT": PRINT 
  4. 40  PRINT "2) JOYSTICK MIDI CONTROLLER": PRINT 
  5. 50  PRINT "3) LOAD AUTO-REPEAT DRIVER": PRINT 
  6. 90  PRINT "ENTER SELECTION:";
  7. 100  GET I$: PRINT I$
  8. 105  IF I$ = "0"  THEN  END 
  9. 110  IF I$ <"1"  OR I$ >"3"  THEN 90
  10. 120  ON  VAL(I$) GOTO 1100,1200,1000
  11. 1000  PRINT  CHR$(4)"BRUN AUTORPT.OBJ": PRINT  CHR$(4)"-STARTUP"
  12. 1010  END 
  13. 1100  PRINT  CHR$(4)"RUN MAKECONCERT": END 
  14. 1200  PRINT  CHR$(4)"RUN JOYCTRL.BAS"