日本語プログラム言語ひまわりコミュの色スロット

母艦の、サイズは、(350,120,920,600)。
*画面
画面クリア。
(130,50)へ、移動。文字サイズ=42。「色スロット」と、表示する。

'枠
ペン色＝黒色。ペン太さ＝３。塗り色＝白色。
（90,140）から、（490,280）へ、四角形。

kai=0。iro1=1。iro2=1。iro3=1。

母艦の、キー押した時は、(
もし、押されたキー=13{Enter}ならば、kai=kai+1。BEEP。色へ、飛ぶ。
もし、押されたキー=32{Space}ならば、終わり。 )

*色
*丸１
もし、kai>0　ならば、丸２へ、飛べ。
もし、iro1=1　ならば、iro1$=赤色。
もし、iro1=2　ならば、iro1$=黄色。
もし、iro1=3　ならば、iro1$=青色。
もし、iro1=4　ならば、iro1$=水色。
もし、iro1=5　ならば、iro1$=緑色。
もし、iro1=6　ならば、iro1$=紫色。
もし、iro1=7　ならば、iro1$=黒色。
ペン色＝白色。ペン太さ＝３。塗り色＝iro1$。
（110,160）から、（210,260）へ、円形。

*丸２
もし、kai>１　ならば、(丸４を、呼ぶ。丸３へ、飛べ。)
もし、iro2=1　ならば、iro2$=赤色。
もし、iro2=2　ならば、iro2$=黄色。
もし、iro2=3　ならば、iro2$=青色。
もし、iro2=4　ならば、iro2$=水色。
もし、iro2=5　ならば、iro2$=緑色。
もし、iro2=6　ならば、iro2$=紫色。
もし、iro2=7　ならば、iro2$=黒色。
ペン色＝白色。ペン太さ＝３。塗り色＝iro2$。
(230,160）から、（330,260）へ、円形。

*丸３
もし、kai>2　ならば、丸５へ、飛べ。
もし、iro3=1　ならば、iro3$=赤色。
もし、iro3=2　ならば、iro3$=黄色。
もし、iro3=3　ならば、iro3$=青色。
もし、iro3=4　ならば、iro3$=水色。
もし、iro3=5　ならば、iro3$=緑色。
もし、iro3=6　ならば、iro3$=紫色。
もし、iro3=7　ならば、iro3$=黒色。
ペン色＝白色。ペン太さ＝３。塗り色＝iro3$。
（350,160）から、（450,260）へ、円形。
0.2秒、待つ。

iro1=iro1+1。iro2=iro2+1。iro3=iro3+1。

もし、iro1>7　ならば、iro1=1。
もし、iro2>7　ならば、iro2=1。
もし、iro3>7　ならば、iro3=1。
もし、kai>7　ならば、kai=0。

色へ、飛ぶ。
*丸４
もし、iro1$ = iro2$　ならば、((10,300)へ、移動。文字サイズ=36。「リーチ」と、表示する。)
戻る。
*丸５
もし、iro1$ = iro2$ かつ iro2$ = iro3$　ならば、((160,360)へ、移動。文字サイズ=48。文字色は、赤色。「あたり」と、表示する。)
1秒、待つ。
画面へ、飛べ。