RosettaCodeData/Task/Array-concatenation/M2000-Interpreter/array-concatenation-3.m2000

Dim OLE Base 0, A(2,2)=1, B(1,2)=6
A()=Cons(A(), B(), A(), B())
\\ Restore the dimensions (without erasing items)
Dim A(Dimension(A(),1)/2, 2)
For I=0 to Dimension(A(),1)-1 {
      For j=0 to Dimension(A(),2)-1 {
            Print A(i, j),
      }
      Print
}