11 lines
295 B
Text
11 lines
295 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: i is 0;
|
|
begin
|
|
writeln("This program is named " <& name(PROGRAM) <& ".");
|
|
for i range 1 to length(argv(PROGRAM)) do
|
|
writeln("The argument #" <& i <& " is " <& argv(PROGRAM)[i]);
|
|
end for;
|
|
end func;
|