また、@BGM の前の行に WEND を追加してください。これは7行目の WHILE TRUE との対で必要なもので、ないとエラーになります。これがあると WHILE TRUE ～ WEND の間をずっと繰り返すので、このプログラムの場合ボタンに反応して動くようになります。 試してませんが、これだけの変更でRボタンを押すと何か鳴るプログラムになるはず…? たぶん?