音っていうのはBEEPのこと？こんなものでどうでしょうか。 WHILE TRUE FOR N=0 TO 133 BEEP N REPEAT:WAIT:UNTIL BUTTON(2) NEXT WEND