>I know there has to be a better way of doing this than

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

>
>but I can't seem to remember what it is.

There's a Reduce() function in FoxTools.fll, or if you don't want to use that, you can just improve your algorithm:

FUNCTION rem_mult_blanks(tcString)
i=32
lcSpace=space(i)
do while i>1
  DO WHILE lcSpace $ tcString
    tcString = STRTRAN(tcString,lcSpace," ")
  ENDDO
  i=i/2
  lcSpace=space(i)
enddo
RETURN tcString