on init
 declare ui_slider $Slider1(165000*2, 1)
 declare $value
 make_persistent($Slider1)
 declare $k_Slider1
 $k_Slider1 := get_ui_id($Slider1)
 set_control_par_str($k_Slider1, $CONTROL_PAR_PICTURE, „Slider1“)
 set_control_par($k_Slider1, $CONTROL_PAR_POS_X, 512)
 set_control_par($k_Slider1, $CONTROL_PAR_POS_Y, 141)
 set_control_par($k_Slider1, $CONTROL_PAR_MOUSE_BEHAVIOUR, $mouse_resp)
end on
on ui_control($Slider1)
 if ($Slider1 < 165000)
   $value := $Slider1
 else
   $value := 165000 - ($Slider1 - 165000)
 end if
   set_engine_par($ENGINE_PAR_GN_GAIN, 629961 + $value, -1, 2, $NI_MAIN_BUS)
end on