while: wend

[bplus]

No sooner did I post the edit when I tried the opposite:
10 If _MouseInput Then GoTo 10

They both freak'n worked!

Dang It looks like you just have to call _MouseInput, no loop needed! No GOTO needed nutt'n but a mention of _MouseInput!

Code: (Select All)

_Title "Click to draw paths from one click to next" 'b+ 2023-01-03

Do
    z = _MouseInput
    mx = _MouseX: my = _MouseY: mb = _MouseButton(1)
    Locate 1, 1: Print mx, my
    If mb Then
        If lastx <> 0 And lasty <> 0 Then
            Locate my, mx: Print "X";
            If mx > lastx Then
                While lastx < mx
                    lastx = lastx + 1
                    Locate lasty, lastx: Print "X";
                Wend
            Else
                While lastx > mx
                    lastx = lastx - 1
                    Locate lasty, lastx: Print "X";
                Wend
            End If
            If my > lasty Then
                While lasty < my
                    lasty = lasty + 1
                    Locate lasty, lastx: Print "X";
                Wend
            Else
                While lasty > my
                    lasty = lasty - 1
                    Locate lasty, lastx: Print "X";
                Wend
            End If
        End If
        lastx = mx: lasty = my
    End If
Loop