6mw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapes procedures text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red0\green128\blue128;\red0\green0\blue255;} \deflang1033\pard\plain\f4\fs20\cf1 ; Author: Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds/ \par ; Purpose: To demonstrate the use of everyone [clickon] \par ; And playing music at the same time as starting the turtles \par ; Copyright \plain\lang3081\f4\fs20\cf1 \'a9\plain\f4\fs20\cf1 2005 by Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; Created: April 20, 2005 \par ; \par ; This program is free software; you can redistribute it and/or modify \par ; it under the terms of the GNU General Public License as published by \par ; the Free Software Foundation; either version 2 of the License, or \par ; (at your option) any later version. \par ; \par ; This program is distributed in the hope that it will be useful, \par ; but WITHOUT ANY WARRANTY; without even the implied warranty of \par ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \par ; GNU General Public License for more details. \par ; \par ; You should have received a copy of the GNU General Public License \par ; along with this program; if not, write to the Free Software \par ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. \par ; ----------------------------------------------------------------------\plain\f4\fs20\cf0 \par \plain\f4\fs20 \par \plain\f4\fs20\cf2\b \par to go\plain\f4\fs20 \par everyone [clickon] \par melody1 \par \plain\f4\fs20\cf2\b end \par \par \par to trot\plain\f4\fs20 \par seth 90 \par fd 5 \par wait 0.5 \par \plain\f4\fs20\cf2\b end\plain\f4\fs20 \par \par \plain\f5\fs20 \par \plain\f4\fs20\cf2\b to buz\plain\f4\fs20 \par seth 45 \par rt random 45 \par repeat random 10 [ \par fd 5 \par wait 0.3] \par \par seth 135 \par lt random 45 \par repeat random 10 [ \par fd 5 \par wait 0.3] \par \par \plain\f4\fs20\cf2\b end\plain\f4\fs20 \par \plain\f5\fs20 \par \plain\f4\fs20\cf2\b to halt\plain\f4\fs20 \par everyone [clickoff] \par set "melody1 "on? "false \par \plain\f4\fs20\cf2\b end\plain\f5\fs20 \par \par } ,pagenamepage1curturtlet2curtexttext1transition0Dturtle-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 xpos388 ypos315 shape21penstate0 size40pencolor0heading90 pensize1shown?truefcn[trot] kind0"shapein[horse3 horse1 horse2]have-list[has] colorin9objecttypemelodynamemelody1rect[12 384 32 32]show-name?falselocked?falsevisible?true volume63 tempo125notespw inst0duration1|objecttypebuttonnamebutton1rect[56 388 60 25]show-name?falselocked?false fcn[go] kind1 object typet namet2locked?falsexpos630.790370546ypos257.705803479 shape12penstate0 size40pencolor0heading120 pensize1shown?true fcn[buz] kind0shapein[bee2 bee1]have-list[has] colorin9Hobject typetextnametext1rect[17 10 523 286]show-name?truelocked?falsevisible?truesnaped?truetext{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red0\green128\blue128;\red0\green0\blue255;} \deflang1033\pard\plain\f5\fs20 Click the go button to play a melody & click all turtles at once. \par \par See the go procedure below: \par \par \plain\f4\fs20\cf2\b to go\plain\f4\fs20 \par everyone [clickon] \par melody1 \par \plain\f4\fs20\cf2\b end \par \par to halt\plain\f4\fs20 \par everyone [clickoff] \par set "melody1 "on? "false \par \plain\f4\fs20\cf2\b end\plain\f5\fs20 \par \par } objecttypebuttonnamebutton2rect[124 388 60 25]show-name?falselocked?falsefcn[halt] kind1