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

母艦の、サイズは、(650,300,1250,800)。
文字書体＝「HGS平成角ｺﾞｼｯｸ体W7」。a=1。b=1。c=1。koin=50。
母艦の、キー押した時は、(もし、押されたキー=13{Enter}ならば、z=z+1。Ｂへ、飛ぶ。)
*Ａ０
z=0。画面クリア。
ペン太さ＝6。ペン色＝赤色。塗り色=白色。(65,30)から、(550,130)へ、四角形。
文字色=黒色。文字サイズ＝42。(75,55)へ、移動。「スロットマシーン」を、表示。
ペン太さ＝6。塗り色=白色。(180,145)から、(400,245)へ、四角形。
文字色=青色。(30,330)へ、移動。"コイン"&koinと、表示。
*Ａ
x=200。y=160。文字色=白色。(x,y)へ、移動。aと、表示。
もし、z>0　ならば、(x=195。y=155。文字サイズ=60。文字色=赤色。(x,y)へ、移動。aと、表示。Ｂへ、飛べ。)
もし、a=9　ならば、a=1。違えば、a=a+1。
(x,y)へ、移動。文字色=黒色。aと、表示。

*Ｂ
文字サイズ=42。文字色=黒色。
x=270。y=160。文字色=白色。(x,y)へ、移動。bと、表示。
もし、z>1　ならば、(x=265。y=155。文字サイズ=60。文字色=赤色。(x,y)へ、移動。bと、表示。Ｃへ、飛べ。)
もし、b=9　ならば、b=1。違えば、b=b+1。
(x,y)へ、移動。文字色=黒色。bと、表示。

*Ｃ
文字サイズ=42。文字色=黒色。
もし、z=2　ならば、kを、呼ぶ。
x=340。y=160。文字色=白色。(x,y)へ、移動。cと、表示。
もし、z>2　ならば、(x=335。y=155。文字サイズ=60。文字色=赤色。(x,y)へ、移動。cと、表示。Ｋへ、飛ぶ。)
もし、c=9　ならば、c=1。違えば、c=c+1。
(x,y)へ、移動。文字色=黒色。cと、表示。

文字サイズ＝32。(50,400)へ、移動。「Ｅｎｔｅｒキーでストップ」を、表示。
文字サイズ＝42。
0.1秒、待つ。
もし、koin=0　ならば、終わり。
Ａへ、飛ぶ。

*k
もし、a = b ならば、(文字色=赤色。(5,160)へ、移動。"リーチ"と、表示)。
戻る。

*Ｋ
x=20。y=250。(x,y)へ、移動。
もし、a = b かつ　b = c ならば、(
「音階７　音符９　ドレミードレミー」を、MML演奏。「おめでとうございます。」と、表示。文字色=赤色。(260,330)へ、移動。"＋"&cと、表示。1秒、待つ。
koin=koin+c)
１秒、待つ。koin=koin-1。Ａ０へ、飛ぶ。