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