20 lines
422 B
Plaintext
20 lines
422 B
Plaintext
DIM cnt%(255)
|
|
|
|
file% = OPENIN("C:\unixdict.txt")
|
|
IF file%=0 ERROR 100, "Could not open file"
|
|
|
|
REPEAT
|
|
A$ = GET$#file%
|
|
L% = LEN(A$)
|
|
IF L% THEN
|
|
FOR I% = 1 TO L%
|
|
cnt%(ASCMID$(A$,I%)) += 1
|
|
NEXT
|
|
ENDIF
|
|
UNTIL EOF#file%
|
|
CLOSE #file%
|
|
|
|
FOR c% = &41 TO &5A
|
|
PRINT CHR$(c%)CHR$(c%+32) ": " cnt%(c%)+cnt%(c%+32)
|
|
NEXT
|