Dmw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapeslprocedures]text{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern Courier New;}{\f4\fmodern Courier New;}{\f5\fmodern\fprq2 Courier New;}{\f6\fswiss Courier New;}{\f7\froman Times New Roman;}{\f8\fnil\fprq2\fcharset2 Wingdings;}{\f9\fswiss MS Shell Dlg;}{\f10\fswiss Arial;}{\f11\fswiss\fprq2 Microsoft Sans Serif;}} {\colortbl\red0\green0\blue0;\red255\green0\blue128;\red0\green0\blue255;\red255\green0\blue255;} \deflang4108\pard\plain\f5\fs20\cf0 MicroWorlds Pro \par ENGLISH VERSION\plain\lang1036\f4\fs20\cf0 \par \par to avanti \par forever [pilote] \par t1, \plain\f5\fs20\cf0 setinstruction [forever [fd 5 wait 1]]\plain\lang1036\f4\fs20\cf0 \par \plain\lang1036\f4\fs20\cf1 setc 55\plain\lang1036\f4\fs20\cf0 \plain\f5\fs20\cf0 ;;\plain\f5\fs20\cf1 if you want !\plain\lang1036\f4\fs20\cf1 \par \plain\lang1036\f4\fs20\cf0 clickon \par end \par \par to pilote \par make "comm ascii readchar \par \plain\f4\fs20\cf0 if\plain\lang1036\f4\fs20\cf0 :comm = 38 [\plain\f4\fs20\cf0 seth\plain\lang1036\f4\fs20\cf0 0] \par \plain\f4\fs20\cf0 if\plain\lang1036\f4\fs20\cf0 :comm = 3\plain\f4\fs20\cf0 9\plain\lang1036\f4\fs20\cf0 [\plain\f4\fs20\cf0 seth\plain\lang1036\f4\fs20\cf0 \plain\f4\fs20\cf0 9\plain\lang1036\f4\fs20\cf0 0] \par \plain\f4\fs20\cf0 if\plain\lang1036\f4\fs20\cf0 :comm = \plain\f4\fs20\cf0 40\plain\lang1036\f4\fs20\cf0 [\plain\f4\fs20\cf0 seth\plain\lang1036\f4\fs20\cf0 \plain\f4\fs20\cf0 18\plain\lang1036\f4\fs20\cf0 0] \par \plain\f4\fs20\cf0 if\plain\lang1036\f4\fs20\cf0 :comm = 3\plain\f4\fs20\cf0 7\plain\lang1036\f4\fs20\cf0 [\plain\f4\fs20\cf0 seth\plain\lang1036\f4\fs20\cf0 \plain\f4\fs20\cf0 27\plain\lang1036\f4\fs20\cf0 0] \par \plain\f3\fs20\cf0 if\plain\lang1036\f3\fs20\cf0 :comm = 30 [\plain\f3\fs20\cf0 seth\plain\lang1036\f3\fs20\cf0 0] \par \plain\f3\fs20\cf0 if\plain\lang1036\f3\fs20\cf0 :comm = 2\plain\f3\fs20\cf0 9\plain\lang1036\f3\fs20\cf0 [\plain\f3\fs20\cf0 seth\plain\lang1036\f3\fs20\cf0 \plain\f3\fs20\cf0 9\plain\lang1036\f3\fs20\cf0 0] \par \plain\f3\fs20\cf0 if\plain\lang1036\f3\fs20\cf0 :comm = \plain\f3\fs20\cf0 31\plain\lang1036\f3\fs20\cf0 [\plain\f3\fs20\cf0 seth\plain\lang1036\f3\fs20\cf0 \plain\f3\fs20\cf0 18\plain\lang1036\f3\fs20\cf0 0] \par \plain\f3\fs20\cf0 if\plain\lang1036\f3\fs20\cf0 :comm = 28 [\plain\f3\fs20\cf0 seth\plain\lang1036\f3\fs20\cf0 \plain\f3\fs20\cf0 27\plain\lang1036\f3\fs20\cf0 0]\plain\lang1036\f4\fs20\cf0 \par \plain\f4\fs20\cf0 if\plain\lang1036\f4\fs20\cf0 :comm = 3\plain\f4\fs20\cf0 2\plain\lang1036\f4\fs20\cf0 [ \par \plain\f4\fs20\cf0 ifelse \plain\f6\fs20\cf0 get "t1 "on? [\plain\f6\fs20\cf1 setc 15\plain\f6\fs20\cf0 clickoff][\plain\f6\fs20\cf1 setc 55\plain\f6\fs20\cf0 clickon]\plain\lang1036\f4\fs20\cf0 ] \par end \par \par to basta \par t1, \plain\f4\fs20\cf0 setinstruction []\plain\lang1036\f4\fs20\cf0 \par \plain\lang1036\f4\fs20\cf1 setc 9 \par \plain\lang1036\f4\fs20\cf0 stopall \par end \par \par \plain\f5\fs20\cf0 to \plain\lang1036\f4\fs20\cf0 show_explanation \par \plain\f5\fs20\cf0 show\plain\lang1036\f4\fs20\cf0 text \par \plain\f6\fs20\cf0 set "bouton3 "rule [launch [Hide_explanation]]\plain\lang1036\f4\fs20\cf0 \par \plain\f5\fs20\cf0 end\plain\lang1036\f4\fs20\cf0 \par \par \plain\f5\fs20\cf0 to\plain\lang1036\f4\fs20\cf0 \plain\f4\fs20\cf0 Hide_\plain\lang1036\f4\fs20\cf0 explanation \par \plain\f5\fs20\cf0 hide\plain\f4\fs20\cf0 text\plain\lang1036\f4\fs20\cf0 \par \plain\f6\fs20\cf0 set "bouton3 "rule [launch [Show_explanation]]\plain\lang1036\f4\fs20\cf0 \par \plain\f5\fs20\cf0 end\plain\lang1036\f4\fs20\cf0 \par \par \par \plain\lang1036\f5\fs20\cf0 \par \par \plain\lang1036\f5\fs20\cf2 MicroMondes Pro \par FRENCH VERSION \par \par pour avanti \par sansfin [pilote] \par t1, fixeinstruction [sansfin[av 5 attends 1]] \par \plain\lang1036\f5\fs20\cf3 fcouleur 55\plain\lang1036\f5\fs20\cf2 ;;\plain\lang1036\f5\fs20\cf3 si vous voulez !\plain\lang1036\f5\fs20\cf2 \par active \par fin \par \par pour pilote \par donne "comm ascii liscar \par si :comm = 38 [fcap 0] \par \plain\lang1036\f4\fs20\cf2 si :comm = 3\plain\f5\fs20\cf2 9\plain\lang1036\f4\fs20\cf2 [fcap \plain\f5\fs20\cf2 9\plain\lang1036\f4\fs20\cf2 0] \par si :comm = \plain\f5\fs20\cf2 40\plain\lang1036\f4\fs20\cf2 [fcap \plain\f5\fs20\cf2 18\plain\lang1036\f4\fs20\cf2 0] \par si :comm = 3\plain\f5\fs20\cf2 7\plain\lang1036\f4\fs20\cf2 [fcap \plain\f5\fs20\cf2 27\plain\lang1036\f4\fs20\cf2 0] \par si :comm = 3\plain\f5\fs20\cf2 2\plain\lang1036\f4\fs20\cf2 [ \par \plain\f5\fs20\cf2 sisinon \plain\f6\fs20\cf2 obtiens "t1 "actif? [\plain\f6\fs20\cf3 fcouleur 15\plain\f6\fs20\cf2 d\'e9sactive][\plain\f6\fs20\cf3 fcouleur 55\plain\f6\fs20\cf2 active]\plain\f7\fs24\cf2 \par \plain\lang1036\f4\fs20\cf2 ] \par \plain\lang1036\f5\fs20\cf2 fin \par \par pour basta \par \plain\lang1036\f4\fs20\cf2 t1, fixeinstruction [] \par \plain\lang1036\f5\fs20\cf3 fcouleur 9 \par \plain\lang1036\f5\fs20\cf2 stoppetout \par fin \par \par pour show_explanation \par montretexte \par \plain\f6\fs20\cf2 fixe "bouton3 "instruction [lance [Hide_explanation]]\plain\lang1036\f5\fs20\cf2 \par fin \par \par \plain\lang1036\f4\fs20\cf2 pour \plain\f5\fs20\cf2 Hide_\plain\lang1036\f4\fs20\cf2 explanation \par \plain\f5\fs20\cf2 cachetexte\plain\lang1036\f4\fs20\cf2 \par \plain\f6\fs20\cf2 fixe "bouton3 "instruction [lance [Show_explanation]]\plain\lang1036\f4\fs20\cf2 \par fin \par \par \plain\lang1036\f5\fs20\cf2 \par \plain\lang1036\f5\fs20\cf0 \par \par \par \par } .pagenamepage1curturtlet1curtextExpltransition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0$buffer$$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p  $ 6 H Z l ~  2 D V h z  . @ R d v   * < N ` r   & 8 J \ n "4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdvobject typet namet1locked?false xpos188 ypos213 shape0penstate0 size40pencolor0 heading0 pensize1shown?true fcn[] kind0 shapein0have-list[has] colorin9objecttypebuttonnamebouton1rect[11 349 60 25]show-name?falselocked?falsefcn[avanti] kind1objecttypebuttonnamebouton2rect[12 383 60 25]show-name?falselocked?falsefcn[basta] kind1object typetext nameExplrect[346 19 236 317]show-name?falselocked?falsevisible?falsesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern Courier New;}{\f4\fmodern Courier New;}{\f5\fmodern\fprq2 Courier New;}{\f6\fswiss Courier New;}{\f7\froman Times New Roman;}{\f8\fnil\fprq2\fcharset2 Wingdings;}{\f9\fswiss MS Shell Dlg;}{\f10\fswiss Arial;}{\f11\fswiss\fprq2 Microsoft Sans Serif;}} {\colortbl\red0\green0\blue0;\red255\green0\blue128;\red0\green0\blue255;\red255\green0\blue255;} \deflang1036\pard\plain\f11\fs20 The "avanti" button activates the animated turtle and the "pilote"\plain\lang4108\f11\fs20 \plain\f11\fs20 process. This process lets you change the heading of the turtle with the \plain\f8\fs20 \'df\'e1\'e0\'e2 \plain\f11\fs20 keys, and deactivate or activate the animated turtle with the spacebar on the keyboard. \par \plain\lang4108\f11\fs20 The "basta" button stops all running processes.\plain\f9\fs17 \par \plain\f10\fs20\cf0 \par \plain\f10\fs20\cf2 Le bouton "aventi" active la tortue anim\'e9e ainsi que le processus "pilote". Ce dernier permet de changer la direction de la tortue \'e0 l'aide \plain\lang4108\f10\fs20\cf2 des touches \plain\f8\fs20\cf2 \'df\'e1\'e0\'e2\plain\f11\fs20\cf2 et de d\'e9sactiver ou activer la tortue anim\'e9e \'e0 l'aide de la barre d'espace du clavier. \par Le bouton "basta" stoppe tous les processus actifs. \par } objecttypebuttonnamebouton3rect[353 383 136 22]show-name?falselocked?falsefcn[Show_explanation] kind1