トピックが閉じていたのでこちらにコメントします。
どうしてもやる必要があるのであれば、こんな方法もあります。参照値の代入を使う方法なので、メインルーチン以外で使うときは、参照値引き継ぎの考慮が必要です。
・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