fn EExecTR013 &P1 &P2 &P3 OO1 OO2 OO3 A1 A2 A3 Sg1 Sg2 Sg3 FM =
(
	local o1,o2,o3,p1,p2,p3,o4,o5,o6,o7,o8,o9,o10,o11,o12,p4,p5,p6,o13,o14,o15,o16,o17,o18
	if ((OO1==undefined) or (OO2==undefined) or (OO3==undefined)) then return false
	
	CreateCopy &o1 OO1 
	CreateCopy &o2 OO2 
	CreateCopy &o3 OO3 

	EExecP2 &p1 o1 o2 Att0 1 1 "0"
	EExecP2 &p2 o2 o3 Att0 1 1 "0"
	EExecP2 &p3 o3 o1 Att0 1 1 "0"
	EExecO0 &o4 p1 p2 Att5 1 1 "0"
	EExecO0 &o5 p2 p3 Att5 1 1 "0"
	EExecO0 &o6 p3 p1 Att5 1 1 "0"
	EExecO8 &o7 &o8 o4 o5 Att0 Att0 1 -1 "0"
	EExecO8 &o9 &o10 o5 o6 Att0 Att0 1 -1 "0"
	EExecO8 &o11 &o12 o6 o4 Att0 Att0 1 -1 "0"
	EExecPA &p4 o4 Att0 1 "0"
	EExecPA &p5 o5 Att0 1 "0"
	EExecPA &p6 o6 Att0 1 "0"
	EExecO0 &o13 p3 p4 Att5 1 1 "0"
	EExecO0 &o14 p1 p5 Att5 1 1 "0"
	EExecO0 &o15 p2 p6 Att5 1 1 "0"
	EExecUU &o16 o9 o13 Att5 1 1 "0"
	EExecUU &o17 o7 o15 Att5 1 1 "0"
	EExecUU &o18 o11 o14 Att5 1 1 "0"

	CreateCopy &P1 o16 
	P1.FAtt=CopyAtt A1 
	
	CreateCopy &P2 o17 
	P2.FAtt=CopyAtt A2 
	
	CreateCopy &P3 o18 
	P3.FAtt=CopyAtt A3 
	
  	return true
) -- EExecTR013