aUCBLogo Demos and Tests / startest

to star :size :points :turns
   repeat :points [forward :size right 360 * :turns / :points]
end

to waitstar :size :points :turns
   cs
   star :size :points :turns
   print (se "star :size :points :turns [;press any key to continue...])
   ignore readChar
end

to startest
   waitstar 100 5 2
   waitstar 100 7 3
   waitstar 100 11 4

   waitstar 100 6 2
   waitstar 100 12 3
end