integer array Mx1,Mx2,Mx3,Mx4,Mx5,Mx6,Mx7,Mx8
integer Nm = 0,nmm = 0

// Для версий -1.23
// function GetHandleId takes handle h returns integer
// return h
// return 0
// endfunction


//бинарный
define {
    LoadStructBinary(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        if (Nm > 32764) {
            if (Nm > 49146) {
                if (Nm > 57337) {
                    stuct = Mx8[Nm - 57337]
                } else {
                    stuct = Mx7[Nm - 49146]
                }
            } elseif (Nm > 40955) {
                stuct = Mx6[Nm - 40955]
            } else {
                stuct = Mx5[Nm - 32764]
            }
        } elseif (Nm > 16382) {
            if (Nm > 24573) {
                stuct = Mx4[Nm - 24573]
            } else {
                stuct = Mx3[Nm - 16382]
            }
        } elseif (Nm > 8191) {
            stuct = Mx2[Nm - 8191]
        } else {
            stuct = Mx1[Nm]
        }
    }
        
    SaveStructBinary(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        if (Nm > 32764) {
            if (Nm > 49146) {
                if )Nm > 57337) {
                    Mx8[Nm - 57337] = stuct
                } else {
                    Mx7[Nm - 49146] = stuct
                }
            } elseif (Nm > 40955) {
                Mx6[Nm - 40955] = stuct
            } else {
                Mx5[Nm - 32764] = stuct
            }
        } elseif (Nm > 16382) {
            if (Nm > 24573) {
                Mx4[Nm - 24573] = stuct
            } else {
                Mx3[Nm - 16382] = stuct
            }
        } elseif (Nm > 8191) {
            Mx2[Nm - 8191] = stuct
        } else {
            Mx1[Nm] = stuct
        }
    }

    //упорядочный 2
    LoadStruct2(Handle,stuct) ={
        Nm = GetHandleId(Handle)-1048500
        nmm =Nm/8191
        if (nmm == 0 ) {
            stuct = Mx1[Nm]
        } elseif (nmm == 1) {
            stuct = Mx2[Nm-8191]
        } elseif (nmm == 2) {
            stuct = Mx3[Nm - 16382]
        } elseif (nmm == 3) {
            stuct = Mx4[Nm - 24573]
        } elseif (nmm == 4) {
            stuct = Mx5[Nm - 32764]
        } elseif (nmm == 5) {
            stuct = Mx6[Nm - 40955]
        } elseif (nmm == 6) {
            stuct = Mx7[Nm - 49146]
        } else {
            stuct = Mx8[Nm - 57337]
        }
    } 
    
    SaveStruct2(Handle,stuct) ={
        Nm = GetHandleId(Handle)-1048500
        nmm =Nm/8191
        if (nmm == 0) {
            Mx1[Nm] = stuct
        } elseif (nmm == 1) {
            Mx2[Nm-8191] = stuct
        } elseif (nmm == 2) {
            Mx3[Nm - 16382] = stuct
        } elseif (nmm == 3) {
            Mx4[Nm - 24573] = stuct
        } elseif (nmm == 4) {
            Mx5[Nm - 32764] = stuct
        } elseif (nmm == 5) {
            Mx6[Nm - 40955] = stuct
        } elseif (nmm == 6) {
            Mx7[Nm - 49146] = stuct
        } else {
            Mx8[Nm - 57337] = stuct
        }
    }

    //упорядочный
    LoadStruct(Handle,stuct) ={
        Nm = GetHandleId(Handle)-1048500
        if (Nm < 8192 ) {
            stuct = Mx1[Nm]
        } elseif (Nm < 16383 ) {
            stuct = Mx2[Nm-8191]
        } elseif (Nm < 24574 ) {
            stuct = Mx3[Nm - 16382]
        } elseif (Nm < 32765 ) {
            stuct = Mx4[Nm - 24573]
        } elseif (Nm < 40956 ) {
            stuct = Mx5[Nm - 32764]
        } elseif (Nm < 49147 ) {
            stuct = Mx6[Nm - 40955]
        } elseif (Nm < 57338 ) {
            stuct = Mx7[Nm - 49146]
        } else {
            stuct = Mx8[Nm - 57337]
        }
    } 
    
    SaveStruct(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        if (Nm < 8192 ) {
            Mx1[Nm] = stuct
        } elseif (Nm < 16383 ) {
            Mx2[Nm-8191] = stuct
        } elseif (Nm < 24574 ) {
            Mx3[Nm - 16382] = stuct
        } elseif (Nm < 32765 ) {
            Mx4[Nm - 24573] = stuct
        } elseif (Nm < 40956 ) {
            Mx5[Nm - 32764] = stuct
        } elseif (Nm < 49147 ) {
            Mx6[Nm - 40955] = stuct
        } elseif (Nm < 57338 ) {
            Mx7[Nm - 49146] = stuct
        } else {
            Mx8[Nm - 57337] = stuct
        }
    } 
    
    //смешанный
    SaveStructTbner (Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        if (Nm >32764) {
            if (Nm < 40956) {
                Mx5[Nm-32764] = stuct
            } elseif (Nm < 49146) {
                Mx6[Nm-40955] = stuct
            } elseif (Nm < 49147) {
                Mx7[Nm - 49146] = stuct
            } else {
                Mx8[Nm - 57337] = stuct
            }
        } elseif (Nm < 8192) {
            Mx1[Nm] = stuct
        } elseif (Nm < 16383) {
            Mx2[Nm-8191] = stuct
        } elseif (Nm < 24574) {
            Mx3[Nm-16382] = stuct
        } else {
            Mx4[Nm-24573] = stuct
        }
    }
    
    LoadStructTbner(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        if (Nm >32764) {
            if (Nm < 40956) {
                stuct = Mx5[Nm-32764]
            } elseif (Nm < 49146) {
                stuct = Mx6[Nm-40955]
            } elseif (Nm < 49147) {
                stuct = Mx7[Nm - 49146]
            } else {
                stuct=Mx8[Nm - 57337]
            }
        } elseif (Nm < 8192) {
            stuct=Mx1[Nm]
        } elseif (Nm < 16383) {
            stuct=Mx2[Nm-8191]
        } elseif (Nm < 24574) {
            stuct=Mx3[Nm-16382]
        } else {
            stuct=Mx4[Nm-24573]
        }
    }
    
//Mini
    LoadStructMini(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        nmm =Nm/8191
        if (nmm == 0) {
            stuct = Mx1[Nm]
        } elseif (nmm == 1) {
            stuct = Mx2[Nm-8191]
        } elseif (nmm == 2) {
            stuct = Mx3[Nm - 16382]
        } else {
            stuct = Mx4[Nm - 24573]
        }
    } 
    
    SaveStructMini(Handle,stuct) = {
        Nm = GetHandleId(Handle)-1048500
        nmm = Nm/8191
        if (nmm == 0) {
            Mx1[Nm] = stuct
        } elseif (nmm == 1) {
            Mx2[Nm-8191] = stuct
        } elseif (nmm == 2) {
            Mx3[Nm - 16382] = stuct
        } else {
            Mx4[Nm - 24573] = stuct
        }
    }
}