こどもパソコン IchigoJam でBASIC --- 003:「7777 SLOT」

こども向けとのことだが、こども向けなのは価格だけ。
ＩｃｈｉｇｏＪａｍ　プリント基板キット　Ｕ（税込1650円）

ていうか、何も買わなくてもwebでできる。
IchigoJam web

■やりかた
1.  下記のコードを入力画面（黒い四角）の下にあるフォーム欄（白枠）にコピペします。
2. [INPORT]をクリックするとコードが入力画面に転送されます。
3. 改行してから、"RUN"と入力して[Enterキー]を押下するとプログラムが起動します。
4. 停止は[ESC]


プログラム名：「7777 SLOT」

10 '7777 SLOT VER.2
20 VIDEO 3: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
130 ?[0];[1];[2];[3]
140 IF F=4 ?"     !!!!":BEEP 9,10:WAIT 30:BEEP 9,10:WAIT 20:BEEP 8,40:GOTO  180ELSE ?"":BEEP 80
150 IF I>=16 GOTO 180
160 WAIT 8:CLS
170 GOTO 30
180 END

■あそびかた
7777がでるまでファンクションキー[F5]を押してください。
実機で走らせるとBEEP音も鳴ります。