when green flag clicked
forever
    if <mouse down?> then
        set [X v] to ((x position) - (mouse x))
        set [Y v] to ((y position) - (mouse y))
    end
    if <(X) > [0]> then
        set [dir v] to ((-90) - ([atan v] of ((Y) / (X)))
    else
        set [dir v] to ((90) - ([atan v] of ((Y) / (X)))
    end
    point in direction (dir)
    move (5) steps
end