• IchigoJam

100 ?"BINGO!"
110 M=75
120 INPUT "SEED?",S:BEEP:SRND S:CLS
130 FOR I=1 TO M:[I]=I:NEXT
140 FOR I=1 TO M-1
150  X=RND(M-I+1):Y=X+I
160  T=[Y]:[Y]=[I]:[I]=T
170 NEXT
180 REM FOR J=1 TO M:PRINT " ";[J];:NEXT:PRINT ""
190 FOR I=1 TO M
200  IF I>1 THEN LC X,Y:?" "
210  X=([I]-1)%10*3:IF [I]<10 X=X+1
220  Y=([I]-1)/10*2
230  LC X+1,Y:?[I]:BEEP
240  LC X,Y:?" "
250  LC X,Y:?CHR$(TICK()%64/32+#F9):WAIT 1
260  IF INKEY()!=ASC(" ")GOTO 240
270 NEXT
280 LOCATE 0,(M-1)/10*2+1:INPUT "OK?",K

Kidspod運営チーム2018/07/13 17:19:59

きちんと出た番号の確認ができて、ピコピコ人間のおかげで新しく出てきた数も分かりやすいですね。ナイスビンゴ！　単純だけどとても使えそうなプログラムです！

Pagetop