! EncZoomGotoLWL.scr
	! Go To Lower Wand Limit

	! -----------------------------------------------------------------------------------------------
loadsub "EncZoomGlob.scr"
	! -----------------------------------------------------------------------------------------------

	gosub CLR_STATUS_MSG_ALL
	gosub SET_SCRIPT_STATUS_FAIL
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Go To LWL"
	gosub SET_STATUS_MSG_1
	
	! -----------------------------------------------------------------------------------------------
	gosub GET_LOWER_WAND_LIMIT ! Gets control value into var LowerWandLimit
	if LowerWandLimit <= 0 then
		msg$ = " The Lower Wand Limit control is not set "
		gosub SHOW_ERROR_DIALOG
		stop
	endif
	
	! -----------------------------------------------------------------------------------------------
	ofmtr("%.0f")
	msg$ = "Moving to " & val$(LowerWandLimit)
	gosub SET_STATUS_MSG_2
	
	! -----------------------------------------------------------------------------------------------
	TargPos = LowerWandLimit
	gosub MOVE_AND_CHECK_POS_ERROR ! Uses vars TargPos and PosErrorTol, sets vars CurPos and PosError
	
	! -----------------------------------------------------------------------------------------------
	ofmtr("%.0f")
	msg$ = "Moved to " & val$(LowerWandLimit)
	msg$ = msg$ & ", CurPos = " & val$(CurPos) & ", PosError = " & val$(PosError)
	gosub SET_STATUS_MSG_2
	gosub SET_SCRIPT_STATUS_PASS
	
	! -----------------------------------------------------------------------------------------------
	end

	! -----------------------------------------------------------------------------------------------
loadsub "EncZoomSubs.scr"
	! -----------------------------------------------------------------------------------------------