SYS "system","sudo modprobe snd-virmidi snd_index=0" SYS "system","aconnect 20:0 128:0" REPEAT FOR x=0 TO 1: READ b0,b1,b2 PROC_pmn(b0,b1,b2) NEXT x: RESTORE WAIT 25 UNTIL FALSE END DEF PROC_pmn(b0,b1,b2) OSCLI "amidi -p hw:1,0 -S'"+STR$~(b0)+""+STR$~(b1)+""+STR$~(b2)+"';" ENDPROC DATA 144,60,127, 176,123,0
SYS "system","sudo modprobe snd-virmidi snd_index=0" SYS "system","aconnect 20:0 128:0" SYS "open", "/dev/midi1", 2, 0 TO hmidi% IF hmidi% = -1 ERROR 100, "Failed to open MIDI output port" REPEAT FOR x=0 TO 1 READ b0,b1,b2 PROC_pmn(hmidi%,b0,b1,b2) NEXT x RESTORE WAIT 25 UNTIL FALSE END DEF PROC_pmn(h%,b0,b1,b2) LOCAL packet{} DIM packet{0&,1&,2&} packet.0& = b0 packet.1& = b1 packet.2& = b2 SYS "write", h%, packet{}, DIM(packet{}) ENDPROC DATA 144,60,127, 176,123,0 SYS "system","sudo modprobe snd-virmidi snd_index=0" SYS "system","aconnect 20:0 128:0" A=OPENOUT(/dev/midi1)REM: /dev/snd/midiC1D0 ??? REPEAT PRINT#A"90 3C 7F" PRINT#A"90 3C 0" WAIT 25 UNTIL FALSE