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

Add_rec()      Add a new record                        Locks.prg


Syntax:        Add_rec(<seconds>)

Argument:      <seconds> is the number of seconds to wait.  A value
               of zero means wait indefinitely.

Returns:       Add_rec() returns true (.T.) if the new record is
               successfully appended.  The new record then becomes
               current and is locked.  Otherwise, it returns false
               (.F.).

-------------------------------- Source Code -------------------------------

   FUNCTION Add_rec
   PARAMETERS wait
   PRIVATE forever

   APPEND BLANK
   IF .NOT. NETERR()
      RETURN (.T.)
   ENDIF

   forever = (wait = 0)
   DO WHILE (forever .OR. wait > 0)

      APPEND BLANK
      IF .NOT. NETERR()
         RETURN .T.
      ENDIF

      INKEY(.5)                 && wait 1/2 second
      wait = wait - .5

   ENDDO
   RETURN (.F.)                 && not locked