@ST CLS A=RND(9) B=RND(9) C=RND(9) PRINT PRINT A;B;C IF A==B && B==C THEN PRINT "オメデトウ" ELSE PRINT "ザンネン" REPEAT PRINT "PUSH A" UNTIL BUTTON==#A GOSUB @ST ハイドウゾ