Click above to get retro games delivered to your door ever month!

 FUNCTION 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