数当てシューティング１

数当てシューティング１
5 E=1
10 CLS:FOR I= TO 9
20 LOCATE I,0:A=RAN#*10:B=INT(A):B$=STR$(B):D$=RIGHT$(B$,1)
30 PRINT D$;:FOR F=1 TO 9999999 STEP 0.01
40 C$=INKEY$:LOCATE 0,1:PRINT C$;:IF C$=D$ THEN GOTO 60:NEXT F
50 E=E+1:NEXT I:GOTO 10
60 PRINT E:END

FX-840P にて動作確認