21 lines
241 B
Text
21 lines
241 B
Text
indexbase 0
|
|
|
|
sys a,e,i,c[255]
|
|
|
|
string s=getfile "t.txt"
|
|
|
|
e=len s
|
|
|
|
for i=1 to e
|
|
a=asc(s,i)
|
|
++c(a)
|
|
next
|
|
|
|
cr=chr(13)+chr(10)
|
|
pr="Char Frequencies" cr cr
|
|
for i=32 to 255
|
|
pr+=chr(i) chr(9) c(i) cr
|
|
next
|
|
|
|
print pr
|
|
'putfile "CharCount.txt",pr
|