{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(Maplets):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }}}{EXCHG }{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "GetDirList:=proc(path)\n local l:
\n l:=listdir(path);\n cat(op(map(f->cat(f,\"\\n\"),l[1..nops(l)-1])),
l[-1]);\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "Initi
alTextBox:=GetDirList(\".\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 188 "Change:=proc()\n local place;\n place:=Maplets:-Tools:-Get(TF_C
D):\n currentdir(place):\n GetDirList(place):\n Maplets:-Tools:-Set(TB
_Dir=%):\n Maplets:-Tools:-Set(TF_CD=currentdir()):\nend proc:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 374 "M:=Maplet(\n Window(\n  tit
le=\"Directory\",\n  layout=BoxLayout(vertical=true,\n   BoxRow(\n    \+
 BoxCell(\n      TextBox[TB_Dir](\n       height=10,width=31,\n       \+
value=InitialTextBox\n      )\n     )\n   ),\n   BoxRow(\n    BoxCell(
\n     TextField[TF_CD](15,value=currentdir())\n    ),\n    BoxCell(\n
     Button[CD](\"Change Dir\",onclick=Evaluate(function=\"Change\"))
\n    )\n   )\n  )\n )\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
11 "Display(M):" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "46 0 0
" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }