$I Interface.inc
declare a&
cls
openmidiin 0
openmidiout 0
playmidiout $30C1 ' Kanal 2 auf Strings umstellen
whilenot scankey(27)
  ' Auf NoteOn/Off warten
  a&=readmidiin()
  if (a&>=0) and ((a& & $E0)=$80)
    playmidiout a& & $7F7F90 ' Ja, spielen wir so ab, aber auf Kanal 1
    playmidiout a& & $7F7F90 + $000901 ' Und dasselbe 9 Halbtöne höher auf Kanal 2
  endif
endwhile
closemidiin
closemidiout