COMPRESS$
The COMPRESS$ function returns a copy of string in which a single blank
space replaces each run of blank spaces.
Syntax
COMPRESS$(S$)
Parameters
S$ A string expression to be compressed.
Examples
10 A$ = COMPRESS$("c a t") !A$ = "c a t"