22 lines
241 B
Text
22 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
|