home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBAGOPRV.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  242 b   |  15 lines
  1.     // TBaGoPrv.prg
  2.     //
  3.     //   TBaGoPrev() - Go to previous record supporting append mode
  4.  
  5.     FUNCTION TBaGoPrev
  6.  
  7.     LOCAL lMoved := .T.
  8.  
  9.       SKIP -1
  10.       IF bof()
  11.         lMoved := .F.
  12.       ENDIF
  13.  
  14.     RETURN lMoved
  15.