{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 "Times" 1 14 0 0 
0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Fo
nt 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 
{CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 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 17 "read `crypt.mpl`;" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "alph:=`ABCDEFGHIJKLMNOPQRS
TUVWXYZ`;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "substring(alph
,3..3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "numbers(`THE`);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "letters(numbers(`THE`))
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "caesar('SBKFSFAFSFZF',
3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "tryall(`HALL`);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "msg:=`CRYPTOGRAPHYISANEVEREN
DINGSTRUGGLEBETWEENCODEMAKERSANDCODEBREAKERS`;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 23 "cipher:=caesar(msg,14);" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 14 "Affine Ciphers" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "affine(`CRYPTOLOGY`,[3,1]);" }}}}{MARK "9 1 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }