Function Kursor

*-------------------------------
Public Tpp, Bri, Kli, Brii, Klii
*-------------------------------
*--------------
Function Kursor
*--------------
@ Brs, Klm Get &NmField Pict NmPict
Set Cursor On
Read
Set Cursor Off
Return .T.
*---------