いまのは失敗なのでもういっかい WHILE 1 A=BUTTON():B=B+1 IF A>0 THEN PRINT A,B ENDIF WEND