Lock a record with optional retries
──────────────────────────────────────────────────────────────────────────────

 Syntax

        GT_RecLock( nSeconds )

 Arguments:

      nSeconds - Number of retries

 Returns:

      .T. if record locked

 Description:

      Attempts to lock the current record in the current workarea.
      If unsuccessful, will pause for 1 second and retry.  After nSeconds
      retries it will abort.  If nSeconds is 0, will retry indefinatley.

 Examples:



 Source: RECLOCK.PRG

 Author:  Martin Colloby