home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / KEYSTAB.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  285 b   |  13 lines
  1.     // KeyStab.prg
  2.     //
  3.     // KeyStabilize() - Repeatedly call stabilize until it returns true or
  4.     //                  the user preses a key
  5.  
  6.     FUNCTION KeyStabilize(oTbr)
  7.  
  8.       DO WHILE NextKey() == 0 .AND. !oTbr:stabilize()
  9.       ENDDO
  10.  
  11.     RETURN oTbr:stable
  12.  
  13.