home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / PROGCHG.bas < prev    next >
BASIC Source File  |  2020-08-13  |  349b  |  14 lines
  1. 1  REM  MIDI PROGRAM CHANGER
  2. 2  HOME 
  3. 3  REM  ROUTER,INTRFACE, & PROGCHG MUST BE IN MEMORY
  4. 5 MSG =  PEEK(11) + PEEK(12) *256 +4
  5. 10  INPUT "MIDI CHANNEL (1-16):";C
  6. 20  INPUT "PROGRAM (1-128):";P
  7. 30  INPUT "VARIATION (0-127):";V
  8. 40  POKE MSG, ASC("P") +128
  9. 50  POKE MSG +1,C
  10. 60  POKE MSG +2,P
  11. 70  POKE MSG +3,V
  12. 80 X =  USR(28)
  13. 150  PRINT 
  14. 160  GOTO 10