Oskarさんのアドバイスでプログラムが、短くなりましたし、新しい命令も覚えられました。INSTRはこういった使い方が出来るんですね。ありがとうございました。本当に勉強になります。