{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "read `vigenere.mpl`;
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 88 "Reads in a file of text, stri
ps all nonletter characters off, and converts to uppercase." }{TEXT 
-1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "msg:=readin(`testbug.txt`
):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "How many characters are in \+
the message." }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "leng
th(msg);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "Letter frequencies" }
{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "freq(msg);" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "Index of coincidence of text" }
{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "index_of_coincidenc
e(msg);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 46 "Friedma
n's guess for the length of the keyword" }{TEXT -1 0 "" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 14 "friedman(msg);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 30 "Encode the text with a keyword" }{TEXT -1 0 "" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 36 "ciph:=vigen_enc(msg,`ALPHANUMERIC`):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "Friedman's guess for the keyword l
ength" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "friedman(ci
ph);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "index_of_coincidenc
e(ciph);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0
 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }