home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWALST.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  582 b   |  23 lines
  1.     // TBFwaLst.prg
  2.     //
  3.     // TBfwaLast() - Routine called by goBottomBlock to move to the last
  4.     //               record in the database matching the for and while
  5.     //               condition, and taking append mode into account.
  6.  
  7.     FUNCTION TBfwaLast(bGoLast, bWhile, bFor, lAppend)
  8.     
  9.       IF lAppend
  10.         GOTO 0
  11.       ELSE
  12.         eval(bGoLast)
  13.         DO WHILE !bof() .AND. eval(bWhile) .AND. !eval(bFor)
  14.           SKIP -1
  15.         ENDDO
  16.     
  17.         IF bof() .OR. !eval(bWhile)
  18.           GOTO 0
  19.         ENDIF
  20.       ENDIF
  21.  
  22.     RETURN NIL
  23.