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
© Scoil Naomh Colmcille 2019 |
Contact Us |