locator Example
10 CLEAR SCREEN
20 SET LOCATOR 0,0
30 WHILE KBD$=""
40 READ LOCATOR X,Y,Stat$
50 PRINT X,Y
60 PRINT "Status: ";Stat$;" - length: ";LEN(Stat$)
70 WAIT 1
80 END WHILE
90 END