皆さん回答ありがとうございます

>>843　さん　うまくできました

>>844 さん
そのまま関数に組み込んで利用してみたのですがうまくいきませんでした。
101d　という入力ファイルに対して　0 が帰ってきてしまいました。
まだまだ、改良の余地がありますのでいじってみます。