mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-23 00:51:28 +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