fpcsrc/tests/test/units/dos/hello.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ 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.