遊び方
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 J*4,I*3
40 K=I*5+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 [I*5+J]=C-65 [I*5+J]=168:LOCATE J*4,I*3:?CHR$(65+[I*5+J])
260 NEXT
270 NEXT
2000 GOTO 200
IchigoJam web でこのプログラムを見る
画面右下のゾウさんのマークを押して
「ヒョウ」「アシカ」「オットセイ」
→「このプログラムを見る」