Click above to get retro games delivered to your door ever month!

 FUNCTION SADD_REC()

  Short:
  ------
  SADD_REC() Attempts to append a blank record

  Returns:
  --------
  <lSuccess> => success

  Syntax:
  -------
  SADD_REC([nTries],[lAskMore],[cAskMessage])

  Description:
  ------------
  Attempts to append a blank record. Tries [nTries]
  times and then allows user to retry or not if [lAskMore] by
  giving message [cAskMessage] and asking YES/NO.

  Examples:
  ---------
   IF SADD_REC(5,.T.,"Unable to ADD,Try again?")

       IF SREC_LOCK(5,.T.,"Unable to lock, Try again?")
         REPLACE XXX WITH YYY, ZZZ WITH BBB
         UNLOCK
       ENDIF
   ENDIF

  Source:
  -------
  S_SADDR.PRG