Program Chop_Test;

	{ This tests ChopCL, which is located in ChopCL.p
	  Read that file for more details }

type
    argvtype = array [1..10] of string;

procedure ChopCL(var a : argvtype; var m : Integer);
    forward;

var
    argv : argvtype;
    argc : Integer;
    index : Integer;

begin
    argc := 10;
    ChopCL(argv, argc);
    if argc = 0 then
	writeln('There were no arguments.')
    else
	for index := 1 to argc do
	    writeln('Argument ', index, ' is : ', argv[index]);
end.