スロットみたいなゲームの作り方教えてください、、、

こんなかんじ？？ @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