MODULE Args; VAR count- : LONGINT; PROCEDURE GetArg* (i : LONGINT; VAR s : ARRAY OF CHAR); BEGIN END GetArg; END Args.