数当てゲーム２

数当てゲーム２
10 R=RAN#*1000:P=INT(R):R$-STR$(P):I$=RIGHT$(R$,3):C=0:E=1
20 PRINT "3ｹﾀ　ｽｳｼﾞ　ﾆｭｳﾘｮｸ";:A$=INPUT$(3):PRINT " "A$;:B$=I$+A$
30 FOR I=1 TO 3
40 IF MID(A$,I,1)=MID(I$,I,1) THEN C=C+1
50 NEXT I:PRINT:PRINT "ｱｯﾀﾀ　ｹﾀｽｳ";C;:PRINT
60 IF C=3 THEN GOTO 80
70 C=0:E=E+1:GOTO 20
80 PRINT E; "ｶｲﾃﾞｾｲｶｲ":END

FX-840Pにて動作確認