追記を最小限に、条件式が一つの比較演算で済むように。 逆にごちゃごちゃになった感がしないでもないですが WHILE TRUE BC=B:B=BUTTON(0) IF ((NOT(BC AND &H30) AND B) AND &H3F)==&H30 THEN BEEP VSYNC 3 WEND