var x, y, button : int loop Mouse.Where (x, y, button) Text.Locate (1, 1) put x : 4, " ", y : 4 end loop