mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 01:49:26 +02:00
13 lines
266 B
ObjectPascal
13 lines
266 B
ObjectPascal
{ Test program to be used by tdos for testing exec }
|
|
{ command. }
|
|
var
|
|
i: integer;
|
|
Begin
|
|
WriteLn('Hello world. With parameters...');
|
|
for i:=0 to paramcount do
|
|
begin
|
|
WriteLn(ParamStr(i));
|
|
end;
|
|
RunError(213);
|
|
end.
|