Expand()

         Expands a string intervening another

    Syntax:

         Expand( cString [, cExpand] ) -> cNewString

         cCadena : The string to expand
         cExpand : The chain to expand with

    Description:


         Expands the cString string including cExpand between all and
         each one of its letters. The expansion default value is a blank
         space.

    Return:

         The expanded string.

    Example:

         ? Expand ( "Itxaso", "*" )            // I*t*x*a*s*o
         ? Expand ( "itxaso" )                 // i t x a s o
         ? Expand ( "Itxaso", "* *" )          // I* *t* *x* *a* *s* *o