function EExecK1 &out_prm1 in_prm1 in_prm2 in_prm3 in_prm4 in_prm5 in_prm6 in_prm7 in_prm8 Att_1 Sg1 Sg2 Sg3 Sg4 Sg5 Sg6 Sg7 Sg8 FM =
(
	local l1,a1,b1,c1,l2,a2,b2,c2,o3,o4,o5,o6,p7,p8,p9,p10,ksi1
	if ((in_prm1==undefined) or (in_prm2==undefined) or (in_prm3==undefined) or (in_prm4==undefined) or (in_prm5==undefined) or (in_prm6==undefined) or (in_prm7==undefined) or (in_prm8==undefined)) then return false

	
	local l1,a1,b1,c1,l2,a2,b2,c2,o3,o4,o5,o6,p7,p8,p9,p10,ksi1

   	CreateCopy &l1 in_prm1 
   	l1.FAtt=CopyAtt in_prm1.FAtt

   	CreateCopy &a1 in_prm2
   	a1.FAtt=CopyAtt in_prm2.FAtt

   	CreateCopy &b1 in_prm3
   	b1.FAtt=CopyAtt in_prm3.FAtt

   	CreateCopy &c1 in_prm4
   	c1.FAtt=CopyAtt in_prm4.FAtt

   	CreateCopy &l2 in_prm5
   	l2.FAtt=CopyAtt in_prm5.FAtt

   	CreateCopy &a2 in_prm6 
   	a2.FAtt=CopyAtt in_prm6.FAtt

   	CreateCopy &b2 in_prm7
   	b2.FAtt=CopyAtt in_prm7.FAtt

   	CreateCopy &c2 in_prm8
   	c2.FAtt=CopyAtt in_prm8.FAtt

   	EExecO0 &o3 b1 a1 Att5 Sg3 Sg2 "0"
   	EExecO0 &o4 c1 a1 Att5 Sg4 Sg2 "0"
   	EExecO0 &o5 b2 a2 Att5 Sg7 Sg6 "0"
   	EExecO0 &o6 c2 a2 Att5 Sg8 Sg6 "0"
   	EExecP2 &p7 o3 l1 Att0 1 Sg1 "0"
   	EExecP2 &p8 o4 l1 Att0 1 Sg1 "0"
   	EExecP2 &p9 o5 l2 Att0 1 Sg5 "0"
   	EExecP2 &p10 o6 l2 Att0 1 Sg5 "0"
   	EExecK0 &ksi1 b1 p7 p8 c1 b2 p9 p10 c2 Att0 Sg3 1 1 Sg4 Sg7 1 1 Sg8 "0"

   	CreateCopy &out_prm1 ksi1
   	out_prm1.FAtt=CopyAtt Att_1

   	return true
) -- EExecK1