5f? W4A U2.#+5. BM66( ʦ߀ @@@```ppp߀߀߿ߟ߿ߟ߿ߟ߀ߟ߿BM>( 9 Paint clearscreendrawhomepenuppendown showturtle hideturtle showspeedbar hidespeedbar hidebuttonsd change.turtlesaskpcsetframe2ask"dotsetpc7setpw25dot setpc15setpw:width+5dot setpcask"penpcsetpw:widthdotsetpw:widthK  clear.rectsetpositem12:rectseth90askpcsetframe1setpc0setpw1setfc15let"witem3:rectlet"hlast:rectpolygonlist2(list:w-190:h-190)make"width1setpc0change.turtlesO loopcasereadkey27stop32 clear.rect0ifempty?touched setposmousepd if:fill?fillpudot touchtouched-1setposmouse-2pu-3change.turtles9make"fill?not:fill?setmcif:fill? :f.cursor15102make"fill?"truesetmc :f.cursor112make"fill?"falsesetmc15108make.dir115catch"error ( savescreenloadpathfirst(rld Typefilename noname.bmp):rect)ifnotempty?errorsound300300loop make.bottom maketurtle"tmp(se emptyimage)tell"tmppusetpc8setttArial187001 make.text102"Fill-200-190 make.text112"Pen-130-190 make.text108"Load-60-190 make.text115"Save10-190 make.text32"Clear150-190 make.text27"Quit220-190erturtle"tmptell"penT make.buttonilet"xif:I<8-300-270let"y180-40*mod:I8 maketurtle:I(se:x:y:buttonpuht setframemode)ask:Isetpc:Isetshapecolour7st$make.dirlet"ddirloadpath"*.bmpifempty?:dstopsetmclet"dmap"first:d(readkey0) maketurtle"tmpse-300-19090 emptyimagetell"tmppusetpc7windowpolygon2600903090er "codeareasetpc0seth0setttArial97000local"flet"x-300foreach"f:dmake"f(word" butmember".bmp:f" ) make.textrepc:fse:x-200(inc"xfirsttextsize:f)setpc7homeseth90let"freadkeypolygon2600903090er "codeareaerturtle"tmptell"pen make.bottomsetmcif:fill? :f.cursor15if:f<=0stopif:f>count:dstoplet"fitem:f:dcatch"error( loadscreenloadpath:f:rect)ignoreerror make.textcodetextxysetpos:xytt:textlet"sblbltextsize:textmake"ssefirst:s(-last:s)pprop "codearea:codese:xy:xy+:sstartuperturtleallgssetbg7let"rect-230200540385 maketurtle"pen(setellpu emptyimage) make.bottom(window:rect)repeat16 make.buttonrepc-1 maketurtle"dotse-278-135pd emptyimage maketurtle"widthse-301-166htpustask"width setboxmode"truesetboxpp6from120size61edit0title0localwidth clear.rectsetmc15let"fill?"falsecatch"errorloopsetmcerturtleallcssstouchtifnotnumber?:tstopaskpcsetframe1setpc:tchange.turtlesbuttone'f.cursore5iconeM  BMv( xxxxxxxxxpxxxxxxxxxpxxxxxxxxxxxxxxxxxxpxxxxxxxxxppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwppwwwwwwwwwpwwwwwwwwwpwwwwwwwwwpwwwwwwwwwpwwwwwwwwwpwwwwwwwwwpwwwwwwwwwpBM>( xxxxxxxxxxBMv(xxxxxxxxxpxxxxxxxxxpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwBM>(xxxxwwwwww  BMvv( wpwpwpwpwpwpwwwwwpwwwwwwwwwpwwwwwwwwwwwwwpBM>( px|?>?  BMvv( wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww𻻻𻻻s33𻻻s33s33s33uUU33uUU;uUU;uUU 𛙹q qDDqDKDDqDOtDDfftDDffffftDDfltDD  ppppwwwwwwwwwwwwwwww