2～4次元配列にPUSHすることができました。 あと確認ですけど確か[4,3,2,1次元]ですよね？

ちなみにREDIM_nは DEF REDIM_n a,b,… 　DIM AA[a,b,…] 　RETURN AA END というだけの簡素なものです。

var x[256], y[4,4,4,4], i, j, k, l for i = 0 to 255: x[i] = i: next ' x を連番で埋める copy y, x for i = 0 to 3: for j = 0 to 3: for k = 0 to 3: for l = 0 to 3 ? y[i, j, k, l], next: next: next: next とかやると、高次低次の位置関係が分かるでしょう。