home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBPRGS.EXE / TB05.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  537 b   |  26 lines
  1.     // Tb05.prg
  2.     //
  3.     // Simple generic browse routine, MyBrowse1
  4.     // Compile with /a /m /n /w
  5.  
  6.     #include "Inkey.ch"
  7.  
  8.     FUNCTION MyBrowse1(oTbr)
  9.  
  10.     LOCAL nKey
  11.     LOCAL lExitRequested := .F.
  12.  
  13.       DO WHILE !lExitRequested
  14.         FullStabilize(oTbr)
  15.         nKey := InKey(0)
  16.         IF !StdMeth(nKey, oTbr)
  17.           // Check here for other keys ...
  18.           DO CASE
  19.             CASE nKey == K_ESC
  20.               lExitRequested := .T.
  21.           ENDCASE
  22.         ENDIF
  23.       ENDDO
  24.  
  25.     RETURN NIL
  26.