home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / CLIPPER / NANNWS24.ZIP / ESC_ALT.PRG < prev    next >
Text File  |  1988-05-18  |  771b  |  30 lines
  1. * Program: ESC_ALT.PRG
  2. * Author:  Steve Hillbourne
  3. * Version: Clipper Summer '87
  4. * Notes:   Alter "ABORT Y/N" message when ESCAPE is hit during
  5. *          MEMOEDIT().
  6. * Copyright (c) 1988 Nantucket Corp.
  7. *
  8.  
  9. CLEAR
  10. USE file
  11. memo = " "
  12. MEMOEDIT(memo,2,0,5,35,.T.,"ufunc")
  13. modified = (LASTKEY() <> 27)
  14. IF modified                          && Check if updated
  15.   REPLACE memofield WITH memo
  16. ELSE
  17.   INKEY(2)                           && Pause then erase 
  18.   @ 0,60 SAY SPACE(16)               && message.
  19. ENDIF
  20. RETURN
  21.  
  22. FUNCTION ufunc
  23. PARAMETERS stat,line,col             && Three parameters passed.
  24. IF LASTKEY() = 27                    && If ESCAPE is hit, display
  25.    @ 0,60 SAY "MEMO NOT UPDATED"     && message.
  26. ENDIF
  27. RETURN 0
  28.  
  29. * EOP: ESC_ALT.PRG
  30.