fn EExecTR018 &out_Prm1 in_Prm1 in_Prm2 in_Prm3  Att_1 Sg1 Sg2 Sg3 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined)) then return false

	local  d1,d2,d3,d4,o4,o5,o6,p1,p3,p4,p5,p6,p7,p8,p9

	CreateCopy &o1 in_Prm1
	o1.FAtt=in_Prm1.FAtt

	CreateCopy &o2 in_Prm2
	o2.FAtt=in_Prm2.FAtt

	CreateCopy &o3 in_Prm3
	o3.FAtt=in_Prm3.FAtt

	EExecTR012 &o4 &o5 &o6  o1 o2 o3  att5 att5 att5  1 1 1  "0"
	EExecP2 &p1  o1 o2  att0  1 1  "0"
	EExecP2 &p3  o3 o1  att0  1 1  "0"
	EExecP2 &p4  o4 o6  att0  1 1  "0"
	EExecP2 &p5  o1 o6  att0  1 1  "0"
	EExecP2 &p6  o2 o4  att0  1 1  "0"
	EExecD4 &d1  p3 p4 p5  att5  1 1 1  "0"
	EExecPA &p7  d1  att0  1  "0"
	EExecD4 &d2  p5 p4 p1  att5  1 1 1  "0"
	EExecPA &p8  d2  att0  1  "0"
	EExecD4 &d3  p4 p6 p1  att5  1 1 1  "0"
	EExecPA &p9  d3  att0  1  "0"
	EExecD4 &d4  p9 p8 p7  att5  1 1 1  "0"

	CreateCopy &out_Prm1 d4
	out_Prm1.FAtt=d4.FAtt

	return true
) -- EExecTR018