kyontanさんのプログラムを参考にさせていただきました。ありがとうございます。