トピックが閉じていたのでこちらにコメントします。 どうしてもやる必要があるのであれば、こんな方法もあります。参照値の代入を使う方法なので、メインルーチン以外で使うときは、参照値引き継ぎの考慮が必要です。 ・SLOT0(H0) DIM H[0] EXEC "PRG1:H1" H=HOGE("H") FOR I=0 TO 9:? H[I],:NEXT:? ・SLOT1(H1) DIM H[10] FOR I=0 TO 9:H[I]=I:NEXT COMMON DEF HOGE(A$) RETURN VAR(A$) END