saving and restoring turtle state

save_restore_state.logo

make "states (list)

to savehere
  push "states (list heading pos pendown?)
end

to gosaved :heading :pos
  localmake "old (pop "states)
  localmake "oldheading (pop "old)
  localmake "oldpos (pop "old)
  localmake "oldpd (pop "old)
  penup
  if :heading [
    setheading :oldheading
  ]
  if :pos [
    setpos :oldpos
  ]
  if :oldpd [
    pendown
  ]
end

cs
penup
setpos [-200 0]
pendown
repeat 20 [
  fd 80
  rt 18
  savehere
  rt 30
  fd 50
  setheading towards [0 0]
  fd 50
  (gosaved TRUE TRUE)
]