home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP12.EXE / CHP1215.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  1.1 KB  |  38 lines
  1. /*
  2.    Listing 12.15. AskCust() returns.
  3.    (See also ASKCUST.CH)
  4.    Author: Craig Yellick
  5.    Excerpted from "Clipper 5: A Developer's Guide"
  6.    Copyright (c) 1991 M&T Books
  7.                       501 Galveston Drive
  8.                       Redwood City, CA 94063-4728
  9.                       (415) 366-3600
  10. */
  11.  
  12. #command default <var> to <value> => ;
  13.          if <var> == nil ; <var> := <value> ; endif
  14.  
  15. function AskCust(r, c, message, msgColor, defAnswer, pict)
  16. /*
  17.    General-purpose "which customer #" prompt:
  18.      r          row,
  19.      c          column,
  20.      message    prompt to display at r, c,
  21.      msgColor   color to use for message,
  22.      defAnswer  default answer to prompt,
  23.      pict       picture to use with GET.
  24.  
  25.    Returns end-user's answer to the prompt.
  26. */
  27.  
  28.   default r         to row()
  29.   default c         to col()
  30.   default message   to "Which Customer #?"
  31.   default msgColor  to "GR+/B"
  32.   default defAnswer to space(6)
  33.   default pict      to "999999"
  34.  
  35. return GetString(r, c, message, msgColor, defAnswer, pict)
  36.  
  37. // end of file CHP1215.PRG
  38.