Or even shorter
>

>cStringIn = 'Peter the embedded      space    man'
>cStringOut = cStringIn
>
do while space(2) $ cStringOut
    cStringOut = strtran( cStringOut, space(2), space(1) )
enddo
>
>? cStringOut
>

>
< SNIP >

You can also use Reduce( ) function from FoxTools library