mumps: eliminar blancos consecutivos

Eliminar varios blancos consecutivos de una cadena de texto:

F X=1:1:$L(TEXTO) I $E(TEXTO,X,X+1)=" " S TEXTO=$E(TEXTO,1,X)_$E(TEXTO,X+2,$L(TEXTO)) S X=X-1 

Útil cuando queremos unir en una única línea otras varias de otra fuente.