Program post site for everyone
江戸時代に流行したゲームです。VIDEO 5で大きな文字が表示できるのを利用。
サイコロが二つ表示されます。■ ■ のときに変数にはもう数が入っています。
２つのサイコロの目の合計が偶数なら丁 奇数なら半。よく見れば分かる！
金品を賭ける賭博は犯罪です。ダメ！絶対。
10 'CHOUHAN 20 POKE#700,#FE,#FE,#FE,#FE,#FE,#FE,#FE,#0 30 POKE#708,#FE,#FE,#C6,#C6,#C6,#FE,#FE,#0 40 POKE#710,#FE,#BE,#FE,#FE,#FE,#FA,#FE,#0 50 POKE#718,#FE,#BE,#FE,#EE,#FE,#FA,#FE,#0 60 POKE#720,#FE,#BA,#FE,#FE,#FE,#BA,#FE,#0 70 POKE#728,#FE,#BA,#FE,#EE,#FE,#BA,#FE,#0 80 POKE#730,#FE,#BA,#FE,#BA,#FE,#BA,#FE,#0 90 POKE#780,0,255,4,4,4,4,4,28 100 POKE#788,68,84,16,124,16,254,16,16 110 VIDEO 5:CLS:LC 1,1:PRINT CHR$(#F0);:LC 5,1:PRINT CHR$(#F1); 120 @ST:GOSUB @W 130 FOR I=0 TO 10+RND(10) 140 GOSUB @T:GOSUB @S:BEEP RND(50)+1,10:WAIT 5 150 NEXT 160 A=#E0:B=#E0:C=#E0:GOSUB @S 170 GOSUB @T:GOSUB @W:GOSUB @S 180 GOTO @ST 190 @W:K=INKEY():IFK=0GOTO@W:ELSE RETURN 200 @T:A=RND(6)+1+#E0:B=RND(6)+1+#E0:C=#F0+(A+B)MOD2:RETURN 210 @S:LC 1,1:PRINT CHR$(A);:LC 5,1:PRINT CHR$(B);:LC 3,3:PRINT CHR$(C);:RETURN
言われてみれば、古典的な日本のゲームの代表例ですね。丁半ゲームとしても、1/2のくじ引き代わりとしても使えるステキなプログラムです。しかし、私の目ではサイコロの目を全く見破れませんでした……！
