home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
pbcode.zip
/
CLEAN.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-08-03
|
324b
|
19 lines
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