Radio button like keyswitch written in KONTAKT KSP

exclusive_key_switch.ksp

{
 Radio button like keyswitch 
 The pressed key indicates selected state.
}
on init
  set_key_pressed_support(1)
  declare $n := 48
  while ($n < 60)
    set_key_color($n, $KEY_COLOR_RED)
    inc($n)
  end while

  declare $mode := 0
  set_key_pressed(48 + $mode, 1)
  message("mode = " & $mode)
end on

on note
  if (in_range($EVENT_NOTE, 48, 59))
    $mode := $EVENT_NOTE - 48
    $n := 48
    while ($n < 60)
      if ($n = $EVENT_NOTE)
        set_key_pressed($n, 1)
      else
        set_key_pressed($n, 0)
      end if
      inc($n)
    end while
    message("mode = " & $mode)
  end if
end on