Duvida Leitura de arquivo "dos"

Faz aquela "gambiarra" clássica de copiar um arquivo com uma linha em branco para o final do arquivo com o texto (concatena aquivos).

/*nada como uma boa gambiarra para resolver...*/

DEF TEMP-TABLE tt-mail-ant
FIELD tt-mail-old AS CHAR
INDEX ch-princ tt-mail-old.

DEFINE VARIABLE c-diretorio AS CHARACTER NO-UNDO.
DEFINE VARIABLE c-arquivo-original AS CHARACTER NO-UNDO.
DEFINE VARIABLE c-arquivo-fim-de-linha AS CHARACTER NO-UNDO.
DEFINE VARIABLE c-novo-arquivo AS CHARACTER NO-UNDO.


ASSIGN c-diretorio = 'c:\temp\'
c-arquivo-original = 'ft0513imp99teste.txt'
c-arquivo-fim-de-linha = 'fim-de-linha.txt'
c-novo-arquivo = '1-' + c-arquivo-original.

OUTPUT TO VALUE(c-diretorio + c-arquivo-fim-de-linha).
DISP ''.
OUTPUT CLOSE.

DOS SILENT COPY/Y VALUE(c-diretorio + c-arquivo-original + " + " + c-diretorio + c-arquivo-fim-de-linha) VALUE(c-diretorio + c-novo-arquivo).


INPUT FROM VALUE(c-diretorio + c-novo-arquivo).
CREATE tt-mail-ant.
IMPORT UNFORMATTED tt-mail-ant.


FOR EACH tt-mail-ant:
DISP
tt-mail-ant.tt-mail-old FORMAT 'x(200)'
WITH STREAM-IO SCROLLABLE.
END.