[Данные, строки] Эмуляция midi-контроллера

Structure MIDIDATA
  Channel.b
  Note.b
  Velocity.b
  Null.b
EndStructure
 
midi.MIDIOUTCAPS
devices = midiOutGetNumDevs_()
For devnum = -1 To devices-1
  If midiOutGetDevCaps_(devnum, @midi, SizeOf(MIDIOUTCAPS)) = 0
    If midi\wVoices > 0
      midiport = devnum
    EndIf
  EndIf
Next 

midiport = 1

*hMidiOut = 0
result = midiOutOpen_(@hMidiOut, midiport, 0, 0, 0)
 
Note.b = 60
Vel.b = 100
Channel.b = 1
Instrument.b = 90
 
dMsg.MIDIDATA\Note = Instrument
dMsg\Channel = $bf + Channel
result = midiOutShortMsg_(hMidiOut, PeekW(dMsg))

dMsg\Velocity = Vel
dMsg\Note = Note
dMsg\Channel = $8f + Channel  ;Note On
result = midiOutShortMsg_(hMidiOut, PeekL(dMsg))
Delay(50)
dMsg\Channel = $7f + Channel  ;Note Off
result = midiOutShortMsg_(hMidiOut, PeekL(dMsg))

result = midiOutClose_(hMidiOut)