home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / pbcode.zip / CLEAN.BAS < prev    next >
BASIC Source File  |  1994-08-03  |  324b  |  19 lines
  1. open command$ for input as #1
  2. open "temptemp.tmp" for output as #2
  3.  
  4. while not (eof(1))
  5.     Line Input #1,l$
  6.     t$=""
  7.     For i%=1 to len(l$)
  8.         c$=mid$(l$,i%,1)
  9.         if c$<" " then c$=" "
  10.         t$=T$+c$
  11.     next i%
  12.     print #2,t$
  13. wend
  14. close #1
  15. close #2
  16. kill command$
  17. name "temptemp.tmp" as command$
  18. end
  19.