Command-line arguments: Difference between revisions
Content added Content deleted
Line 587: | Line 587: | ||
NewLine BYTE #a,0</lang> |
NewLine BYTE #a,0</lang> |
||
=={{header|Modula-2}}== |
|||
<lang Modula-2>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.</lang> |
|||
Example: |
|||
<lang Modula-2> |
|||
jan@Beryllium:~/modula/test$ try jantje zag eens pruimen hangen |
|||
Count = 6 |
|||
0 : try |
|||
1 : jantje |
|||
2 : zag |
|||
3 : eens |
|||
4 : pruimen |
|||
5 : hangen |
|||
</lang> |
|||
=={{header|Modula-3}}== |
=={{header|Modula-3}}== |