下のように、あるモジュールで開いたメモ帳の装置番号をおなじモジュール内の違うプロシージャに引き継がせたいのですが、どうすれば良いのでしょうか。
変数ならprivate subを使えば良いようですが、ファイルの装置番号の引き継がせかたがわかりません。すみませんがお願いいたします

sub a()
open 〜input.txt output as #1
call b
endsub

sub b()
print #1
close #1
end sub