5? :H ,$+ clearscreendrawhomepenuppendown showturtle hideturtle showspeedbar hidespeedbar hidebuttons20Hf2g8dZcirlrepeat:lfd1rt1circlerrepeat360forward:rright1 circle1xyrmake"d2*3.14*:r/36;pusetposse:x-:r:ypdpdrepeat36rt5fd:drt5pue functionskhomeseth0cleanhtrepeat20fd:krt:k-5make"k:kgrafikhthomecleanmake"q0make"w0make"s100make"x0repeat10circle1:q:w:smake"q(:q+:s/2)make"s:s-10make"x:x+10setx:xkoncetrhthomeclean setheading0make"r100repeat10circle100:rmake"r:r-10obertahtrepeat360/:asetpos00fd80rt:apolysafd:srt:apoly:s:a'ptscleanrepeat5fd:srt72spiraldovzkutif:dovz>100stopfd:dovzrt:kutspiral:dovz+2:kuttrshomecleanrepeat3fd:srt120d1,74444444444444444i50k200q275r0s0t11$w00x100