# Main Command: Go
# Five Pointed Star by Guy Walker
# www.logoarts.co.uk

To New 
  # set default screen, pen and turtle 
  ResetAll SetScreenSize [400 400] HideTurtle 
  SetSC Black SetPC Green SetPS 1 PenUp 
End

To Star :Size
  # global values
  Forward (:Size/2)/Cos 18
  Right 162 PenDown
  Repeat 5 [Forward :Size Right 144]
  PenUp Left 162 Back (:Size/2)/Cos 18
End

To Go
  New Make "Size 700
  Repeat 4 [
    SetPC RepCount
    Star :Size Right 36
    Make "Size :Size*0.38]
End