21 lines
480 B
Plaintext
21 lines
480 B
Plaintext
MODULE try;
|
|
|
|
FROM Arguments IMPORT GetArgs, ArgTable, GetEnv;
|
|
FROM InOut IMPORT WriteCard, WriteLn, WriteString;
|
|
|
|
VAR count, item : SHORTCARD;
|
|
storage : ArgTable;
|
|
|
|
BEGIN
|
|
GetArgs (count, storage);
|
|
WriteString ('Count ='); WriteCard (count, 4); WriteLn;
|
|
item := 0;
|
|
REPEAT
|
|
WriteCard (item, 4);
|
|
WriteString (' : ');
|
|
WriteString (storage^ [item]^);
|
|
WriteLn;
|
|
INC (item)
|
|
UNTIL item = count
|
|
END try.
|