音がずっと鳴るのはタッチしているかどうかを判別せずにタッチ 座標を取得しているためだと思います。 VSYNC 1の前に IF STTM!=1 THEN GOTO @P を追加したらタッチした瞬間に1回だけ音が鳴るように なると思います。