DEFINT A-Z
INPUT "Origem  :", orig$
NAME orig$ AS "TMP.BAS"
OPEN "TMP.BAS" FOR BINARY AS #1
OPEN orig$ FOR BINARY AS #2
FOR i& = 1 TO LOF(1)
   b$ = " "
   GET #1, SEEK(1), b$
   IF b$ = CHR$(10) THEN b$ = CHR$(13) + CHR$(10)
   PUT #2, SEEK(2), b$
NEXT
CLOSE #1, #2
KILL "TMP.BAS"
SYSTEM