• No registered tag exist.

1 REM オルコ゛ール
3 CLS:?"(#E0) カエルノカ゛ッショウ   (#E1) キラキラホ゛シ"
10 K=INKEY()
20 IF K=28 THEN GOTO 100
30 IF K=29 THEN GOTO 200
40 GOTO 10
50 LOCATE RND(30),0:PRINT "サ゛"
60 K=INKEY():X=X-(K=28 AND X>0) +(K=29 AND X<28)
65 IF K=32 THEN BEEP:GOSUB 210
70 S=S+1
80 CLK
90 WAIT 10
100 PLAY"$CDEFEDCREFGAGFERCRCRCRCRCDEFEDCRRR":GOTO 1000
110 LOCATE X,Y:PRINT CHR$(244);
120 LOCATE 11,13:PRINT "ケ゛ームオーハ゛ー"
130 PRINT S;:PRINT "ホ゜イント!"
140 PLAY "CDE4"
150 LOCATE 10,20:PRINT "リトライ?"
160 PRINT "1 ハイ  2 オワル"
170 K=INKEY()
180 IF K=49 THEN GOTO 10
190 IF K=50 THEN PRINT "サトリワヒラケタ?":END
200 PLAY"$CCGGAAGRFFEEDDCRGGFFEEDRGGFFEEDRCCGGAAGRFFEEDDCRRR":GOTO 1000
210 REM ホ゜ース゛
220  K=INKEY():IF K=32 THEN PLAY "$CC":RETURN
230 GOTO 210
1000 GOTO 1001
1001 GOTO 1000

Kidspod運営チーム2017/12/29 15:03:29

こちらもシンプルなプログラム……と思いきや、更に機能を追加していくのですね。果たして完成品がどのようなものになるのか……がんばってください！　そして、麻雀入門セットはもらえたでしょうか。

Pagetop