1000   'SAVE"BINGO-1",A
1010 DIM AA(75)
1020 N=1:A$=""
1030 FOR I=0 TO 75:AA(I)=0:NEXT I
1040 CLS 3:COLOR ,,,,2   '4096色中 16色モード
1050 SCREEN 3,0,0,1      '400ﾗｲﾝ ｶﾗｰﾓｰﾄﾞ
1060 CONSOLE 0,24,0,1,0  :'0-25ｽｸﾛｰﾙ,ﾌｧﾝｸｼｮﾝｷｰ ｱﾘ,ｶﾗｰ,ﾆﾎﾝｺﾞ
1070 LINE(5,0)-(610,230), 6,BF
1080 LINE(7,2)-(608,228),13,BF
1090 GOTO *MAIN
1100 *GAMEN
1110 CLS
1120 FOR I= 0 TO 4
1130 FOR J= 1 TO 15
1140 PRINT RIGHT$("     "+STR$(I*15+J),5);
1150 NEXT J
1160 PRINT
1170 FOR J= 1 TO 15
1180 IF AA(I*15+J)=0 THEN PRINT"  ---"; ELSE PRINT"   ●";
1190 NEXT J
1200 PRINT:PRINT
1210 NEXT I
1220 A$=A$+STR$(K)
1230 PRINT A$
1240 PRINT:PRINT
1250 RETURN
1260 '
1270 ' MAIN
1280 *MAIN
1290 A=RND(A)*75*(VAL(RIGHT$(TIME$,2)))
1300 'PRINT A
1310 K=(A MOD 75)+1
1320 IF AA(K)=0 THEN AA(K)=1 : GOTO 1330 ELSE GOTO 1290
1330 GOSUB *GAMEN
1340 PRINT AKCNV$(STR$(N));"番目の当たり番号は";
1350 COLOR 5:PRINT AKCNV$(STR$(K));:COLOR 7:PRINT" です";:INPUT " ",DAMMY$
1360 N=N+1:IF N> 75 THEN *ENDING ELSE GOTO 1290
1370 *ENDING
1380 BEEP:LOCATE 0,20
1390 INPUT"    もう一度実行しますか？  (Yes:Y or y, No: N or n )  ",ANS$
1400 IF ANS$="y" OR ANS$="Y" THEN 1020 ELSE IF ANS$="N" OR ANS$="n" THEN 1410        ELSE 1380
1410 END