fpc/rtl/os2/tests/atx.pas

program atx;

var f:text;
    s:string;

begin
    assign(f,'c:\autoexec.bat');
    reset(f);
    while not eof(f) do
        begin
            readln(f,s);
            writeln(s);
        end;
    close(f);
end.