home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWAFST.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  488 b   |  19 lines
  1.     // TBFwaFst.prg
  2.     //
  3.     // TBfwaFirst() - TBrowse routine called by goTopBlock. fwa stands for
  4.     //                "for/while/append". It supports generic for and while
  5.     //                conditions and append mode.
  6.  
  7.     FUNCTION TBfwaFirst(bGoFirst, bWhile, bFor)
  8.     
  9.       eval(bGoFirst)
  10.       DO WHILE !eof() .AND. eval(bWhile) .AND. !eval(bFor)
  11.         SKIP
  12.       ENDDO
  13.  
  14.       IF eof() .OR. !eval(bWhile)
  15.         GOTO 0
  16.       ENDIF
  17.     
  18.     RETURN NIL
  19.