主さん CLS @MAIN IF C MOD 60 THEN A=1+RND(6) PRINT A ENDIF B=BUTTON(2) IF B AND #A THEN ACLS INC C VSYNC GOTO @MAIN でできると思います。