プログラムとしおりを掲載しました。
添付のファイルを参照してください。