{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 }{CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "T imes" 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 "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }} {SECT 0 {SECT 0 {PARA 3 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 " " {TEXT -1 4 " " }{TEXT 258 1 "\"" }{TEXT 256 9 "\317\377\362\355 \340\370\352\350\"" }{TEXT 259 1 " " }{TEXT -1 36 ".\n \302\345\360 \361\350\377 1.0\n \320\345\340\353\350\347\340\366\350\377: " } {TEXT 257 9 "Maple9.03" }{TEXT -1 58 " \n \300\342\362\356\360: \+ \306\345\343\353\356\342 \300\353\345\352\361\340\355\344\360 (\312 \345\354\340\355) \n \314\340\360\362 2004." }}}}{PAGEBK } {PARA 0 "" 0 "" {TEXT -1 0 "" }}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 564 "restart:\nwith(Maplets): \nwith(Maplets[Elements]): \n#\n# \301\313\316\312 \303\313\316\301\300\313\334\315\333\325 \317\305\320\305\314\305\315 \315\333\325\n#\n \n\n fd :=\"//ws35100/Practicum/Zheglov Alexander /Pgame/Records.txt\": # \357\363\362\374 \352 \364\340\351\353\363 \+ \360\345\347\363\353\374\362\340\362\356\342\n empt_y:=\" \": \+ # \352\353\345\362\352\340-\357\363\361\362\373\370\352\340\n c nt :=0: # \352\356\353\350\367\345\361\362\342\356 \+ \361\344\345\353\340\355\355\373\365 \370\340\343\356\342\n one :=0: # \355\340\367\340\353\374\355\356\345 \357\356\353 \356\346\345\355\350\345 \"\357\363\361\362\373\370\352\350\" \357\360 \350 \357\345\360\345\354\345\370\352\345\n who :=0: \+ # \361 \352\340\352\356\351 \366\350\364\360\356\351 \355\340\346 \340\362\340 \352\355\356\357\352\340\n \n tabl:=array(1..16): \+ # \365\360\340\355\350\354 \361\356\356\362\342\345\362\361\362\342 \350\377 \362\350\357\340 1~T1B\n\n vr:=0: # \342 \360\345\354\377 \355\340\367\340\353\340 \350\343\360\373\n vo:=0:\n " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15233 "\nHelpInfo:=\n\" \+ \317\377\362\355\340\370\352\350. v1.0\\n\n\\t\315\345\356\341\365\356 \344\350\354\356 \360\340\361\361\362\340\342\350\362\374 \375\353\345 \354\345\355\362\373\\n\n\\t\342 \357\356\361\353\345\344\356\342\340 \362\345\353\374\355\356\361\362\350 \342\350\344\340:\\n\n\\t \+ 1 2 3 4\\n\n\\t 5 6 7 8\\n\n\\t 9 10 11 12\\n \n\\t \+ 13 14 15 __ .\\n\n\\t\n\\t\310\303\320\300:\\n \n\\t\302 \357\363 \355\352\362\345 \354\345\355\376 '\310\343\360\340' \342\373\341\350 \360\345\362\345\\n \n\\t'\315\356\342\340\377 \350\343\360\340' \350 \+ \344\356\346\344\350\362\345\361\374 \357\356\352\340\\n\n\\t\342\361 \345 \375\353\345\354\345\355\362\373 \357\345\360\345\354\345\370 \340\376\362\361\377.\\n\n\\t\327\362\356\341\373 \357\345\360\345\344 \342\350\355\363\362\374 \375\353\345\354\345\355\362 \355\340\\n\n\\ t'\357\363\361\362\373\370\352\363' - \352\353\350\352\355\350\362\345 \355\340 \355\345\343\356\\n\n\\t(\375\353\345\354\345\355\362 \344 \356\353\346\345\355 \360\340\361\357\356\353\340\343\340\362\374\361 \377\\n\n\\t\360\377\344\356\354).\\n\n\\t\\n\n\\t\317\356 \363\354 \356\353\367\340\355\350\376 \342\356\347\354\356\346\355\373\345 \+ \365\356\344\373\\n\n\\t\357\356\344\361\342\345\367\350\342\340\376 \362\361\377 (\354\345\355\376 '\316\357\366\350\350').\\n\n\\t\\n\n\\ t\321\356\341\360\340\342 '\317\377\362\355\340\370\352\350', \342 \373 \354\356\346\345\362\345\\n\n\\t\361\356\365\360\340\355\350\362 \374 \361\342\356\351 \360\345\347\363\353\374\362\340\362.\\n\":\n \n m:=Maplet( # \321\356\347\344\340\345\354 \355\356 \342\373\351 \354\340\357\353\345\362 \344\353\377 \342\373\342\356 \344\340 \n Window['W3'] ( # \322\340\341\353\350\366\373 \360\345\347\363\353\374\362\340\362\356\342\n'title' = \"\322\340 \341\353\350\366\340 \360\345\347\363\353\374\362\340\362\356\342\",\n 'height'= 170,\n'width' = 230,\n [BoxLayout(\n BoxColumn( inset=0 ,spacing=0, \n BoxRow (inset=0,spacing=0,border=true,\n \+ DropDownBox['DDB1'](\"\317\356\341\345\344\350\362\345\353 \350\",sort([ \"\317\356\341\345\344\350\362\345\353\350\"], lexorder) ),\n Button(\"\317\356\352\340\347\340\362\374 \", tool tip=\"\317\360\356\361\354\356\362\360\345\362\374 \360\345\347\363 \353\374\362\340\362\373\",\n onclick=Evaluate( 'function'=\"file_out\")) \n ),\n \n \n BoxRow (border=true,\n TextField['TxN']('width' =9,value=\"\302\340\370\345 \350\354\377\"),\n Button[' Ano'](\"\302 \361\357\350\361\356\352\",tooltip=\"\307\340\357\356\354 \355\350\362\374 \360\345\347\363\353\374\362\340\362\", \+ onclick=Evaluate('func tion'=\"file_in\"))\n ),\n MenuSeparator(),\n \+ BoxRow (HorizontalGlue(),HorizontalGlue(),HorizontalGlue(), \n \+ Button(\"\302\373\365\356\344\",CloseWindow('W3')))))\n \+ \n ] )#/\322\340\341\353\350\366\340 \360\345\347\363\353 \374\362\340\362\356\342 \n):\n\n \n\n\n\n\n#\n# \+ \301\313\316\312 \317\320\305\304\302\300\320\310\322\305\313 \334\315\333\325 \304\305\311\321\322\302\310\311\n#\n tabl[1] :='TB1 ' : tabl[2] :='TB2' : tabl[3] :='TB3' : tabl[4] :='TB4' : \n tabl[5 ] :='TB5' : tabl[6] :='TB6' : tabl[7] :='TB7' : tabl[8] :='TB8' : \+ \n tabl[9] :='TB9' : tabl[10]:='TB10': tabl[11]:='TB11': tabl[12] :='TB12':\n tabl[13]:='TB13': tabl[14]:='TB14': tabl[15]:='TB15': tab l[16]:='TB16':\n\n\n#\n# \301\313\316\312 \317\320 \316\326\305\304\323\320 \310 \324\323\315\312\326\310\311 \n#\n q1:= proc() global one: one:=one+1 end proc:\n q2:=proc() global one: one: =one-1 end proc:\n q3:=proc() global one: one:=one-4 end proc:\n q4: =proc() global one: one:=one+4 end proc:\n#==========\n\n# \317\320 \316\326\305\304\323\320A\n inaway:=proc() # \357\345\360 \345\354\345\370\350\342\340\345\354 \352\355\356\357\352\350\n local \+ roll,i,k: # \375\353\345\354\345\355\362 \"\357\363\361 \362\373\370\352\340\"\n global tabl,one,vr,vo:\n\n vr:=0: \+ # \356\341\355\363\353\377\345\354 \361\367\345\362\367\350 \352\350 \355\340\367\340\353\340\n vo:=0: # \350 \352\356\355\366\340 \350\343\360\373\n\n for k from 1 to 16 do \+ # \344\345\353\340\345\354 \352\355\356\357\352\350 \340\352\362\350 \342\355\373\354\350\n Maplets:-Tools:-Set(tabl[k]('enabled')=true )\n end do: \n\n for k from 1 to 16 do # \356\357\360 \345\344\345\353\377\345\354 \357\356\353\356\346\345\355\350\345 \" \357\363\361\362\373\370\352\350\" \n if (Maplets:-Tools:-Ge t(tabl[k]('caption'))=empt_y)\n then one:=k\n end if: \n end do:\n\n\n\n for i from 1 to 150 do # \352\356\353\350 \367\345\361\362\342\356 \357\345\360\345\361\362\340\355\356\342\356 \352 \357\360\350 \357\345\360\345\354\345\370\352\345 \n \n roll:=Ra ndomTools[Generate](integer(range=1..8)); # \361\353\363\367\340\351 \355\356\345 \355\340\357\360\340\342\353\345\355\350\345 \361\344\342 \350\343\340\n\n if (((roll=1)or(roll=5)) and\n (one+1<17) \+ and (one+1<>5) and\n (one+1<>9) and (one+1<>13))\n then (Maplets: -Tools:-Set(tabl[one+1]('value')=true),\n Maplets:-Tools:-Set(ta bl[one]('caption')=Maplets:-Tools:-Get(tabl[one+1]('caption'))),\n \+ Maplets:-Tools:-Set(tabl[one+1]('caption')=empt_y),\n Maplets :-Tools:-Set(tabl[one]('value')=false),q1())\n end if:\n \n if (((rol l=4)or(roll=7)) and\n (one-1 >0) and (one-1<>4) and\n ( one-1<>8) and (one-1<>12))\n then (Maplets:-Tools:-Set(tabl[one-1]('va lue')=true),\n Maplets:-Tools:-Set(tabl[one]('caption')=Maplets: -Tools:-Get(tabl[one-1]('caption'))),\n Maplets:-Tools:-Set(tabl [one-1]('caption')=empt_y),\n Maplets:-Tools:-Set(tabl[one]('val ue')=false), q2())\n end if:\n\n if (((roll=3)or(roll=8)) and (one-4 \+ >0))\n then (Maplets:-Tools:-Set(tabl[one-4]('value')=true),\n M aplets:-Tools:-Set(tabl[one]('caption')=Maplets:-Tools:-Get(tabl[one-4 ]('caption'))),\n Maplets:-Tools:-Set(tabl[one-4]('caption')=emp t_y),\n Maplets:-Tools:-Set(tabl[one]('value')=false),q3())\n en d if:\n \n if (((roll=2)or(roll=6)) and (one+4<17))\n then (Maplets:- Tools:-Set(tabl[one+4]('value')=true),\n Maplets:-Tools:-Set(tab l[one]('caption')=Maplets:-Tools:-Get(tabl[one+4]('caption'))),\n \+ Maplets:-Tools:-Set(tabl[one+4]('caption')=empt_y),\n Maplets: -Tools:-Set(tabl[one]('value')=false),q4())\n end if:\n\nend do:\nend \+ proc:\n#==========\n\n# \317\320\316\326\305\304\323\320A\nff := proc( )\n do\n end do\nend proc:\n\n \n \+ Time:=proc(t) # \357\360\356\366\345\344\363 \360\340 \356\362\342\345\367\340\345\362 \347\340 \347\340\344\345 \360\346\352\363\n do try # \357\360 \350 \361\354\345\355\345 \361\342\345\362\356\342 \352\355\356\357 \352\350 \n timelimit(t,ff())\n \+ # timelimit(t) \n catch: \n break:\n end try:\n \+ end do:\n end proc:\n#==========\n\n# \317\320\316 \326\305\304\323\320A\n chgcol:=proc() # \357\356\344\361\342\345 \367\350\342\340\345\354 \366\342\345\362 \342\356\347\354\356\346\355 \373\365 \357\345\360\345\361\362\340\355\356\342\356\352\n local k,cl b:\n global tabl:\n \n clb:=Maplets:-Tools:-Get('TB1'('background')): \+ # \347\340\357\356\354\350\355\340\345\354 \357\345\360\342\356\355 \340\367\340\353\374\355\373\351 \366\342\345\362 \352\355\356\357\356 \352\n \n for k from 1 to 16 do # \356\357 \360\345\344\345\353\377\345\354 \357\356\353\356\346\345\355\350\345 \357\363\361\362\373\370\352\350 \n\n if (Maplets:-Tools:-Get(tabl[ k]('caption'))=empt_y)\n then\n\n if ((k+1<17) and (k+1<>5) and \n \+ (k+1<>9) and (k+1<>13))\n then (Maplets:-Tools:-Set(tabl[k+1]('bac kground')=\"#C0C0C0\"),Time(0.08),\n Maplets:-Tools:-Set(tabl[k+ 1]('background')=clb))\n end if:\n \n if (k+4<17)\n then (Maplets:-T ools:-Set(tabl[k+4]('background')=\"#C0C0C0\"),Time(0.08),\n Map lets:-Tools:-Set(tabl[k+4]('background')=clb))\n end if:\n\n if ((k-1 >0) and (k-1<>4) and\n (k-1<>8) and (k-1<>12))\n then (Maplets:- Tools:-Set(tabl[k-1]('background')=\"#C0C0C0\"),Time(0.08),\n Ma plets:-Tools:-Set(tabl[k-1]('background')=clb))\n end if:\n\n if (k- 4 >0)\n then (Maplets:-Tools:-Set(tabl[k-4]('background')=\"#C0C0C0\") ,Time(0.08),\n Maplets:-Tools:-Set(tabl[k-4]('background')=clb)) \n end if:\n\nend if\nend do:\nend proc:\n#==========\n\n\n# \317\320 \316\326\305\304\323\320A\n coun_t:=proc() # \361\367\350\362\340 \345\354 \342\360\345\354\377 - \357\360\356\354\345\346\363\362\356 \352 \342\373\342\356\344\350\362\361\377 \357\360\350 \355\340\346 \340\362\350\350 \352\355\356\357\356\352\n global cnt,vr,vo: \n cnt := cnt+1:\n vo:=round(time()-vr):\n Map lets:-Tools:-Set('count'('caption')=vo):\n end proc:\n#========== \n\n # \317\320\316\326\305\304\323\320\300\n file_out:=proc() # \302 \373\341\350\360\340\345\354 \344\340\355\355\373\345 \350\347 \364 \340\351\353\340 \360\345\347\363\353\374\362\340\362\356\342\n local r1,r2,r3:\n global vr,fd:\n \n FileTools[Text][Open](fd, create=tru e,append=true); # \356\362\352\360\373\342\340\345\354(\361\356\347 \344\340\345\354) \364\340\351\353\n FileTools[Text][Close](fd):\n r 1:=FileTools[Text][CountLines](fd):\n \n for r2 from 1 to r1 do \+ # \342\373\341\350\360\340\345\354 \342\361 \345 \347\340\357\350\361\350\n Maplets:-Tools:-Set('DDB1'(appenditem )=FileTools[Text][ReadLine](fd))\n end do:\n \n FileTools[Text][Clos e](fd):\n end proc:\n#========== \n\n # \317\320\316\326\305\304\323 \320\300\n file_in:=proc() # \302\355\356\361\350\354 \355\356\342 \373\351 \360\345\347\363\353\374\362\340\362 \342 \364\340\351\353 \+ \360\345\347\363\353\374\362\340\362\356\342\n global vr,fd:\n local r1,r2:\n \n if (Maplets:-Tools:-Get('TxN'('value'))=\"\") # \+ \305\361\353\350 \350\354\377 \355\345 \357\360\350\361\342\356\345 \355\356,\n then(Maplets:-Tools:-Set('TxN'('value')=\"Pupkin\")) # \+ \362\356 \356\355\356 - Pupkin\n end if: \n\n FileTools[Text][Open]( fd, create=true,append=true); # \356\362\352\360\373\342\340\345\354( \361\356\347\344\340\345\354) \364\340\351\353 \n r1:=Maplets:-Tools: -Get('TxN'('value')):\n FileTools[Text][WriteString](fd,r1); # \+ \347\340\355\356\361\350\354 \355\356\342\356\345 \350\354\377\n File Tools[Text][WriteString](fd,\" - \");\n r2:=round(time()-vr):\n File Tools[Text][WriteInteger](fd,r2); # \347\340\355\356\361\350\354 \342 \360\345\354\377\n FileTools[Text][WriteLine](fd,\"cek\");\n FileToo ls[Text][Close](fd):\n \n Maplets:-Tools:-Set('Ano'('enabled')=false ):\n end proc:\n#==========\n\nlock:=proc()\nglobal tabl:\nlocal k:\n for k from 1 to 16 do # \344\345\353\340\345\354 \352\355\356\357 \352\350 \340\352\362\350\342\355\373\354\350\n Maplets:-Tools:- Set(tabl[k]('enabled')=false)\nend do:\nend proc:\n\n# \317\320\316 \326\305\304\323\320A\n succes:=proc() # \316\362\354\345\367\340 \345\354 \357\360\340\342\350\353\374\355\363\376 \360\340\361\361\362 \340\355\356\342\352\363 \342\361\345\365 \375\353\345\354\345\355\362 \356\342\n \nif ((Maplets:-Tools:-Get('TB1'('caption'))=\" 1 \")and \n (Maplets:-Tools:-Get('TB2'('caption'))=\" 2 \")and\n (Maple ts:-Tools:-Get('TB3'('caption'))=\" 3 \")and\n (Maplets:-Tools:-Ge t('TB4'('caption'))=\" 4 \")and\n (Maplets:-Tools:-Get('TB5'('capt ion'))=\" 5 \")and\n (Maplets:-Tools:-Get('TB6'('caption'))=\" 6 \+ \")and\n (Maplets:-Tools:-Get('TB7'('caption'))=\" 7 \")and\n \+ (Maplets:-Tools:-Get('TB8'('caption'))=\" 8 \")and\n (Maplets:-Too ls:-Get('TB9'('caption'))=\" 9 \")and\n (Maplets:-Tools:-Get('TB10 '('caption'))=\"10\")and\n (Maplets:-Tools:-Get('TB11'('caption')) =\"11\")and\n (Maplets:-Tools:-Get('TB12'('caption'))=\"12\")and\n (Maplets:-Tools:-Get('TB13'('caption'))=\"13\")and\n (Maplets :-Tools:-Get('TB14'('caption'))=\"14\")and\n (Maplets:-Tools:-Get( 'TB15'('caption'))=\"15\")and\n (Maplets:-Tools:-Get('TB16'('capti on'))=empt_y)\n )\n then (lock(),\n Display(m) ) # \+ \317\356\352\340\347\373\342\340\345\354 \362\340\341\353\350\366\363 \+ \360\345\347\363\353\374\362\340\362\356\342\n end if \n end proc:\n#= =========\n \n\n# \317\320\316\326\305\304\323\320 A\n move_b:=proc() # move_button. \304\342\350\343\340\345\354 \+ \352\355\356\357\352\363 \342\347\340\342\350\361\350\354\356\361\362 \350 \356\362 \362\356\343\356, \352\340\352\340\377 \356\355\340. \n \+ global who,tabl,vr:\n\n if vr=0 then vr:=time(): end if: # \357\360 \350 \357\345\360\342\356\354 \355\340\346\340\362\350\350 \347\340 \357\363\361\352\340\345\354 \361\367\345\362\367\350\352 \342\360\345 \354\345\355\350\n \n if (Maplets:-Tools:-Get(tabl[who]('caption'))= empt_y)\n then (Maplets:-Tools:-Set(tabl[who]('value')=true))\n\n elif ((who+1<17) and (who+1<>5) and\n (who+1<>9) and (who+1<>13)and\n \+ (Maplets:-Tools:-Get(tabl[who+1]('caption'))=empt_y))\n then (Map lets:-Tools:-Set(tabl[who+1]('caption')=Maplets:-Tools:-Get(tabl[who]( 'caption'))),\n Maplets:-Tools:-Set(tabl[who]('caption')=empt_y) ,\n Maplets:-Tools:-Set(tabl[who+1]('value')=false),\n cou n_t())\n \n elif((who-1 >0) and (who-1<>4) and\n (who-1<>8) and \+ (who-1<>12)and\n (Maplets:-Tools:-Get(tabl[who-1]('caption'))=emp t_y))\n then (Maplets:-Tools:-Set(tabl[who-1]('caption')=Maplets:-Tool s:-Get(tabl[who]('caption'))),\n Maplets:-Tools:-Set(tabl[who](' caption')=empt_y),\n Maplets:-Tools:-Set(tabl[who-1]('value')=fa lse),\n coun_t())\n\n elif((who-4 >0)and\n (Maplets:-Tools: -Get(tabl[who-4]('caption'))=empt_y))\n then (Maplets:-Tools:-Set(tabl [who-4]('caption')=Maplets:-Tools:-Get(tabl[who]('caption'))),\n \+ Maplets:-Tools:-Set(tabl[who]('caption')=empt_y),\n Maplets:-To ols:-Set(tabl[who-4]('value')=false),\n coun_t())\n \n elif((who +4<17)and\n (Maplets:-Tools:-Get(tabl[who+4]('caption'))=empt_y)) \n then (Maplets:-Tools:-Set(tabl[who+4]('caption')=Maplets:-Tools:-Ge t(tabl[who]('caption'))),\n Maplets:-Tools:-Set(tabl[who]('capti on')=empt_y),\n Maplets:-Tools:-Set(tabl[who+4]('value')=false), \n coun_t())\n else (Maplets:-Tools:-Set(tabl[who]('value')=fals e))\n end if:\n \n succes(): # \357\360\356\342\345\360 \377\345\354 \355\340 \357\360\340\342\350\353\374\355\356 \361\356 \341\360\340\355\363\376 \352\356\354\341\350\355\340\366\350\376 \n \n if (Maplets:-Tools:-Get('CBMI1'('value'))=true) # \345\361\353 \350 \356\357\366\350\377 \342\352\353\376\367\345\355\340, \362\356\n then chgcol(): # \354\345\355\377 \345\354 \366\342\345\362 \342\356\347\354\356\346\355\373\365 \352 \355\356\357\356\352 \n end if:\n\n end proc: \n#==========\n \+ \n \n# \317\320\316\326\305\304\323\320A\n T1:=proc() global who : who:=1: move_b(): end proc: # \317\360\350 \355\340\346\340 \362\350\350 \352\355\356\357\352\350 \n T2:=proc() global who: who:= 2: move_b(): end proc: # \356\362\354\345\367\340\345\354 \345 \345 \355\356\354\345\360 \350\n T3:=proc() global who: who:=3: move_ b(): end proc: # \342\373\347\373\342\340\345\354 \364\363\355 \352\350\376 \n T4:=proc() global who: who:=4: move_b(): end proc: \+ # \356\341\360\340\341\356\352\350 \361\356\376\373\362\350\377\n T5:=proc() global who: who:=5: move_b(): end proc: \n T6:=proc() gl obal who: who:=6: move_b(): end proc:\n T7:=proc() global who: who:=7 : move_b(): end proc:\n T8:=proc() global who: who:=8: move_b(): end \+ proc:\n \n T9 :=proc() global who: who:=9 :move_b(): end proc: \n T1 0:=proc() global who: who:=10:move_b(): end proc:\n T11:=proc() global who: who:=11:move_b(): end proc: \n T12:=proc() global who: who:=12:m ove_b(): end proc:\n T13:=proc() global who: who:=13:move_b(): end pro c: \n T14:=proc() global who: who:=14:move_b(): end proc:\n T15:=proc( ) global who: who:=15:move_b(): end proc: \n T16:=proc() global who: w ho:=16:move_b(): end proc:\n\n\n\n#\n#\n# \314\300\317\313\305 \322\n#\n#\n\nmaplet :=Maplet( # \314\340\357\353\345\362\n'onstartup' = 'A1',\n\nWindow['W1']( # \303\353\340\342\355\356\345 \356\352\355 \356\n'title' = \"\317\377\362\355\340\370\352\350\",\n'menubar'= 'MB 1', \n [[BoxLayout(\n BoxColumn('border'=true,inset=0,spacing=0, \n BoxRow(inset=0,spacing=0,\n BoxCell(\"\302\360 \345\354\377 \350\343\360\373:\"),\n Label[count]('caption' =\"0\"),\n Label(\"\361\345\352.\")\n ),\n \+ BoxRow(),\n MenuSeparator(),\n BoxRow(inset=0,spacing= 0,\nToggleButton['TB1']('caption'=\" 1 \",enabled='false', 'value'=fal se,'onchange'=Evaluate('function'=\"T1\")),\nToggleButton['TB2']('capt ion'=\" 2 \",enabled='false', 'value'=false,'onchange'=Evaluate('funct ion'=\"T2\")),\nToggleButton['TB3']('caption'=\" 3 \",enabled='false', 'value'=false,'onchange'=Evaluate('function'=\"T3\")),\nToggleButton[ 'TB4']('caption'=\" 4 \",enabled='false', 'value'=false,'onchange'=Eva luate('function'=\"T4\"))\n ),\n BoxRow(inset=0,spacin g=0,\nToggleButton['TB5']('caption'=\" 5 \",enabled='false', 'value'=f alse,'onchange'=Evaluate('function'=\"T5\")),\nToggleButton['TB6']('ca ption'=\" 6 \",enabled='false', 'value'=false,'onchange'=Evaluate('fun ction'=\"T6\")),\nToggleButton['TB7']('caption'=\" 7 \",enabled='false ', 'value'=false,'onchange'=Evaluate('function'=\"T7\")),\nToggleButto n['TB8']('caption'=\" 8 \",enabled='false', 'value'=false,'onchange'=E valuate('function'=\"T8\"))\n ),\n BoxRow(inset= 0,spacing=0,\nToggleButton['TB9']('caption'=\" 9 \",enabled='false', ' value'=false,'onchange'=Evaluate('function'=\"T9\")),\nToggleButton['T B10']('caption'=\"10\",enabled='false', 'value'=false,'onchange'=Evalu ate('function'=\"T10\")),\nToggleButton['TB11']('caption'=\"11\",enabl ed='false', 'value'=false,'onchange'=Evaluate('function'=\"T11\")),\nT oggleButton['TB12']('caption'=\"12\",enabled='false', 'value'=false,'o nchange'=Evaluate('function'=\"T12\"))\n ),\n BoxRow(i nset=0,spacing=0,\nToggleButton['TB13']('caption'=\"13\",enabled='fals e', 'value'=false,'onchange'=Evaluate('function'=\"T13\")),\nToggleBut ton['TB14']('caption'=\"14\",enabled='false', 'value'=false,'onchange' =Evaluate('function'=\"T14\")),\nToggleButton['TB15']('caption'=\"15\" ,enabled='false', 'value'=false,'onchange'=Evaluate('function'=\"T15\" )),\nToggleButton['TB16']('caption'=\" \",enabled='false','value'=t rue,'onchange'=Evaluate('function'=\"T16\"))\n )\n )\n \+ )\n]] ),# /\303\353\340\342\355\356\345 \356\352\355\356\n\n\nWi ndow['W2'] ( # \302\345\360\361\350\377 \357\360\356\343\360\340\354 \354\373 \n'title' = \"\316 \357\360\356\343\360\340\354\354 \345\",\n'height'= 200,\n'width' = 200,\n[\"\310\343\360\340 ' \317 \377\362\355\340\370\352\350 '.\",\n\"\302\345\360\361\350\377 1.0. \+ \354\340\360\362 2004.\343\",\n\"Freeware. All rights reserved.\", \nLabel['LI'](image=IE_day),\n\"Keman (Zheglov ALexander).\"]\n \+ \n\n ),#/\302\345\360\361\350\377 \357\360\356\343\360\340\354 \354\373 \n\n\nWindow['W4'](\n title=\"\317\356\354\356\371\374\", \n layout=\n BoxLayout(\n [TextBox(\n width=35,hei ght=10,background=\"#C0C0C0\",\n wrapped=true,editable=false,va lue=HelpInfo,tooltip=\"\317\356\354\356\371\374\"),\n Button(\"O K\",onclick=Shutdown())\n ]\n )\n ),#/\302\345\360\361\350 \377 \357\360\356\343\360\340\354\354\373 \n\nMenuBar['MB1']( # \303 \353\340\342\355\356\345 \354\345\355\376\nMenu(\"\310\343\360\340\", \+ MenuItem(\"\315\356\342\340\377 \350\343\360\340\",'onclick'=Evaluate( 'function'=\"inaway\")),\n MenuSeparator(),\n \+ MenuItem(\"\302\373\365\356\344\", Shutdown(\"Closed from menu\", \+ ['CBMI1']))),\n \nMenu(\"\316\357\366\350\350\",RadioButtonMenuItem[ 'CBMI1'](\"\317\356\344\361\342\345\367\350\342\340\362\374 \352\355 \356\357\352\350\",'value'=true,'group'='BG1'),\n Radio ButtonMenuItem['CBMI2'](\"\316\341\373\367\355\373\345 \352\355\356 \357\352\350\" ,'group'='BG1')),\nMenu(\"?\", MenuItem(\"\317\356 \354\356\371\374\",RunWindow('W4')), \n MenuItem(\" \316 \357\360\356\343\360\340\354\354\345\",RunWindow('W2'))) \n \+ ), # /\303\353\340\342\355\356\345 \354\345\355\376\n \+ \n\nButtonGroup['BG1'](),\nImage[IE_day](\"//ws35100/Practicum/Zhe glov Alexander/Pgame/keman.jpg\"),\nAction['A1'](RunWindow('W1'))\n \+ ):# /\314\340\357\353\345\362\n\n\nMaplets[Display](maplet) ;\n\n\n" }}}{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 2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }