mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 15:19:54 +01:00
16 lines
213 B
ObjectPascal
16 lines
213 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.
|