home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / TOOLS.COM / CHECKESC.FUN next >
Text File  |  1988-10-20  |  429b  |  16 lines
  1. !-------------------------------------------------------------------------------
  2. ! CHECK FOR ESC OR F10_KEY
  3. !-------------------------------------------------------------------------------
  4. CHECKESC FUNCTION
  5.  
  6.   CODE
  7.  
  8.     IF KEYBOARD() THEN          !KEY PRESSED
  9.       ASK              !GET KEY CODE
  10.       IF KEYCODE() = ESC_KEY OR KEYCODE() = F10_KEY THEN
  11.     RETURN(1)          !YES
  12.       ELSE
  13.     RETURN(0)          !NO
  14.     . .               !END IF, IF
  15.  
  16.