WHILE 1 ＩＦ BUTTON(2) AND 16 THEN INC A LOCATE　0,0:? FOMAT$("%D",A) ;VSYNC WEND VSYNC無しだと何千回とカウントされますが、VSYNCを入れると 1回ずつカウントされますよ。