# Main Command: Go
# Spiral Rose 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 go
  New SetPC Red PenDown
  Repeat 4 [
    For [Angle 12 1 -0.1] [Forward 12 Left :Angle Wait 1] 
    Forward 19 PenUp SetXY 0 0 PenDown
    For [Angle 12 1 -0.1] [Forward 12 Right :Angle Wait 1] 
    Forward 19 PenUp SetXY 0 0 PenDown
    Left 90]
end