pen
;;; -*- logo -*-
to pen
op (list (ifelse pendownp ["pendown] ["penup]) ~
penmode pensize pencolor penpattern)
end
bury [pen]
;;; -*- logo -*-
to pen
op (list (ifelse pendownp ["pendown] ["penup]) ~
penmode pensize pencolor penpattern)
end
bury [pen]