$I Interface.inc
declare a&
window 0,0-%maxx,%maxy
openmidiin 0

' Mein Callback manipulieren. Das lässt sonst nämlich nur NoteOn/Off durch...
whileloop 23,38
  byte mim#,&loop=$90 ' NOP
endwhile

whilenot scankey(27)
  ' Auf Events warten, aber kein MIDI-Clock und kein NoteOn/Off
  a&=readmidiin()
  if (a&>=0) and (a&<>$F8) and ((a& & $E0)<>$80)
    print right$("0000000"+hex$(a&),8)
  endif
endwhile
closemidiin