10 REM > MIDI-IN
   20 REM Simple MIDI-IN Player
   22 :
   23 mCtrl%=&FCF0:mData%=mCtrl%+1
   30 :
   40 REPEAT
   50   REPEATUNTIL?mCtrl%AND1:note%=?mData%:PRINT note%;
   60   IF note%<128:note%=note%*4-139:SOUND &11,-10,note%,20
   70 UNTIL0

Download MIDI-IN1

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.