FUNCTION rem_mult_blanks(tcString) DO WHILE " " $ tcString tcString = STRTRAN(tcString," "," ") ENDDO RETURN tcString