RosettaCodeData/Task/Command-line-arguments/Modula-3/command-line-arguments.mod3
2023-07-01 13:44:08 -04:00

12 lines
212 B
Text

MODULE Args EXPORTS Main;
IMPORT IO, Params;
BEGIN
IO.Put(Params.Get(0) & "\n");
IF Params.Count > 1 THEN
FOR i := 1 TO Params.Count - 1 DO
IO.Put(Params.Get(i) & "\n");
END;
END;
END Args.