「プログラムを参考にした」と書かれていたので… ちょっと改造させていただきました。 一番上です。よかったらお使いください。