home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ISSTATE2.ZIP / ISSTATE.DOC next >
Encoding:
Text File  |  1987-03-14  |  1.1 KB  |  38 lines
  1.  
  2. --------------------------------------------------------------
  3. Asm                               ISSTATE() FUNCTION
  4.                                      by Dirk Lesko
  5. ______________________________________________________________
  6.  
  7.         SYNTAX: if ISSTATE(<expC>)
  8.  
  9.     PARAMETERS: <expC> character string containing state code
  10.  
  11.        RETURNS: logical .T. if state code is valid               
  12.                 otherwise returns .F.
  13.  
  14.        PURPOSE: to see whether a state abbreviation is correct
  15.  
  16.          NOTES: parameter can be upper or lowercase   
  17.  
  18.        EXAMPLE:
  19.         do whil .t.
  20.         store "  " to _state
  21.         @ 10,0 say "Enter state abb:" get _state pict "!!"
  22.         read
  23.  
  24.                 if .not. isstate(_state)
  25.             @ 0,0
  26.                         @ 0,0 say "Printer not ready, Please correct....."
  27.             loop
  28.                 endif
  29.                 -----------------------------------------------------------
  30.         && or can be used with the valid command &&
  31.             
  32.         store "  " to _state
  33.         @ 10,0 say "Enter state abb:" get _state valid isstate(_state)
  34.         read
  35.  
  36.  
  37. .EOF
  38.