やっと解決しました。
教えていただいたプログラムでは、プロシジャ間を渡って関数の値を共有出来ました。しかし、私のソフトでは出来ませんでした。教えていただいたプログラムを何回も見つめ直しました。
そしたら、関数にsharedを使われていることが分かりました。これを使って私も変更したら、共有が出来ました。ありがとうございました。