こんなかんじ？？
@START
A=RND(9):B=RND(9):C=RND(9):PRINT A;B;C
IF A==B && B=C THEN ELSE GOSUB @BAD
PRINT "ｵﾒﾃﾞﾄｳ!!":PRINT "A ﾃﾞﾓｳｲﾁﾄﾞ"
REPEAT:UNTIL BUTTON()==#A
GOSUB `START
@BAD
PRINT "ｻﾞﾝﾈﾝ!!":PRINT "A ﾃﾞﾓｳｲﾁﾄﾞ"
REPEAT:UNTIL BUTTON()==#A:CLS
GOSUB @START
0そうだね プレイ済み