GPUTCHRをスプライトに置き換えて、あと一行一命令に直してみました、どうでしょう？ 音がないのがさびしいから、BEEPを足してみるといいと思います。