Type A
Field Cubes[10000]
Field Colors[10000]
End Type
100 * 100 = 10000
пишеш простую функцию - типа
function index(int a, int b)
retrun 100*a + b;
end function
и дальше тупая, как тибетская овца, операция:
some.A = new A
some\Cubes[index(10,20)] = бла_бла_бла