{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 18 "with(StringTools):" }}{PARA 7 "" 1 "" {TEXT -1 58 "Warning, the assigned name Group now has a global bind ing\n" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{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 17 "ScreenHeight:=20:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "HelpText:=\n\" You can use the commands:\\n\\\n \+ 1) help\\n\\\n 2) dir\\n\\\n 3) cls\\n\\\n 4) exit\\n\\\n \+ 5) date\\n\\\n 6) time\":" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Page:=\"\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "SearchCommand:=proc(str)\n substring(str,searchtext(\">\",str)+1.. -1);\nend proc:" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 218 "PrepareText:=proc(s)\n local numbers,n:\n numbers:=[SearchAll (\"\\n\",s)]:\n n:=nops(numbers)+1:\n if n > ScreenHeight then\n subs tring(s,numbers[n-ScreenHeight]+1..-1)\n else\n cat(\"\\n\"$(ScreenHe ight-n),s);\n end if:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "Show:=proc(s)\n global Page:\n Maplets:-Tools:-Get(T F_Command):\n Page:=cat(Page,\"\\n\",%,\"\\n\",s):\n Maplets:-Tools:-S et(TB_Screen=PrepareText(Page))\nend proc:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 132 "Prompt:=proc()\n global CursorPosition, prigl:\n p rigl:=cat(currentdir(),\">\"):\n CursorPosition:=length(prigl):\n retu rn prigl\nend proc:" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 172 "SetPrompt:=proc()\n Maplets:-Tools:-Set(TF_Command(f ocus)=true):\n Maplets:-Tools:-Set(TF_Command=Prompt()):\n Maplets:-To ols:-Set(TF_Command(cursor)=CursorPosition)\nend proc:" }}}{EXCHG } {EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 578 "Execute:=proc()\n l ocal cmd,path,spl:\n use Maplets:-Tools in\n cmd:=SearchCommand(Get(T F_Command)):\n spl:=Split(cmd,\" \"):\n if (nops(spl)=2 and spl[1]= \"cd\") then\n cmd:=spl[1]: path:=spl[2]\n end if:\n if (cmd=\"e xit\") then\n SHUTDOWN():\n elif (cmd=\"cls\") then\n CLS()\n e lif (cmd=\"dir\") then\n DIR()\n elif (cmd=\"help\") then\n HELP ()\n elif (cmd=\"date\") then\n DATE()\n elif (cmd=\"time\") then \n TIME()\n elif (cmd=\"cd\")then\n CD(path)\n elif (cmd=\"\") \+ then\n :\n else\n Show(cat(\" Error command: \",cmd,\"\\n Ex ecute command: help\"))\n end if\n end use\nend proc:" }}}{EXCHG } {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "SHUTDOWN:=proc()\n ClearTF() :\n Maplets:-Tools:-Set(A_Sd(run)=true)\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "CLS:=proc()\n global Page:\n Page:=\"\":\n \+ Maplets:-Tools:-Set(TB_Screen=Page):\nend proc:" }}}{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 124 "DIR :=proc()\n local l:\n l:=listdir(currentdir());\n cat(op(map(f->cat(\" \",f,\"\\n\"),l[1..nops(l)])))[1..-2]:\n Show(%)\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "HELP:=proc()\n Show(HelpText )\nend proc:" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "DATE:=proc()\n Show(FormatTime(\" The current day is: %d.%m.%Y \"))\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "TIME:=pr oc()\n Show(FormatTime(\" The current time is: %X\"))\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "CD:=proc(path)\n currentdir( path):\n #Show(cat(\" \",currentdir())):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 691 "M:=Maplet(\n onstartup=Action(RunWindow( W),Evaluate(function=SetPrompt)),\n Window[W](resizable=false,title=\" Maplet Commander\",\n layout=GridLayout(inset=0,\n GridRow(\n Gr idCell(\n TextBox[TB_Screen](width=91,height=ScreenHeight,editable =false,font=F_Courier,\n background=black,foreground=white,wrappe d=false)\n )\n ),\n GridRow(\n GridCell(\n TextField[TF_ Command](\n width=90,font=F_Courier,\n background=\"#202020 \",foreground=\"#FFFFFF\")\n ),\n GridCell(\n Button(\"\",vi sible=false,onclick=A_Execute)\n )\n )\n )\n ),\n Action[A_Execu te](Evaluate(function=Execute),Evaluate(function=SetPrompt)),\n Action [A_Sd](Shutdown()),\n Font[F_Courier](\"courier\",14)\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 {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "75 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }