home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBAGONXT.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  367 b   |  20 lines
  1.     // TBaGoNxt.prg
  2.     //
  3.     // TBaGoNext() - Go to next record supporting append mode
  4.  
  5.     FUNCTION TBaGoNext(lAppend)
  6.  
  7.     LOCAL lMoved := .T.
  8.  
  9.       IF eof() .OR. LastRec() = 0
  10.         lMoved := .F.
  11.       ELSE
  12.         SKIP
  13.         IF eof() .AND. !lAppend
  14.           SKIP -1
  15.           lMoved := .F.
  16.         ENDIF
  17.       ENDIF
  18.  
  19.     RETURN lMoved
  20.