CLS WHILE BUTTON()!=32 VSYNC 1 WEND ?"1" こんな方法もあります。