mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-25 10:41:52 +02:00
* File move to tests directory.
This commit is contained in:
parent
76dc49b25a
commit
e0ab74277c
15
rtl/os2/tests/atx.pas
Normal file
15
rtl/os2/tests/atx.pas
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
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.
|
||||||
Loading…
Reference in New Issue
Block a user