;@ ins k k
;@ outs k
opcode PCSend, 0, kkkkk
  kProg, kCh, ksend, kvalue, kout xin

  kSend zkr ksend
  kValue zkr kvalue
  kOut init 0

  kValue limit kProg + kValue * 127, 0, 127
  kTrig changed kValue
  if kTrig == 0 goto Halt
  	midiout 192, kCh, kValue, 0 ; GENERIC PC MESSAGE
    kOut = 1
Halt:
  zkw kOut, kout
  kOut = 0 ; reset after send
endop
