home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / UTIL / CVTDOS.BAS next >
Encoding:
BASIC Source File  |  1993-09-16  |  224 b   |  15 lines
  1. OPEN "allsrc.dos" FOR INPUT AS 1
  2. OPEN "allsrc.txt" FOR OUTPUT AS 2
  3. WHILE NOT EOF(1)
  4.   x$ = INPUT$(1, 1)
  5.   IF x$ = CHR$(10) THEN
  6.     PRINT #2, ln$
  7.     ln$ = ""
  8.   ELSE
  9.     ln$ = ln$ + x$
  10.   END IF
  11. WEND
  12. CLOSE
  13. END
  14.  
  15.