139です。
>>141さん>>142さん、レスありがとうございます。
ソースを貼り付けようとしたのですが長すぎるとのエラーが出ました。

なのでうｐろだにアップしました。
ttp://www.dotup.org/uploda/www.dotup.org2328446.txt.html