他の処理と平行で使うことは考慮していなかったので改造します。 19行目以降に IF BUTTON(2)　AND #A THEN C=0 IF B AND #A THEN C=(C+1)MOD 10 ELSE C=0 IF C==1 THEN BEEP 40 を追加して下さい。