on init
on midi_in
select($MIDI_BYTE_1)
case 04
message("Prog A")
$prog_num := 0
set_midi($MIDI_CHANNEL,$MIDI_COMMAND_PROGRAM_CHANGE,$prog_num,0)
case 06
message("Prog B")
$prog_num := 1
set_midi($MIDI_CHANNEL,$MIDI_COMMAND_PROGRAM_CHANGE,$prog_num,0)
case 08
message("Prog C")
$prog_num := 2
set_midi($MIDI_CHANNEL,$MIDI_COMMAND_PROGRAM_CHANGE,$prog_num,0)
case 09
message("Prog D")
$prog_num := 3
set_midi($MIDI_CHANNEL,$MIDI_COMMAND_PROGRAM_CHANGE,$prog_num,0)
end select
end if
end on