Imw2.0 Spanishprojectsize[300 300]turtles-have[]globals[]globals-list[globals-vars]mshapes[12 puntoseleccionado](( !$'*-6EXk~wwwwwwwwwwwwww[13 punto](( !$'*-6ETcrwwwwwwwwproceduresptext{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fprq2 Arial;}} {\colortbl\red0\green0\blue0;\red9\green0\blue0;} \deflang1033\pard\plain\f3\fs20 \par para limpiar \par l\'e1piz, escucha limpiar-punto \par sp fpos pide "punto-0 [pos] \par limpia \par fin \par \par para EMPIEZA \par concuidado [activa texto1] [anuncia mensajedeerror] \par fin \par \par ;--------------------------------------------- \par ; Primitivas de nivel de usuario \par ;--------------------------------------------- \par \par para Iniciaen :n \par dile punton\'famero :n \par sin-marca-l\'ednea pos \par fin \par \par para salta :n \par si qui\'e9n = "l\'e1piz [Iniciaen 0] \par si (dist "l\'e1piz) > 1 [dile punton\'famero 0] \par dile punton\'famero :n + menosprimero menosprimero mpr menosprimero qui\'e9n \par marca-l\'ednea pos \par fin \par \par para limpiapunto \par pide "l\'e1piz [limpiar-punto] \par fin \par ;------------ \par \par para punton\'famero :n \par reporta palabra "punto- residuo :n tama\'f1otablero \par fin \par \par \par Top Level Linking procedures \par \par ;------------------------------------------------------------ \par ; Procedimientos de enlace de alto nivel \par ;----------------------------------------------------------- \par \par para buscar-amigo :here \par siotro :click? \par [marca-l\'ednea :here] \par [sin-marca-l\'ednea :here \par da "click? "cierto] \par fin \par \par para marca-l\'ednea :here \par pide "l\'e1piz [cp fpos :here mt] \par fin \par \par para sin-marca-l\'ednea :here \par pide "l\'e1piz [mt sp fpos :here mt] \par fin \par \par para limpiar-punto \par et da "click? "falso \par fin \par \par ;====================== \par ; Geoboard Maker \par ;====================== \par para NuevoTablero :n \par asigna [puntos tama\'f1otablero] \par si :puntos = :n [alto] \par limpiar \par concuidado [remueve "l\'e1piz] [] \par siotro :puntos > :n \par [remueve-puntos :n :puntos - :n] \par [agrega-puntos :pegs :n - :puntos] \par todas [fijaposici\'f3n :n] \par da "click? "falso \par congela pr p\'e1ginas \par crear-l\'e1piz \par limpiar \par fin \par \par para H\'e1galo \par concuidado [activa texto1] [] \par fin \par \par para fijaposici\'f3n :n \par et origen frumbo 0 adelante 0 frumbo 360 / :n * menosprimero menosprimero menosprimero menosprimero mpr mpr quien adelante 100 mt \par fin \par \par para remueve-puntos :from :n \par da "num :from \par cumpleveces [i :n] [concuidado [remueve palabra "punto- :from + :i] []] \par fin \par \par para agrega-puntos :from :n \par da "num :from - 1 \par cumpleveces [i :n] [crear-punto] \par fin \par \par para crear-punto \par tortuganueva pr\'f3ximonombre "punto- \par et ffigura "punto \par fija quien "regla [lanza [buscar-amigo pos]] \par fin \par \par para crear-l\'e1piz \par tortuganueva "l\'e1piz \par et ffigura "puntoseleccionado \par fija "l\'e1piz "regla [lanza [limpiar-punto]] \par fcolor 42 fgrosor 3 \par fin \par \par para pr\'f3ximonombre :nombre \par da "num :num + 1 \par reporta palabra :nombre :num \par fin \par \par para inicio \par l\'e1piz, et da "click? "falso \par fcolor 42 fgrosor 3 \par fin \par \par para tama\'f1otablero \par re -1 + cuenta obtiene primero paginas "tortugas \par fin \par \par para dist :qui\'e9n \par asigna [dx coorx - pide :quien [coorx] \par dy coory - pide :qui\'e9n [coory]] \par re :dx * :dx + :dy * :dy \par fin \par \par \plain\f2\fs20\b \par } a7pagename36Puntoscurturtlepunto-0curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]mouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [iniciaen 0 limpiapunto detntodo] [iniciaen 0 limpiapunto detntodo] [] [] []] bg99Sbuffer,,< $-6?HQZclu~ )2;DMV_hqz %.7@IR[dmv!*3<ENW`ir{ &/8AJS\enw"+4=FOXajs| '09BKT]fox#,5>GPYbkt} (1:CLU^gpy   $ - 6 ? H Q Z c l u ~    ) 2 ; D M V _ h q z ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////object typetnamepunto-35locked?truexpos129.16221868ypos31.8230696385 shape14penstate0 size40pencolor0heading350 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-0locked?false xpos150 ypos30 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-1locked?falsexpos170.837781ypos31.82307 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-2locked?falsexpos191.042417ypos37.236886 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-3locked?false xpos210ypos46.076952 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-4locked?falsexpos227.134513ypos58.074667 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-5locked?falsexpos241.925333ypos72.865487 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-6locked?falsexpos253.923048 ypos90 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-7locked?falsexpos262.763114ypos108.957583 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-8locked?falsexpos268.17693ypos129.162219 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-9locked?false xpos270 ypos150 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-10locked?falsexpos268.17693ypos170.837781 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-11locked?falsexpos262.763114ypos191.042417 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-12locked?falsexpos253.923048 ypos210 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-13locked?falsexpos241.925333ypos227.134513 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-14locked?falsexpos227.134513ypos241.925333 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-15locked?false xpos210ypos253.923048 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-16locked?falsexpos191.042417ypos262.763114 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-17locked?falsexpos170.837781ypos268.17693 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-18locked?false xpos150 ypos270 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-19locked?falsexpos129.162219ypos268.17693 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-20locked?falsexpos108.957583ypos262.763114 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-21locked?false xpos90ypos253.923048 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-22locked?falsexpos72.865487ypos241.925333 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-23locked?falsexpos58.074667ypos227.134513 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-24locked?falsexpos46.076952 ypos210 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-25locked?falsexpos37.236886ypos191.042417 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-26locked?falsexpos31.82307ypos170.837781 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-27locked?false xpos30 ypos150 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-28locked?falsexpos31.82307ypos129.162219 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-29locked?falsexpos37.236886ypos108.957583 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-30locked?falsexpos46.076952 ypos90 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-31locked?falsexpos58.074667ypos72.865487 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-32locked?falsexpos72.865487ypos58.074667 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-33locked?false xpos90ypos46.076952 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-34locked?falsexpos108.957583ypos37.236886 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamelpizlocked?false xpos150 ypos30 shape13penstate0 size40pencolor10027007 heading0 pensize3shown?falsefcn[limpia-punto] kind1shapeinpuntoseleccionadohave-list[has]colorin42objecttypebuttonnamebotn1rect[240 274 56 21]show-name?falselocked?truefcn[Limpiar] kind1