Kmw2.0 Spanishprojectsize[300 300]turtles-have[]globals[]globals-list[globals-vars]mshapes[12 puntoseleccionado](( !$'*-6EXk~wwwwwwwwwwwwww[13 punto](( !$'*-6ETcrwwwwwwwwyproceduresjtext{\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 mpr mpr 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 :qui\'e9n [coorx] \par dy coory - pide :qui\'e9n [coory]] \par re :dx * :dx + :dy * :dy \par fin \par \par \par } 9pagename|36 Puntos|curturtlepunto-0curtexttexto1transition0Dturtle-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 typetextnametexto1rect[10 264 211 28]show-name?falselocked?truevisible?truesnaped?falsetext{\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 Iniciaen 0 salta 12 \par } objecttypebuttonnamebotn1rect[228 264 65 27]show-name?falselocked?truefcn[EMPIEZA] kind1object typetnamepunto-0locked?false xpos150 ypos20 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-1locked?falsexpos167.364818ypos21.519225 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-2locked?falsexpos184.202014ypos26.030738 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-3locked?false xpos200ypos33.39746 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-4locked?falsexpos214.278761ypos43.395556 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-5locked?falsexpos226.604444ypos55.721239 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-6locked?falsexpos236.60254 ypos70 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-7locked?falsexpos243.969262ypos85.797986 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-8locked?falsexpos248.480775ypos102.635182 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-9locked?false xpos250 ypos120 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-10locked?falsexpos248.480775ypos137.364818 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-11locked?falsexpos243.969262ypos154.202014 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-12locked?falsexpos236.60254 ypos170 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-13locked?falsexpos226.604444ypos184.278761 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-14locked?falsexpos214.278761ypos196.604444 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-15locked?false xpos200ypos206.60254 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-16locked?falsexpos184.202014ypos213.969262 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-17locked?falsexpos167.364818ypos218.480775 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-18locked?false xpos150 ypos220 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-19locked?falsexpos132.635182ypos218.480775 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-20locked?falsexpos115.797986ypos213.969262 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-21locked?false xpos100ypos206.60254 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-22locked?falsexpos85.721239ypos196.604444 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-23locked?falsexpos73.395556ypos184.278761 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-24locked?falsexpos63.39746 ypos170 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-25locked?falsexpos56.030738ypos154.202014 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-26locked?falsexpos51.519225ypos137.364818 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-27locked?false xpos50 ypos120 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-28locked?falsexpos51.519225ypos102.635182 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-29locked?falsexpos56.030738ypos85.797986 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-30locked?falsexpos63.39746 ypos70 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-31locked?falsexpos73.395556ypos55.721239 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-32locked?falsexpos85.721239ypos43.395556 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnamepunto-33locked?false xpos100ypos33.39746 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-34locked?falsexpos115.797986ypos26.030738 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9 object typetnamepunto-35locked?falsexpos132.635182ypos21.519225 shape14penstate0 size40pencolor0 heading0 pensize1shown?truefcn[buscar-amigo pos] kind1shapeinpuntohave-list[has] colorin9object typetnameLpizlocked?false xpos150 ypos20 shape13penstate0 size40pencolor10027007 heading0 pensize3shown?falsefcn[limpiar-punto] kind1shapeinpuntoseleccionadohave-list[has]colorin42objecttypebuttonnamebotn2rect[230 227 56 21]show-name?falselocked?falsefcn[Limpiar] kind1