set locator Example
10 CLEAR SCREEN
20 SET LOCATOR 0,0
30 WHILE KBD$=""
40 READ LOCATOR X,Y !Move the mouse around.
50 PRINT X,Y
60 WAIT 1
70 END WHILE
80 END