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

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

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