記憶して
100 DIM A(15) i=1 LABEL STAT cls CURSOR 0,19:PRINT " ｷ ｵ ｸ ｼ ﾃ":WAIT 100 A(i)=DRAWCOUNT()%9:A(i)=A(i)+1 FOR j=1 to i CURSOR 5+j,19:PRINT A(j) WAIT 60:NEXT j:cls D=DRAWCOUNT()%i:D=D+1:C=1 CURSOR 0,15 PRINT " +- ﾎ ﾞ ﾀ ﾝ ﾃ ﾞ ｾ ﾝ ﾀ ｸ" PRINT " ｿ ﾉ ｺ ﾞ ｹ ｯ ﾃ ｲ ﾎ ﾞ ﾀ ﾝ" LABEL LOOP CURSOR 0,20:PRINT D;" ﾊ ﾞ ﾝ ﾒ ﾉ ｽ ｳ ｼ ﾞ ﾊ? "; CURSOR 0,20:PRINT D;" ﾊ ﾞ ﾝ ﾒ ﾉ ｽ ｳ ｼ ﾞ ﾊ? ";C; B=KEYS() IF B=1 then wait 10:C=C+1:IF C=10 then C=1 IF B=2 THen wait 10:C=C-1:IF C=0 then C=9 IF B=8 then goto CHEK GOTO LOOP LABEL CHEK IF C=A(D) Then Print " GOOD!":wait 100 Else PRINT " BAD!";I-1;" ﾃ ﾝ":wait 200:goto KEY1 I=I+1:IF I<16 THEN STAT PRINT " ｽ ｺ ﾞ ｲ ﾃ ﾞ ｽ ﾈ":wait 200:goto KEY1 LABEL KEY1 IF kEYS()=0 THEN KEY1 ELSE goto 100