FUNCTION Reduce(cString, cReplace) IF PCOUNT() > 1 cString = CHRTRAN(cString, cReplace, SPACE(LEN(cReplace))) ENDIF DO WHILE " " $ cString cString = STRTRAN(cString, " ", " ") ENDDO RETURN cString