home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBWHEND.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  269 b   |  14 lines
  1.     // TBWhend.prg
  2.     //
  3.     // TBWhEnd() - goBottomBlock function implementing general purpose
  4.     //             while condition
  5.  
  6.     FUNCTION TBWhEnd(bLast,  bWhile)
  7.  
  8.       Eval(bLast)
  9.       IF !Eval(bWhile)
  10.         GOTO 0
  11.       ENDIF
  12.  
  13.     RETURN NIL
  14.