fn EExecA7 &OB X Att Sg1 FM =
(
	if (X==undefined) then return false

	if X.OB=="C" then
	(
		TOChisl_Create &OB CompSg( (Complex (Sqrt (Sqr X.C.Re)+(Sqr X.C.Im)) 0.) Sg1) Att
	) else 
	( 
		if (Att.Chk==1) then TOEmpty_Create &OB Att
	)
	return true
) -- EExecA7