{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 }{PSTYLE "Warni
ng" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 
3 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 {PARA 0 
"> " 0 "" {MPLTEXT 1 0 18 "with(StringTools):" }}{PARA 7 "" 1 "" 
{TEXT -1 58 "Warning, the assigned name Group now has a global binding
\n" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "#MyDir:=\"D:
\\\\ASN\\\\2005\\\\Day_3\\\\Buttons\\\\\":" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 10 "MyDir:=\"\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 38 "S1:=\"      Exit     \":\nS2:=\"Shutdown\":" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 14 "IsExit:=false:" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 176 "Change:=proc()\n global IsExit:\n if IsExit then
\n  Maplets:-Tools:-Set('SE'('caption')=S2)\n else\n  Maplets:-Tools:-
Set('SE'('caption')=S1)\n end if:\n IsExit:=not IsExit:\nend proc:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 508 "MyPrint:=proc()\n local re
sult,line:\n Maplet(onstartup=RunDialog('FD'),\n  FileDialog['FD'](\n \+
  'title'=\"Print File\",'height'=200,\n   'onapprove'=Shutdown(['FD']
),\n   'oncancel' = Shutdown()\n  )\n ):\n result:=op(Display(%)):\n i
f evalb(result<>NULL) then  \n  StringTools[Split](result,\"\\\\\")[-1
]:\n  Maplets:-Tools:-Set('TF'('value')=%):\n end if:\n line := readli
ne(result);\n while line <> 0 do\n   #print(line);\n   Maplets:-Tools:
-Set('TB'('append')=cat(line,\"\\n\"));\n   line := readline(result)\n
 end do;  \nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 633 "M
:=Maplet(\n Window(\n  title=\"Maplet Elements\",\n  layout=BoxLayout(
\n   [BoxRow(\n     BoxCell(\n      Label(Image(cat(MyDir,\"colors.gif
\")))\n     )\n    ),\n    BoxRow(\n     BoxCell(\n      Button['SE'](
'caption'=\"Shutdown\",onclick=Shutdown())\n     ),\n     BoxCell(\n  \+
    Button(\"Change\",onclick=Evaluate(function=\"Change\"))\n     )\n
    ),\n    BoxRow(\n     BoxCell(\n      Button('caption'=\"Print\", \+
'image'=Image(cat(MyDir,\"print.gif\")),\n       onclick=Evaluate(func
tion=\"MyPrint\")\n      )\n     ),\n     BoxCell(\n      TextField['T
F'](12)\n     )\n    ),\n    BoxRow(\n     BoxCell(\n      TextBox[TB]
(width=26,height=8)\n     )\n    )\n   ]\n  )\n )\n):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Display(M):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{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 "3 1 0" 58 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }