home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP12.EXE / CHP1212.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  967 b   |  36 lines
  1. /*
  2.    Listing 12.12. Making the function more flexible.
  3.    NOTE: calls SaveEnv() and RestEnv() as found in CHP1207.PRG
  4.    (see also ASKCUST.CH)
  5.    Author: Craig Yellick
  6.    Excerpted from "Clipper 5: A Developer's Guide"
  7.    Copyright (c) 1991 M&T Books
  8.                       501 Galveston Drive
  9.                       Redwood City, CA 94063-4728
  10.                       (415) 366-3600
  11. */
  12.  
  13. function AskCust(r, c, message, msgColor, defAnswer, pict)
  14. /*
  15.    General-purpose "which customer #" prompt:
  16.      r          row,
  17.      c          column,
  18.      message    prompt to display at r, c,
  19.      msgColor   color to use for message,
  20.      defAnswer  default answer to prompt,
  21.      pict       picture to use with GET.
  22.  
  23.    Returns end-user's answer to the prompt.
  24. */
  25. local answer := defAnswer
  26. local getlist := {}
  27.  
  28.   SaveEnv("GR+/B", 1)
  29.   @ r, c say message get answer picture (pict)
  30.   read
  31.   RestEnv()
  32.  
  33. return answer
  34.  
  35. // end of file CHP1212.PRG
  36.