MSW Logo

to squaredelete
make "s 100
repeat 9 [pe square :s wait 10 make "s :s-10]
ppt
end
 
to squarepattern
make "s 10
repeat 9 [square :s wait 10 make "s :s+10]
end
 
to squares
repeat 10 [squarepattern squaredelete]
end
​