opcode NoteRcv, 0, kk
   kNote, kChnl xin
  
  kstatus, kchan, kdata1, kdata2 midiin

  if (kstatus==144 && kchan==kChnl && kdata1==kNote) then
  	zkw kdata2, 1 ;CHANGE
  	zkw 1, 2 ;CHANGE   - GATE
  	zkw kdata1/128, 3; CHANGE - CHECK SCALING?
  endif


endop
