「ボタンと連動」の一例 while 1 vsync locate 0,0 print bin$(button(),11) wend