to aaa
;UCBLogo
;pokrenite proceduru slijedecim upisom:
;---------
;radi
;---------
end
to europa
cs ht setpc 1
for [n 1 12 1] [pu home rt :n*30 fd :d pd zvijezda]
end
to radi
upis make "b sqrt(2*:a/2*:a/2) europa
end
to upis
ts ct
pr [upisi broj velicine zvijezde (normalno: 30)] make "a readword
pr [upisi razmak izmedju njih (normalno: 100)] make "d readword
end
to zvijezda
rt 35 repeat 5[fd :b lt 90 fd :b rt 162]
rt 10 pu fd :b pd fill
end