ちょっとプログラムに無駄がありますね。電話の部分の効果音はFOR-NEXTを使えば、随分省けますよ。