Segue i clic del mouse

GraphicsWindow.MouseDown=TiraLinea
Turtle.Speed=8
Turtle.Show()

Sub TiraLinea
   x=GraphicsWindow.MouseX
   y=GraphicsWindow.MouseY
   Turtle.MoveTo(x, y)
EndSub