home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP17.EXE / CHP1703.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  660 b   |  29 lines
  1. /*
  2.    Listing 17.3  Example to change SET KEY table
  3.    Author: Joe Booth
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11.  
  12. #include "INKEY.CH"
  13.  
  14. LOCAL option:=1
  15. while ! empty(option)
  16.    @ 10,20 prompt "CUSTOMER UPDATE"
  17.    @ 12,20 prompt "VENDOR UPDATE"
  18.    menu to option
  19.    if option == 1
  20.       setkey(K_F9,{ || CUST_LOOK() } )
  21.       upd_cust()
  22.    elseif option == 2
  23.       setkey(K_F9,{ || VEND_LOOK() } )
  24.       upd_vend()
  25.    endif
  26. enddo
  27.  
  28. // end of file CHP1703.PRG
  29.