1秒毎にBEEPだよね? ならWAITを使わずに1秒待ってみたら? ~~~~~~~~~~~~~~~~~ A$=TIME$ @A IF A$!=TIME$ THEN GOSUB @B GOTO @A @B BEEP 鳴らしたいBEEPの番号 A$=TIME$ RETURN ~~~~~~~~~~~~~~~~~ こんなんで良いかな?