to algoperiferico :volte :inizio :ang :fattore
;;;; questa  riga iniziante con punto e virgola  è solo un commento: algoritmo della tartaruga periferica
make "dista :inizio
hideturtle
repeat :volte [forward :dista right :ang 
make "dista :dista*:fattore]
showturtle
end


Make "dista 0.73904414707173
Make "startup [window clearscreen algoperiferico 40 200 36 0.9]