fn EExecA9 &OB X Att Sg1 FM =
(
	if (X==undefined) then return false
	if X.OB=="C" then
	(
		TOChisl_Create &OB (CompSg (CompSqrt X.C) Sg1) Att
	) else if (Att.Chk==1) then TOEmpty_Create &OB Att
	
	return true
) -- EExecA9