;@ ins k k
;@ outs k k
opcode WindSw, 0, KK
  kFrom, kTo xin
  kCtrl zkr 1; CHANGE
  kOut init 0
  
  if (kCtrl >= kFrom && kCtrl <= kTo ) then
  	kOut = 1
  	goto run
  endif
  kOut = 0
run:
  zkw kOut, 1 ; CHANGE
endop
