emw2.0 Englishprojectsize[620 400]$turtles-have[legend place data]Vglobals[all-page red-page blue-page green-page yellow-page white-page black-page]globals-list[globals-vars all-page [|| || ||] red-page [|| || ||] blue-page [|| || ||] green-page [|| || ||] yellow-page [|| || ||] black-page [|| || ||] white-page [|| || ||]]shapes[0 all] $-6?BEHS\gpy|||[1 red] $-6?HQZclu~xxxxxxxxxxxxxxxxxx[2 green] $-6?HQZclu~[3 blue] $-6?HQZclu~[4 yellow] $-6?HQZclu~{{{{{{{{{{{{{{{{{{[5 ||] $-6?HQZclu~xxxxxxxxxxxxxxxxxx[6 black] $-6?HQZclu~RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR[7 white] $-6?HQZclu~[12 ||] $-<Kd %.7ssssssssssssssssssssssssssssssssssssssssssL[13 ||]4 $3<ENir{ssssxsssssxsxsxsssssxsxsxsssssxsss[14 ||] $-6?HQZclu~[15 ||] $*06<BHNTZ`flrx~[28 ||] $-<Kd )2;sssss|ssBssBsBs|ssBsBsBss|sBsBssBs|sBssBsBs|ssB|sBsBssBsB|ssBss|ssss[29 ||] !0?N]l{ />M\ehk~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~C[31 dot]((* !$'*-0369BKTWZ]`cfilorux{~---)procedurestext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fmodern\fprq1 Courier New;}{\f1\fswiss\fprq2\fcharset0 System;}} \viewkind4\uc1\pard\f0\fs18 to startup \par load "lc-compiler.mwl \par lc-compiler-startup \par end \par \par \par \b\f1\fs19 \par \par } M&page name-cc-curturtlemonitorcurtextfile-fieldtransition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []] bg20bufferl-<KZix,;JYhw +:IXgv *9HWfu )8GVet (7FUds '6ETcr&5DSbq%4CRap  $ 3 B Q ` o ~   # 2 A P _ n }   " 1 @ O ^ m |   ! 0 ? N ] l {   / > M \ k z .=L[jy-<KZix,;JYhw +:IXgv *9HWfu )8GVet (7FUds '6ETcr&5DSbq%4CRa_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_J_Jobject typetextnamecommand-centerrect[6 6 521 349]show-name?falselocked?falsevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}{\f1\fswiss\fprq2 Arial;}{\f2\fnil\fcharset0 Arial;}} {\colortbl ;\red9\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs24 flash\f1 \par \cf0\f2\fs20 \par \par } 7object typetextnamestatusrect[275 371 129 27]show-name?falselocked?falsevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 arial;}{\f1\fnil\fcharset0 Arial;}} \viewkind4\uc1\pard\f0\fs16 \par \f1\fs20 \par \par } objecttypebuttonnamebutton1rect[7 371 96 23]show-name?falselocked?falsefcn[compile-file] kind1object typetextnamefile-fieldrect[114 371 85 24]show-name?falselocked?falsevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 arial;}} \viewkind4\uc1\pard\f0\fs16 \par } objecttypebuttonnamebutton2rect[209 371 60 25]show-name?falselocked?falsefcn[browse] kind1objecttypebuttonnamebutton3rect[414 371 60 25]show-name?falselocked?falsefcn[procs] kind1object typetnamemonitorlocked?false xpos609 ypos59 shape0penstate0 size40pencolor0 heading0 pensize1shown?falsefcn[monit] kind0shapeinturtlehave-list[has] colorin9Pobject typetext namemonrect[536 7 71 348]show-name?truelocked?falsevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss Arial;}{\f1\fnil\fcharset0 Arial;}} {\colortbl ;\red9\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 \par \cf0\f1 \par \par } a)pagenameprocscurturtle||curtext-procedures-transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0bufferl-<KZix,;JYhw +:IXgv *9HWfu )8GVet (7FUds '6ETcr&5DSbq%4CRap  $ 3 B Q ` o ~   # 2 A P _ n }   " 1 @ O ^ m |   ! 0 ? N ] l {   / > M \ k z .=L[jy-<KZix,;JYhw +:IXgv *9HWfu )8GVet (7FUds '6ETcr&5DSbq%4CRa_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_j_jobject typetextname-procedures-rect[6 4 608 358]show-name?falselocked?truevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 System;}{\f1\fswiss\fprq2 System;}{\f2\fnil\fcharset0 Arial;}{\f3\froman\fcharset0 Times New Roman;}{\f4\fswiss\fcharset0 Courier New;}} \viewkind4\uc1\pard\b\f0\fs20 to dumbflash \par flash \par end \par \f1 \par \b0\f2 \par \par global [foo bar] \par \par to initfoobar \par setfoo 0 \par setbar 0 \par end \par \par constants \par [[portb 6][portb-ddr $86] \par [portc 7][portc-ddr $87]] \par \par \par \par to light-quick \par setbit 4 portb \par wait 20 \par clearbit 4 portb \par end \par \par to make-input \par write portb-ddr 0 \par end \par \par \pard\sb100\sa100\f3\fs24 \par \pard\f2\fs20 \par \par global [nn] \par \par to prs :n \par setnn :n \par loop \par [if (read-rom nn) = 0 [stop] \par send read-rom nn \par setnn nn + 1] \par end \par \par to prh :n \par prh-digit :n / 16 \par prh-digit :n % 16 \par cr \par end \par \par to prh-digit :n \par ifelse :n < 10 \par [send :n + 48] \par [send :n + 55] \par end \par \par to cr \par send 13 \par end \par \par to print :n \par if :n < 0 [send 45 pn 0 - :n stop] \par pn :n \par end \par \par to pn :n \par if :n > 9999 [pdigit :n 10000] \par if :n > 999 [pdigit :n 1000] \par if :n > 99 [pdigit :n 100] \par if :n > 9 [pdigit :n 10] \par pdigit :n 1 \par cr \par end \par \par to pdigit :n :d \par send ((:n / :d) % 10) + 48 \par end \par \par to read-buzzer \par print read-ad 0 \par read-buzzer \par end \par \par \par \par to project2 \par clearbit 4 portb-ddr \par loop \par [ \par \par initfoobar \par setfoo read-ad 0 \par setbar read-ad 0 \par if foo > (bar + 30) \par [setbit 4 portb \par clearbit 4 portb] \par if bar > (foo + 30) \par [setbit 4 portb \par clearbit 4 portb] \par print foo \par print bar \par ] \par end \par \pard\tx0\tx959\tx1918\tx2877\tx3836\tx4795\tx5754\tx6713\tx7672\tx8631\f4 \par \pard\f2 \par } objecttypebuttonnamebutton1rect[7 369 89 24]show-name?falselocked?truefcn[download] kind1>object typetextnamestatusrect[109 370 106 24]show-name?falselocked?truevisible?truesnaped?falsetext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 arial;}{\f1\fnil\fcharset0 Arial;}} \viewkind4\uc1\pard\f0\fs16 19 bytes \par \f1\fs20 \par \par } ~objecttypebuttonnamebutton2rect[552 370 60 25]show-name?falselocked?truefcn[-cc-] kind1