SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

Bingo BIG

IchigoJamの画面表示を2倍サイズにしたファームウェアIchigoJam BIG」が公開されました。
福野泰介の一日一創 めがねフェス2017に向けて「IchigoJam BIG」
文字数は16×12行と4分の1になりますが、展示用などには大きくて見やすいです。

以前作った数字拡大表示のビンゴゲームを、この「IchigoJam BIG」環境に移植してみました。

通常のIchigoJam環境では表示がおかしくなりますので、ご注意ください。

  • 起動すると、画面下に「PUSH KEY」と表示されます。
  • 何かキーを押すとビンゴが回り、1〜75の数字をランダムに表示して止まります。各数字は1度しか出てきません。
  • もう一度キーを押すと、再びビンゴが回ります。
  • 数字を75個表示すると、プログラムが終了します。

※(6/5修正)数字表示部分のバグを修正

10 '*BINGO BIG*
20 CLV:CLS
30 '*SHOOT
40 LC 0,12:?"PUSH KEY";
50 IF INKEY()=0 GOTO 40
60 LC 0,12:?" ";
70 FOR T=1 TO 5
80 S=RND(75)+1
90 IF [S]=1 GOTO 80
100 GOSUB 170
110 BEEP
120 NEXT
130 C=C+1:[S]=1
140 IF C<75 GOTO 40
150 END
160 '*PRTN
170 N=S/10:X=0:P=1
180 IF N=0 THEN P=0
190 GOSUB 230
200 N=S%10:X=7:P=1
210 GOSUB 230
220 RETURN
230 A=48+N
240 FOR I=0 TO 6
250 D=PEEK(A*8+I):V=#900+X+I*16:B=`10000000
260 FOR J=0 TO 5
270 POKE V+J,D&(B>>J) AND P
280 NEXT
290 NEXT
300 RETURN