mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-01 08:05:54 +02:00
15 lines
167 B
ObjectPascal
15 lines
167 B
ObjectPascal
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. |