目が出るさいころプログラム

1～6の目が表示される、さいころのプログラムです。

LEDさいころ基板や電子さいころはこれまで作ったのですが、「目を表示するさいころのプログラムは、意外にこれまで無かったな」と思って作ってみました。
プログラミング教室やイベントで使えるかもしれません。

遊び方

プログラムを実行すると、さいころが回って、1～6のどれかの目が出ます。
スペースキーを押すと、もう一度回ります。

プログラム

10 '*SAIKORO
20 CLV:VIDEO 7
30 SRND TICK()
40 FOR X=1 TO 10
50 R=RND(6)+1
60 CLS
70 IF R=1 GSB 170
80 IF R=2 GSB 190
90 IF R=3 GSB 170:GSB 190
100 IF R=4 GSB 190:GSB 220
110 IF R=5 GSB 170:GSB 190:GSB 220
120 IF R=6 GSB 190:GSB 220:GSB 250
130 BEEP 10,2:WAIT 6
140 NEXT
150 IF !BTN(32) CONT
160 GOTO 30
170 LC 1,1:?CHR$(233);
180 RTN
190 LC 2,0:?CHR$(233);
200 LC 0,2:?CHR$(233);
210 RTN
220 LC 0,0:?CHR$(233);
230 LC 2,2:?CHR$(233);
240 RTN
250 LC 0,1:?CHR$(233);
260 LC 2,1:?CHR$(233);
270 RTN

IchigoJam webではこちら。
※IchigoJam web用のプログラムは、WAITを無しにしています。