on init
    message("")      {clears the status bar}
    set_ui_height_px(100)
    make_perfview {makes this UI visible outside the edit mode}

declare i


     declare ui_switch $Top_Led
     set_control_par_str(get_ui_id($Top_Led),$CONTROL_PAR_TEXT,"")
     set_control_par(get_ui_id($Top_Led), $CONTROL_PAR_WIDTH, 25)
     set_control_par(get_ui_id($Top_Led), $CONTROL_PAR_HEIGHT, 25)
     move_control_px($Top_Led,194,22)

end on

on ui_control ($Top_Led)
            if ($Top_Led =0)
    $i := 0
    while ($i < 50)
        purge_group($i,0)
        inc($i)
    end while
  else
    $i := 0
    while ($i < 50)
        purge_group($i,1)
        inc($i)
    end while
  end if
end on