aUCBLogo Demos and Tests / spiraltest


to spiraltest
   clearScreen
   spiral 50
end

to spiral size
   if size < 1 [stop]
   forward size
   right 20
   spiral size*0.99
end