10 '7777 SLOT VER.6 20 VIDEO3:A=0:B=0:C=0:D=0:I=0:F=0:X=7 30 I=I+1 40 IF F=0 A=RND(10):B=RND(10):C=RND(10):D=RND(10) 50 IF F=1 B=RND(10):C=RND(10):D=RND(10) 60 IF F=2 C=RND(10):D=RND(10) 70 IF F=3 D=RND(10) 80 IF A=X F=1 90 IF A=X AND B=X F=2 100 IF A=X AND B=X AND C=X F=3 110 IF A=X AND B=X AND C=X AND D=X F=4 120 LET[0],A,B,C,D:?[0];[1];[2];[3] 130 IF F=4 ?" !!!!":BEEP9,10:WAIT30:BEEP9,10:WAIT20:BEEP8,40:GOTO160 ELSE ?"":BEEP80 140 IF I>=16 GOTO160 150 WAIT8:CLS:GOTO30 160 END
ほとんど1万分の1の確率じゃないか、と思いきや、きちんと出る目が制御されているようですね。音の演出もナイス!