画像の上から2番目のカーソルがあるところのダウンロードしてみて。 すごいプログラムの無駄だった。見てわかる通り、1回だけしか再生しないならSMP%とかいらないね。16384で再生するのが分かっているからWHILE I%<SMP%[PLAYRATE%]とせずにWHILE I%<16384としました。あと配列、W%は16384で再生しといるので最初からDIM W%[16384]としました。 いらないDEFもあった気がするけど疲れたのでここまで。約100行ほど削れました。れいさんのプログラムをコピーしたのかな？　あのプログラムは分かりやすいからすぐに短縮できました。