open command$ for input as #1 open "temptemp.tmp" for output as #2 while not (eof(1)) Line Input #1,l$ t$="" For i%=1 to len(l$) c$=mid$(l$,i%,1) if c$<" " then c$=" " t$=T$+c$ next i% print #2,t$ wend close #1 close #2 kill command$ name "temptemp.tmp" as command$ end