! EncZoomArtifMask.scr
	! Encoded Zoom Artifact Mask
	! Resaves the current mask for a zone of the Zoom Calibrate Artifact

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

	gosub CLR_STATUS_MSG_ALL
	gosub SET_SCRIPT_STATUS_FAIL
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Resave Zone Mask"
	gosub SET_STATUS_MSG_1
	
	! -----------------------------------------------------------------------------------------------
	gosub GET_ARTIF_ZONE ! Get control value into var ArtifZone%
	
	! -----------------------------------------------------------------------------------------------
	ofmti("%02d")
	fn$ = "EncZoomArtifZ" & val$(ArtifZone%) & ".mas"
	savemasks(fn$)
	
	! -----------------------------------------------------------------------------------------------
	msg$ = "Saved masks file " & fn$
	gosub SET_STATUS_MSG_2
	
	! -----------------------------------------------------------------------------------------------
	gosub SET_SCRIPT_STATUS_PASS

	! -----------------------------------------------------------------------------------------------
	end

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