! EncZoomGotoUWL.scr
	! Go To Upper Wand Limit

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

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

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