mw3.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]ShapesProshapes[6 ||]@F !$'0?N]l{ />M\kz.=L[jy!shapeinfoAshape0name[arrow] shapeno0hash9D9CD32D34BE6020Cshape1name[diamond] shapeno1hash3A209E3CCC33FA34Bshape2name[sphere] shapeno2hashB689390532CA96DFBshape3name[square] shapeno3hashC0C76DABF1029109@shape4name[star] shapeno4hashDF409F9F9FDF3F7F@shape5name[lcsi] shapeno5hashC58CF98D3AB3F94F0shape6 name[||] shapeno6 hash||>shape7 name[||] shapeno7hashDF20207F80DF005F@shape8name[boat] shapeno8hash8977B62F2B2EAAC5?shape9name[bus] shapeno9hash159708204C551555Ashape10name[car]shapeno10hash7787D1DF64914F8FHshape11name[motorcycle]shapeno11hash2D1002BD23B388B8Cshape12name[plane]shapeno12hashCCBE00459A20B86F@shape13 name[||]shapeno13hashDF20207F80DF005F@shape14 name[||]shapeno14hashDF20207F80DF005FBshape15name[cat1]shapeno15hash57603D410CA120F8Bshape16name[cat2]shapeno16hash3DAA646C434A3165Bshape17name[cat3]shapeno17hashEB1CBC53EFC8C743Bshape18name[dog1]shapeno18hashCABD086A627FA0A0Bshape19name[dog2]shapeno19hashBD7FA0A8CABD7FA8Dshape20name[horse1]shapeno20hash278FD5528617A229Dshape21name[horse2]shapeno21hash17DC6C42A7C9057EDshape22name[horse3]shapeno22hashFA13D8592AD82B70Dshape23name[horse4]shapeno23hash634D69A419C65ECBGshape24name[kangaroo1]shapeno24hashC0AFB040EC072C1BGshape25name[kangaroo2]shapeno25hashDBF28FBE00D40D47Gshape26name[kangaroo3]shapeno26hash7257ADAC5D23CAAACshape27name[lion1]shapeno27hashA877B1FFD9526610Cshape28name[lion2]shapeno28hash52D3B85E15761906@shape29 name[||]shapeno29hashDF20207F80DF005F@shape30 name[||]shapeno30hashDF20207F80DF005FBshape31name[bee1]shapeno31hash1B53CEBF7A01B02ABshape32name[bee2]shapeno32hashC00CCDB26F1416E7Hshape33name[butterfly1]shapeno33hash3FBD2DF11E2AC450Hshape34name[butterfly2]shapeno34hash41083AF35941AEAECshape35name[bird1]shapeno35hash6510C3F2FA569319Cshape36name[bird2]shapeno36hashE07411427667AEAE@shape37 name[||]shapeno37hashDF20207F80DF005F@shape38 name[||]shapeno38hashDF20207F80DF005FFshape39name[dolphin1]shapeno39hashBB5BC4CA91884CCAFshape40name[dolphin2]shapeno40hashE03C2E77CF89F622Fshape41name[dolphin3]shapeno41hash4FBC42AD63B25D5CBshape42name[fish]shapeno42hash3042E26896E189C1@shape43 name[||]shapeno43hashDF20207F80DF005F@shape44 name[||]shapeno44hashDF20207F80DF005FKshape45name[construction1]shapeno45hash797AF8DA6A169FDEKshape46name[construction2]shapeno46hash84C4ED816FC9302AKshape47name[construction3]shapeno47hash3F72A46E5AD5F2FFEshape48name[doctor1]shapeno48hash55120BE94A0052FFEshape49name[doctor2]shapeno49hash0CB72E01102E4BE6Eshape50name[doctor3]shapeno50hash872457C29F9518C3Dshape51name[judge1]shapeno51hash17380520BCB83D5BDshape52name[judge2]shapeno52hash360EED6F37E8FE9CFshape53name[student1]shapeno53hashC40D9F91FE733617Fshape54name[student2]shapeno54hashBE41457ACD45AA89Fshape55name[student3]shapeno55hash725E17746B49574EFshape56name[teacher1]shapeno56hash00D9195A7BA26952Fshape57name[teacher2]shapeno57hashACF0B9FEE8AF2DBEFshape58name[teacher3]shapeno58hash5D4BE516ADE1E1D1Eshape59name[kicker1]shapeno59hash0E8854AB360FDC1EEshape60name[kicker2]shapeno60hash4F4E8F7DDAD6DB36Eshape61name[runner1]shapeno61hash1DA04F18EBD2437CEshape62name[runner2]shapeno62hash53F7F853508D05F5Eshape63name[runner3]shapeno63hashC1F332D5E9E988BEEshape64name[runner4]shapeno64hash6854834099E47194Eshape65name[runner5]shapeno65hash33B1668D9DAC710EEshape66name[runner6]shapeno66hashC61508CE68D89403Bshape67name[ball]shapeno67hashC2017FBC47A49D1C@shape68 name[||]shapeno68hashDF20207F80DF005F@shape69 name[||]shapeno69hashDF20207F80DF005FDshape70name[bamboo]shapeno70hash15094945E4AAF02EDshape71name[baobab]shapeno71hash0C99A40676DF9F08Eshape72name[begonia]shapeno72hash969142BFFDB41A22Dshape73name[cactus]shapeno73hashFA3339D1637E6849Cshape74name[daisy]shapeno74hashF68197FF7FE562CACshape75name[fern1]shapeno75hashEEDC7A6C48D83E0DCshape76name[fern2]shapeno76hashD39FCFB53A041CCABshape77name[iris]shapeno77hashC3AE17949E06640CBshape78name[rose]shapeno78hash3CE370352BDCFB04Eshape79name[sapling]shapeno79hash7B2FD97981F45759Dshape80name[willow]shapeno80hash8E2EBD880F91DE12@shape81 name[||]shapeno81hashDF20207F80DF005F@shape82 name[||]shapeno82hashDF20207F80DF005FCshape83name[cloud]shapeno83hash1E237718D5B15548Hshape84name[lightning1]shapeno84hashD0C6E005DE4522EFHshape85name[lightning2]shapeno85hash64DC361614A043D3Hshape86name[lightning3]shapeno86hash1E4740F7B87CE02CGshape87name[raincloud]shapeno87hashE1A36208BF73CBD8Ashape88name[Sun]shapeno88hash5A438D8138AC3617@shape89 name[||]shapeno89hashDF20207F80DF005F@shape90 name[||]shapeno90hashDF20207F80DF005FCshape91name[Earth]shapeno91hashECD721930F087F55Eshape92name[Jupiter]shapeno92hashFDA0A5D7F6C2FD32Bshape93name[Mars]shapeno93hash730A21F1AC5F5567Eshape94name[Mercury]shapeno94hashF927702B937E1810Bshape95name[Moon]shapeno95hashCDD31EDEB0573767Eshape96name[Neptune]shapeno96hash99C9B41B2B60D9FCCshape97name[Pluto]shapeno97hash9EBCBAE524B66D9EDshape98name[Saturn]shapeno98hashD4C1C7631FAE38E3Dshape99name[Uranus]shapeno99hashA99C40F139931AD7Eshape100name[Venus]shapeno100hash942D6DB6644B5890Fshape101name[rocket]shapeno101hash767C5ABF20623BE8Ishape102name[satellite]shapeno102hashE3EEE401233195CBBshape103 name[||]shapeno103hashDF20207F80DF005FBshape104 name[||]shapeno104hashDF20207F80DF005FKshape105name[eiffeltower]shapeno105hashDAE78C2459165378Gshape106name[liberty]shapeno106hashD02D16E85E4CB664Gshape107name[obelisk]shapeno107hash03814BD94FCBF8BBGshape108name[pyramid]shapeno108hash9DEAD10D786143E9Eshape109name[house]shapeno109hash4DA66216215A9B86Ishape110name[apartment]shapeno110hash3261E00C4FF33033Eshape111name[cabin]shapeno111hash48E6A8ECCF068EEFBshape112 name[||]shapeno112hashDF20207F80DF005FBshape113 name[||]shapeno113hashDF20207F80DF005FHshape114name[balloons]shapeno114hashE6DE2E65F4395218Dshape115name[cake]shapeno115hash0A2B343CEA7073C1Gshape116name[diploma]shapeno116hashC69CBA0E8DFA22C5Hshape117name[partyhat]shapeno117hash474598AD52EB9581Bshape118 name[||]shapeno118hashDF20207F80DF005FBshape119 name[||]shapeno119hashDF20207F80DF005FBshape120 name[||]shapeno120hashDF20207F80DF005FBshape121 name[||]shapeno121hashDF20207F80DF005FBshape122 name[||]shapeno122hashDF20207F80DF005FBshape123 name[||]shapeno123hashDF20207F80DF005FBshape124 name[||]shapeno124hashDF20207F80DF005FBshape125 name[||]shapeno125hashDF20207F80DF005FBshape126 name[||]shapeno126hashDF20207F80DF005FBshape127 name[||]shapeno127hashDF20207F80DF005Fbrusheswbrushno0 maskno0 size1 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno1 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno2 maskno0 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno3 maskno0 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]wbrushno4 maskno1 size8 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno5 maskno1 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrushno6 maskno0 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade17wbrushno7 maskno1 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade5wbrushno8 maskno5 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade7xbrushno9 maskno3 size15 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade19ybrush no10 maskno0 size2 edge4 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no11 maskno0 size4 edge8 fcn0fcnnamemake-airbrush special0 fade67 shade[]zbrush no12 maskno0 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no13 maskno1 size3 edge7 fcn0fcnnamemake-airbrush special0 fade70 shade[]zbrush no14 maskno1 size5 edge10 fcn0fcnnamemake-airbrush special0 fade67 shade[]ybrush no15 maskno0 size8 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]zbrush no16 maskno0 size15 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]ybrush no17 maskno1 size6 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]zbrush no18 maskno1 size12 edge0 fcn1fcnnamemake-edgebrush special0 fade0 shade[]xbrush no19 maskno0 size3 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]xbrush no20 maskno0 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no21 maskno0 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]xbrush no22 maskno1 size8 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no23 maskno1 size15 edge0 fcn2fcnnamemake-rainbowspecial[] fade0 shade[]ybrush no24 maskno2 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no25 maskno3 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no26 maskno4 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]ybrush no27 maskno5 size12 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no28 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no29 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no30 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no31 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no32 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no33 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no34 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[]xbrush no35 maskno0 size3 edge0 fcn0fcnnamemake-airbrush special0 fade0 shade[])procedures)text{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Courier New;}{\f1\fnil Courier New;}{\f2\fmodern\fprq1 Courier New;}} {\colortbl ;\red0\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 \par to comments \par ; \par ;why does the bottom of the announcement \par ;window cut off the Stop & OK buttons?? \par ; \par \f1 ;try a drag-and-drop technique instead of \par \f0 ;using \f1 clicks \par ; \par ;try to minimize or elim use of globals? \par ; \par ;is there a procedure command that can be \par ;used to EXIT the game? \par \f0 ; \par ;add a trace proc in case you stumble \par ;upon a solution \par ; \par ;look into the use of \par ;"turtlesown" to control visibility? \par ; \par ;learn more turtle programming ... \par ;(read it in Help Topics) \par ; \par ;\f1 set "t3 "visible? "false\f0 \par ;\f1 get "t3 "visible?\f0 \par ;if turtle is truely invisible, \par ;then turtle can't be clicked? \par ; \par end \par \par ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; \par \par to clicked \par if :flip-sw = "on \par [flip-it stopall] ;STOP \par ifelse :1st-clk-sw \par [do.1st.clk] \par [do.2nd.clk] \par end \par \par to do.1st.clk \par make "1st-clk-tur who \par ;quit if :1st-clk-tur color is INVISIBLE \par if (invisible-tur? :1st-clk-tur) \par [msg-no-turtle] \par ;flash the 1st-clk-tur \par \f1 repeat 3 [setc "red wait 1 setc "white wait 1] \par \f0 setc "black \par ;get set of valid 1st moves \par \f1 make "\f0 pp-x\f1 item (butfirst who) :pp \par ;quit if jump is not possible \par \f0 if NOT valid-1st? \par [msg-not-valid-1st] \par ;NICE... test if there are ANY valid pegs \par ;if YES continue \par ;if NO quit \par make "1st-clk-sw "false \par ; \par ;global outputs ... \par ;pp-x \par ;1st-clk-sw \par ;1st-clk-tur \par end \par \par \f1 to do.\f0 2nd\f1 .clk \par make "\f0 2nd\f1 -clk-tur who \par \f0 ;quit if :2nd-clk-tur color is VISIBLE \par if (visible-tur? :2nd-clk-tur) \par \f1 [msg-2nd-turtle-black]; err & stopall \par \f0 ;quit if 2nd-clk-tur is an invalid position \par if NOT valid-2nd? \par [msg-not-valid-2nd] \par ;move the turtle to it's valid position\f1 \par \f0 tto :2nd-clk-tur setc "black ;make visible \par tto :1st-clk-tur setc "green ;make invisible \par ;FLASH the jumped turtle (pp-1) \par ;before making it invisible \par tto :pp-1 setc "red \par wait 10 \par tto :pp-1 setc "green ;make invisible\f1 \par make "1st-clk-sw "\f0 true \par ;NICE ...congratulate if 1 turtle left! \par ;global output ... \par ;1st-clk-sw\f1 \par end \par \par to valid-1st? \par ;\f0 global \f1 input ... \par \f0 ;\f1 pp-x = \f0 set of \f1 valid-1st-moves \par \f0 ;\f1 \par ;test if \f0 a \f1 valid move is possible \par ;(place to goto must be INVISIBLE) and \par ;(place that is jumped must be VISIBLE) \par ;if YES return "true \f0 \f1 \par ;if NO return "false \par ; \par dolist [i [1 2 3 4]] \par [ \par ;get ith-set-of-the-valid-sets \par make "pp-xi item :i :pp-x \par if (empty? :pp-xi) \par [op "false ] \par ; \par make "pp-1 first :pp-xi \par make "pp-2 last :pp-xi \par ; \par if AND (visible-tur? :pp-1) (invisible-tur? :pp-2) \par [op "true] \par ] ;end-of-dolist \par \par ;if all 4 tests fail then output false \par op "false \par end \par \par to valid-2nd? \par ;\f0 global \f1 input ... \f0 :pp-x = set of \f1 valid-1st-moves \par ;\f0 global \f1 input ... :2nd-clk-tur \par ;test if 2nd click was \f0 a \f1 valid place to go to \par ;if YES return "true & pp-1 eq to peg to be jumped \par ;if NO return "false \par \f0 ; \f1 \par dolist [i [1 2 3 4]] \par [ \par ;get ith-set-of-the-valid-sets \par make "pp-xi item :i :pp-x \par ; \par if (empty? :pp-xi) \par [op "false] \par ; \par make "pp-1 first :pp-xi \par make "pp-2 last :pp-xi \par \f0 ;\f1 \par if AND (:pp-2 = :2nd-clk-tur)(visible-tur? :pp-1) \par [op "true] \par ] ;end of dolist \par \f0 ;\f1 \par ;if all 4 tests fail\f0 ed\f1 then output false \par op "false \par end \par \par \f0 \par to flip \par ;toggle flip-sw to ON/OFF status \par ifelse (:flip-sw = "on) \par [make "flip-sw "off \par set "t16 "visible? "false] \par [make "flip-sw "on \par set "t16 "visible? "true] \par end \par \par to flip-it \par ;flip turtle's visibility \par ;9 = visible \par ;55 = invisible \par ifelse color = 9 \par [setc 55] \par [setc 9] \par end \par \par to quit \par ;NICE...report if there are any valid moves \par ;left before quiting \par make "cnt 0 \par everyone \par [if (color = 9) \par [make "cnt :cnt + 1 ]] \par announce (sentence "There "are :cnt "pegs "left.) \par announce [\f1 leave one, you're genius. \par leave two and you're purty smart. \par leave three and you're just plain dumb. \par leave four\f0 -\f1 or\f0 -\f1 mor\f0 e \f1 '\f0 e\f1 n you're \par just\f0 an\f1 'eg-no-ra\f0 h\f1 -moose. \par \f0 ] \par announce [TO-EXIT-THE-GAME: ........... Press "Esc" Key, ..... then Click Menu Items ... "File" ... "Exit". ] \par ;reset \par end \par \par to identify \par ;show all holes that turtles can jump to \par cc \par \f1 make "flip-sw "off \par set "t16 "visible? "false \par make "1st-clk-sw "true \par \f0 make "found-place-sw "false\f1 \par \f0 ;make-pp ... done by reset \par \f1 ;CAUTION turtle t16\f0 (\f1 the flip indicator\f0 ) \f1 is \par ;colored red so it is not processed by \par ;the everyone command \par \f0 ; \par everyone \par [if (color = 9) \par [test-valid-moves] \par ] ;end-everyone \par ; \par if (:found-place-sw = "false) \par [announce [NO VALID MOVES LEFT!]] \par end \par \par \par to test-valid-moves \par ;for current turtle \par \f1 ;test if valid move\f0 s\f1 \f0 are\f1 possible \par ;(place to goto must be INVISIBLE) and \par ;(place that is jumped must be VISIBLE) \par \f0 ;(report ALL valid places to goto) \par ;(set found-place-sw to true) \par \par ;get sets of valid moves for current turtle \par \f1 make "\f0 pp-x\f1 item (butfirst who) :pp \par \par \f0 dolist [i [1 2 3 4]]\f1 \par \f0 [ \f1 \par ;get first-set-of-the-valid-sets \par make "pp-x\f0 i\f1 item \f0 :i\f1 :pp-x \par if (empty? :pp-x\f0 i\f1 ) \par [stop ] \par make "pp-1 first :pp-x\f0 i\f1 \par make "pp-2 last :pp-x\f0 i\f1 \par ; \par if AND (visible-tur? :pp-1) (invisible-tur? :pp-2) \par [\f0 make "found-place-sw "true \par flash-the-hole ]\f1 \par \f0 ] \par end \par \par to \f1 flash\f0 -the-hole\f1 \par repeat 3 [setc "\f0 yellow\f1 wait 1 setc "white wait 1] \par setc "\f0 green \par end\f1 \par \f0 \par \f1 \par to demo \par \f0 ; \par \f1 announce \par [If you saw the sequence of moves needed to be a peg/turtle Genius, it might spoil the challenge of this game. I've been told there are numerous solutions! \par ] \par announce \par [If you have the inclination (and spare-time) to write a PROCEDURE whereby the "computer finds" \b\f2 ALL\b0\f1 the Solutions, please post your logic\f0 to the MWForum\f1 . \par ] \par announce \par [(\f0 Turtle/\f1 Holes are numbered, top to bottom, along the left edge ... 1,2,3,4,5,-- 6,7,8,9,-- 10,11,12,-- 13,14,-- 15)\f0 . \f1 Remember -- there are numerous ways to work this game. For a more difficult game, start with t10 empty instead of t1. \par ] \par \f0 reset\f1 \par \f0 end \par \f1 \par to trace \par ;trace sequence of jumps \par end \par \f0 \par \f1 \par \f0 to reset \par everyone [setc "black] \par t1, setc "green \par ;CAUTION...t16 is the flip indicator light \par ;it must not be black, it is made red \par ;to avoid being processed by the IDENTIFY Proc \par \f1 t16, setc "red \par set "t16 "visible? "false \par make "flip-sw "off \par make "1st-clk-sw "true \par \f0 make-pp \par end \par \f1 \par \f0 \par to visible-tur? :tur-name \par \f1 if\f0 else\f1 (t-color :\f0 tur-name\f1 ) = "\f0 black \par [op "true] \par [op "false] \par end\f1 \par \f0 \par \f1 to \f0 in\f1 visible-tur? :tur-name \par if\f0 else\f1 (t-color :tur-name) = "\f0 green\f1 \par [op "true] \par [op "false] \par \f0 end \par \par \f1 to t-color :t-name \par ;report turtle's color \par ;as "black or "green \par tto :t-name \par ifelse color = 9 [output "black] [output "green] \par end \par \f0 \par \par \f1 to msg-2nd-turtle-black \par make "1st-clk-sw "true \par announce [TURTLE PRESENT ... try again.] \par stopall \par end \par \par to msg-not-valid-1st \par make "1st-clk-sw "true \par announce [NO PLACE TO GO ...] \par stopall \par end \par \par to msg-not-valid-2nd \par make "1st-clk-sw "true \par announce [NOT A VALID PLACE TO GO TO ...] \par stopall \par end \par \par to msg-no-turtle \par make "1st-clk-sw "true \par announce [NO TURTLE] \par stopall \par end \par \f0 \par to make-pp \par ;pp = list of valid moves for t1 thru t15 \par \f1 make "pp (list \par [[t2 t3][t6 t1\f0 0\f1 ]\f0 [][]\f1 ] \par [[t3 t4][t7 t\f0 11\f1 ]\f0 [][]\f1 ] \par \f0 [[t4 t5][t8 t12][t7 t10][t2 t1]] \par [[t3 t2][t8 t11][][]] \par [[t4 t3][t9 t12][][]] \par [[t7 t8][t10 t13][][]] \par [[t8 t9][t11 t14][][]] \par [[t7 t6][t11 t13][][]] \par [[t8 t7][t12 t14][][]] \par [[t11 t12][t13 t15][t6 t1][t7 t3]] \par [[t7 t2][t8 t4][][]] \par [[t8 t3][t11 t10][t9 t5][t14 t15]] \par [[t11 t8][t10 t6][][]] \par [[t12 t9][t11 t7][][]] \par [[t13 t10][t14 t12][][]]\f1 ) \par \f0 end \par \par to make-dd \par make "dd (list \par [t3 t2 t1] [t10 t7 t3] [t1 t6 t10] \par [t4 t3 t2] [t12 t8 t3] [t13 t11 t8] \par [t2 t3 t4] [t4 t8 t11] [t15 t14 t12] \par [t9 t12 t14] [t10 t11 t12] [t14 t12 t9] \par [t5 t9 t12]) \par end \par \par to show-dd \par reset \par wait 10 \par make-dd \par dolist [i [1 2 3 4 5 6 7 8 9 10 11 12 13]] \par [ \par make "dd-x item :i :dd \par make "dd-x1 item 1 :dd-x \par \f1 make "dd-x\f0 2\f1 item \f0 2\f1 :dd-x \par make "dd-x\f0 3\f1 item \f0 3\f1 :dd-x \par ;\f0 F\f1 lash the 1st-clk-tur \par tto :dd-x1 \par repeat \f0 6\f1 [setc "\f0 black\f1 wait 1 setc "white wait 1] \par \f0 setc "black \par wait 5\f1 \par ;FLASH the jumped turtle \par ;before making it invisible \par tto :dd-x2 \par setc "red \par wait 10 \par setc "green ;make invisible \par ;\f0 M\f1 ove 1st-clk-tur to hole \par tto :dd-x3 \par setc "black \par \f0 wait 10 \par tto :dd-x1 setc "green\f1 \par \f0 ]\f1 \par \f0 end\f1 \par \f0 \par \par to startup \par presentationmode \par reset \par end \par \par ;;;;;;; FINI ;;;;;;;;;;;; \par \f1 \par \f0 \par \par \par \pard \par } ipagenamepage1curturtlet16curtexttext1transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0RbufferR$6HZl~ 2DVhz=^$Ef ,MqCm?i;e 7a 3 ]  / Y  + O p 3 i A w O']5k CyQ)_7m0QrM=y-iY I9u)eU E5k ( I j 3!{!! "S"""+#s##$K$$$#%k%%%C&&&'c''';((()[)))3*{** +S++++,s,,,,-9-Z-{-----#.P...(/|//$0x00 1t112p223l334h445d55 6`667\778X889T999P:::L;;;<<<`<<<<<=&=G=h===== >.>O>p>>>>>?6?W?x?????@>@_@@@@@A%AFAgAAAAA B-BNBoBBBBBC5CVCwCCCCCD=D^DDDDDE$EEEfEEEEE F,FMFnFFFFFG4GUGvGGGGGH