function EExecGB &OOO Spis Att FM = ( local OB,S if (Spis==undefined) then return false if (Spis.Count<1) then ( TOEmpty_Create &OOO Att Result=true return Result ) OB=Spis[1]; S=OB.B; for I=2 to Spis.Count do ( OB=Spis[I]; S=S or OB.B; ) TOUsl_Create &OOO S Att return true ) -- EExecGB