home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWLAST.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  440 b   |  19 lines
  1.     // TBFwLast.prg
  2.     //
  3.     // TBFwLast() - goBottomBlock function implementing general purpose
  4.     //              for and while condition
  5.  
  6.     FUNCTION TBFwLast(bGoLast, bWhile, bFor)
  7.     
  8.       Eval(bGoLast)
  9.       DO WHILE !Bof() .AND. Eval(bWhile) .AND. !Eval(bFor)
  10.         SKIP -1
  11.       ENDDO
  12.     
  13.       IF bof() .OR. !eval(bWhile)
  14.         // No records match scope
  15.         GOTO 0
  16.       ENDIF
  17.     
  18.     RETURN NIL
  19.