save all midi note offs until last key's

filteroffs

@OnLoad
  counter = 0
  fillarray noteoffs, 20, 0
  fillarray channels, 20, 0
  suppressed = 0
@END

@OnMidiNoteOn
  inc counter
  sendmidithru
@END

@OnMidiNoteOff
 dec counter
 if counter = 0
   if suppressed > 0
     cnt = 0
     while noteoffs[cnt] > 0
       chan = channels[cnt]
       note = noteoffs[cnt]
       sendmidinoteoff chan, note, 0
       inc cnt
     endwhile
     fillarray noteoffs, 20, 0
     fillarray channels, 20, 0
     suppressed = 0
   endif
   sendmidithru
 else
   noteoffs[suppressed] = midibyte2
   channels[suppressed] = midibyte1
   inc suppressed
 endif
 
@END