Some old code from at least eight years ago. I was younger, then.

Frequently used letters.bas

dim array(26)
print "Frequently used letters data gatherer."
print "Type what you want and press enter after each line."
print "Type stop and press enter to view results!"
10 input a$
if a$ = "stop" then goto 100
if len(a$) = 0 then a$ = " "
for a = 1 to len(a$)
b$ = upper$(mid$(a$, a, 1))
c = asc(b$) - 64
if c > 26 OR c < 1 then goto 80
array(c) = array(c) + 1
80 next a
goto 10
100 print "Results:"
for a = 1 to 26
print chr$(64 + a); "  "; array(a),
b = b + 1
if b = 4 then b = 0: print
next a
print "Press enter to exit"
input b$