SP Misc/Other Functions

 ISPART()       Determines if a value is part of a set
 CURD()         Return current drive letter
 SBROWS()       Determine number of rows in a box
 ISPRN()        Detects printer ready (or not) on LPT1, 2 or 3
 SBCENTER()     Centers box coordinates
 SBCOLS()       Determine number of columns in a box
 EVALQ()        Evaluates a logical condition in a string
 ENDSWITH()     Determines if a string ends with another string
 PRNTFRML()     Prints a formletter created by formletr()
 CDIR()         Change Directory
 VARLEN()       Returns length of a variable  of any type

SP_ISPART

ISPART()

  Short:
  ------
  ISPART() Determines if a value is part of a set

  Returns:
  --------
  <lIsPart> => if value is part of set

  Syntax:
  -------
  ISPART(expX1,expX2,[expX3],...[expX10])

  Description:
  ------------
  Compares a value <expX1> to a set of values of same
  type <expX2..expX10> to determine if it is equal to any of
  them. Returns True if it is, False otherwise. Up to 9 values to
  compare.

  Examples:
  ---------
   If ISPART(nChoice,5,6,7,12)
     MSG("Need a DBF open")
     loop
   endif

   If ISPART(cChars,"A","B","C","D")

   endif

  Source:
  -------
  S_ISPART.PRG