OYmw2.0projectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapes/procedures text{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\froman\fprq2 Times New Roman;}{\f4\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red19\green0\blue0;} \deflang1033\pard\plain\f3\fs24 to ChangeDir \par make "key ascii readchar \par if :key = 38 [t1, seth 0] ;Macintosh might be 72. \par if :key = 37 [t1, seth 270] ;Macintosh might be 75. \par if :key = 39 [t1, seth 90] ;Macintosh might be 77. \par if :key = 40 [t1, seth 180] ;Macintosh might be 80. \par if :key = 122 [t1, Decelerate] ;Macintosh? \par if :key = 120 [t1, Accelerate] ;Macintosh? \par ChangeDir \par end \par \par to Start \par make "SetSpeed 1 \par t1, setinstruction [forever [fd :SetSpeed]] \par Speed, ct \par insert :SetSpeed \par t1, clickon \par ChangeDir \par end \par \par to Accelerate \par make "SetSpeed (:SetSpeed + 1) \par Speed, ct \par insert :SetSpeed \par end \par \par to Decelerate \par make "SetSpeed (:SetSpeed - 1) \par Speed, ct \par insert :SetSpeed \par end \par \par to Play \par getpage "page1 \par end \par \plain\f2\fs19\b \par to Done \par t1, setinstruction [] \par end \par \par to Instructions \par getpage "InstructionsPage \par end \par \par } )pagenamepage1curturtlet1curtextSpeedtransition0Dturtle-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 xpos167 ypos241 shape0penstate0 size40pencolor0heading270 pensize1shown?true fcn[] kind0shapeinturtlehave-list[has] colorin9~objecttypebuttonnamebutton1rect[59 27 60 25]show-name?falselocked?falsefcn[Start] kind1object typetextnameSpeedrect[41 97 92 41]show-name?truelocked?falsevisible?truesnaped?false)text{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\froman\fprq2 Times New Roman;}{\f4\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red19\green0\blue0;} \deflang1033\pard\plain\f4\fs20\cf1 1 \par } objecttypebuttonnamebutton2rect[22 180 133 28]show-name?falselocked?falsefcn[Instructions] kind1}objecttypebuttonnamebutton3rect[58 58 63 24]show-name?falselocked?falsefcn[Done] kind1*pagenameInstructionsPagecurturtle||curtextInstrtransition11Dturtle-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 typetextnameInstrrect[24 15 687 371]show-name?falselocked?falsevisible?truesnaped?falseutext{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\froman\fprq2 Times New Roman;}{\f4\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red19\green0\blue0;} \deflang1033\pard\plain\f4\fs20 This isn't a game, it just shows you how to control a turtle with the keyboard instead of with the mouse, which can make games more fun. That way, you can change the turtle's direction with the arrow keys, and change the turtle's speed with whatever other keys you choose, like maybe the 'z' and 'x' keys ('z' to slow down, and 'x' to speed up). \par \par Click on Start, then: \par \par -- To change direction, press any of the 4 arrow keys on the keyboard. \par -- To speed up, press the "x" key on the keyboard. \par -- To slow down, press the "z" key on the keyboard. \par \par \par } objecttypebuttonnamebutton1rect[87 267 112 41]show-name?falselocked?falsefcn[Play] kind1