{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "text:=`Twas brilling
 and the slithy tothes\n did gyre and gimble in the wabe.`;" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%%textG%`oTwas~brilling~and~the~slithy~toth
es|+~did~gyre~and~gimble~in~the~wabe.G" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 252 "Caesar:= proc(plaintext, offset)\n  local textnum,co
denum,i;\n\n  textnum := convert(plaintext,bytes);\n  codenum := \n   \+
  [seq( modp(textnum[i]+offset-1, 255) + 1,\n           i=1..length(pl
aintext)) ];\n  ## print(codenum);  \n  convert(codenum,bytes);\nend:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Caesar(`hello`,0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%&helloG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "coded:=Caesar(text,5);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%&codedG%`oY|grfx%gwnqqnsl%fsi%ymj%xqnym|ir%ytymjx|0%ini%l|irwj
%fsi%lnrgqj%ns%ymj%|grfgj3G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "Caesar(coded,-5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%`oTwas~brill
ing~and~the~slithy~tothes|+~did~gyre~and~gimble~in~the~wabe.G" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "convert(`A`,bytes);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7#\"#l" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 70 "Alphabet := `ABCDEFGHIJKLMNOPQRSTUVWXYZ\nabcdefghijkl
mnopqrstuvwxyz.,`;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)AlphabetG%XAB
CDEFGHIJKLMNOPQRSTUVWXYZ|+abcdefghijklmnopqrstuvwxyz.,G" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "ToNum := proc(text)\n  local i;\n \+
 global Alphabet;\n  [seq(SearchText( substring(text,i),Alphabet),\n  \+
     i=1..length(text))];\nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "substring(`Hello`,3);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"lG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "SearchText(o,`Hello`);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ToNum(`Hello
`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\")\"#K\"#RF&\"#U" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "FromNum := proc(numlist)\n \+
 local i;\n  global Alphabet;\n  cat(seq( substring(Alphabet,numlist[i
]),\n       i=1..nops(numlist)));\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "FromNum([8,32,39,39,42]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%&HelloG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "13 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 }