Fill and use a two-dimensional integer array

dim x[2,3] as integer;

dim i as integer;

x[1, 1] = 1;

x[1, 2] = 2;

x[1, 3] = 3;

x[2, 1] = 4;

x[2, 2] = 5;

x[2, 3] = 6;

LogMessage(x[2, 3]);

for each i in x[]

LogMessage(i);

next;