OPTION BASE 0
DIM p(10)

LET t0=TIME
FOR i=0 TO 9
   LET p(i)=0
NEXT i
LET count = 0
OPEN #1: NAME "D:\M74207281.txt"

DO
   INPUT #1, IF MISSING THEN EXIT DO: s$
   LET nagasa = LEN(s$)
   FOR i = 1 TO nagasa
      LET tmp$ = LEFT$(s$, 1)
      LET wrk=VAL(tmp$)   
      LET p(wrk) = p(wrk) + 1   
      LET s$=RIGHT$(s$, LEN(s$)-1)
      LET count = count + 1
   NEXT i
LOOP
PRINT count
CLOSE #1

FOR i = 0 TO 9
   PRINT i;p(i);
   PRINT USING"%.######":p(i)/count
NEXT i 

PRINT TIME - t0;"秒かかりました"
END