integer cj_ind = 0;

define{
      <New Data> (Type,Name) = {
        
      Type array Name##1
      Type array Name##2
      Type array Name##3
      Type array Name##4
      Type array Name##5
      Type array Name##6
      Type array Name##7
      Type array Name##8}
        
        
      <Save Bin> (Name,Handle,variable) = {
          cj_ind = GetHandleId(Handle)-0xffff0
            
            if (cj_ind > 0x7999) {
              if (cj_ind > 0xbfff) {
                  Name##8[cj_ind - 0xd000] = variable;
                  Name##7[cj_ind - 0xc000] = variable;
              } else {
                  Name##6[cj_ind - 0xa000] = variable;
                  Name##5[cj_ind - 0x8000] = variable;
              }
          } elseif (cj_ind > 0x3fff) {
                  Name##4[cj_ind - 0x6000] = variable;
                  Name##3[cj_ind - 0x4000] = variable;
          } else {
              Name##2[cj_ind - 0x2000] = variable;
              Name##1[cj_ind] = variable;
          }
      }
            
      <Load Bin> (Name,Handle,variable) = {
          cj_ind = GetHandleId(Handle)- 0xffff0
          if (cj_ind > 0x7fff) {
              if (cj_ind > 0xbfff) {
                  if (cj_ind > 0xdfff) {
                       variable = Name##8[cj_ind - 0xe000];
                  } else {
                      variable = Name##7[cj_ind - 0xc000];
                  }
              } elseif (cj_ind > 0x9fff) {
                  variable = Name##6[cj_ind - 0xa000];
              } else {
                  variable = Name##5[cj_ind - 0x8000];
              }
          } elseif (cj_ind > 0x3fff) {
              if (cj_ind > 0x5fff) {
                  variable = Name##4[cj_ind - 0x6000];
              } else {
                  variable = Name##3[cj_ind - 0x4000];
              }
          } elseif (cj_ind > 0x1fff) {
              variable = Name##2[cj_ind - 0x2000];
          } else {
              variable = Name##1[cj_ind];
          }
      }
        
        
      Load (Name,Handle,variable) = {
          cj_ind = GetHandleId(Handle)-0xffff0
          if (cj_ind < 0x1fff ) {
            variable = Name##1[cj_ind]
          } elseif (cj_ind < 0x3fff ) {
            variable = Name##2[cj_ind-0x2000]
          } elseif (cj_ind < 0x5fff ) {
            variable = Name##3[cj_ind - 0x4000]
          } elseif (cj_ind < 0x7fff ) {
            variable = Name##4[cj_ind - 0x6000]
          } elseif (cj_ind < 0x9fff ) {
            variable = Name##5[cj_ind - 0x8000]
          } elseif (cj_ind < 0xafff ) {
            variable = Name##6[cj_ind - 0xa000]
          } elseif (cj_ind < 0xcfff ) {
             variable = Name##7[cj_ind - 0xc000]
          } else {
             variable = Name##8[cj_ind - 0xe000]
          }
      }   
        
      Save (Name,Handle,variable) = {
          cj_ind = GetHandleId(Handle)-0xffff0
          if (cj_ind < 0x3fff ) {
              Name##1[cj_ind] = variable
              Name##2[cj_ind-0x2000] = variable
          } elseif (cj_ind < 0x7fff ) {
              Name##3[cj_ind - 0x4000] = variable
              Name##4[cj_ind - 0x6000] = variable
          } elseif (cj_ind < 0xbfff ) {
              Name##5[cj_ind - 0x8000] = variable
              Name##6[cj_ind - 0xa000] = variable
          } else {
              Name##7[cj_ind - 0xc000] = variable
              Name##8[cj_ind - 0xe000] = variable
          }
      }   
}
//test

New Data (integer,test1)