home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / MIDI.MENU.bas < prev    next >
BASIC Source File  |  2020-08-13  |  2KB  |  75 lines
  1. 1  REM  MIDI.MENU
  2. 5 RM$ = "/RAMAEPC/":PJ$ = "/HARD/PROJECT/"
  3. 6 CC$ = "/ERIC/CONCERTS/"
  4. 7 BY$ = "S5,D1": REM  DRIVE TO BOOT WHEN EXITING
  5. 8 AL$ = "/ERIC/ALBUMS/"
  6. 10 D$ =  CHR$(4)
  7. 105 TB = 8
  8. 107  PRINT  CHR$(21)
  9. 110  TEXT : HOME : HTAB 16: PRINT "MIDI MENU"
  10. 120  HTAB 16: PRINT "========="
  11. 130  PRINT 
  12. 140  GOSUB 10000: REM  PRINT MENU
  13. 195  PRINT 
  14. 200  PRINT "YOUR CHOICE: ";: GET W$
  15. 205  IF  VAL(W$) = 0  AND  LEFT$(W$,1) < >"0"  THEN 100
  16. 206  IF  LEFT$(W$,1) = "0"  THEN 9000
  17. 250  PRINT D$"OPEN"RM$"RETURN": PRINT D$"CLOSE": PRINT D$"DELETE "RM$"RETURN"
  18. 300  ON  VAL(W$) GOTO 2000,3000,1000,4000,5000,6000,7000,8000,9900
  19. 1000  REM  LIBRARY
  20. 1005  PRINT  CHR$(4)"PREFIX/ERIC/"
  21. 1010  PRINT  CHR$(4)"-"PJ$"LIBRARY"
  22. 1099  END 
  23. 2000  REM   SEQUENCER  
  24. 2010  PRINT  CHR$(4)"PREFIX"PJ$
  25. 2015  POKE 12 *4096 +10 *16 +8,19: POKE 12 *4096 +10 *16 +8,17
  26. 2020  PRINT  CHR$(4)"-SEQUENCER"
  27. 2099  END 
  28. 3000  REM   REALTIME MIDI  
  29. 3010  PRINT  CHR$(4)"PREFIX"PJ$
  30. 3020  PRINT  CHR$(4)"-MIDIGRID"
  31. 3099  END 
  32. 4000  PRINT  CHR$(4)"PREFIX"CC$
  33. 4001  REM  CONCERT
  34. 4005  TEXT : HOME 
  35. 4010  PRINT  CHR$(4)"-"RM$"LISTEN"
  36. 4020  END 
  37. 4099  END 
  38. 5000  REM    STEP RECORDER
  39. 5020  PRINT  CHR$(4)"-"PJ$"RECORDER"
  40. 5099  END 
  41. 6000  REM    SEQ EDITOR
  42. 6020  PRINT  CHR$(4)"-"PJ$"EDIT"
  43. 6099  END 
  44. 7000  PRINT  CHR$(4)"PREFIX"AL$
  45. 7001  REM   ALBUM LOADER
  46. 7005  TEXT : HOME 
  47. 7010  PRINT  CHR$(4)"-"PJ$"RELOAD"
  48. 7099  END 
  49. 8000  REM     BKGND CNTLPANEL
  50. 8010  PRINT  CHR$(4)"PREFIX"PJ$
  51. 8020  PRINT  CHR$(4)"-DISP"
  52. 8099  END 
  53. 9000  END 
  54. 9900  TEXT : HOME : PRINT  CHR$(4)"PREFIX,"BY$: PRINT  CHR$(4)"BYE"
  55. 9999  END 
  56. 10000  HTAB TB: PRINT "1) SEQUENCER"
  57. 10005  PRINT 
  58. 10010  HTAB TB: PRINT "2) REALTIME MIDI DISPLAY"
  59. 10015  PRINT 
  60. 10020  HTAB TB: PRINT "3) MUSIC LIBRARY"
  61. 10025  PRINT 
  62. 10030  HTAB TB: PRINT "4) LISTEN TO A CONCERT"
  63. 10035  PRINT 
  64. 10040  HTAB TB: PRINT "5) STEP RECORDER"
  65. 10045  PRINT 
  66. 10050  HTAB TB: PRINT "6) SEQUENCE EDITOR"
  67. 10055  PRINT 
  68. 10060  HTAB TB: PRINT "7) BACKGROUND LOADER"
  69. 10065  PRINT 
  70. 10070  HTAB TB: PRINT "8) BACKGROUND CONTROL PANEL"
  71. 10075  PRINT 
  72. 10080  HTAB TB: PRINT "9) QUIT TO PRODOS"
  73. 10085  PRINT 
  74. 10090  HTAB TB: PRINT "0) QUIT TO BASIC"
  75. 10100  RETURN