IchigoJam Basic でビンゴタイピングゲーム

遊び方

5文字 x 5文字　が出てきます。
下の NEXT KEY? --> のところに、１文字入力してください。
その文字が●に変わります。

たとえば、１列すべて●になったら　ビンゴ！
なんて感じで、お楽しみください。

終わるときはESCキーを押してください。

プログラム

1 'BINGO TYPING GAME
5 CLS
10 FOR I=1 TO 5
20 FOR J=1 TO 5
30 LOCATE J4,I3
40 K=I5+J
50 [K]=RND(25)
60 ?CHR$(65+[K])
100 NEXT
110 NEXT
200 LC 5,20:?"NEXT KEY? -->";
210 C=INKEY():IF C<>0 ?CHR$(C)
220 IF C=0 WAIT20:GOTO210
230 FOR I=1 TO 5
240 FOR J=1 TO 5
250 IF [I5+J]=C-65 [I5+J]=168:LOCATE J4,I3:?CHR$(65+[I5+J])
260 NEXT
270 NEXT
2000 GOTO 200

#IchigoJam web でこのプログラムを見る
https://fukuno.jig.jp/app/IchigoJam/

画面右下のゾウさんのマークを押して
「ヒョウ」「アシカ」「オットセイ」
→「このプログラムを見る」