15 lines
249 B
Text
15 lines
249 B
Text
include "cowgol.coh";
|
|
include "argv.coh";
|
|
|
|
ArgvInit();
|
|
var i: uint8 := 0;
|
|
|
|
loop
|
|
var arg := ArgvNext();
|
|
if arg == 0 as [uint8] then break; end if;
|
|
i := i + 1;
|
|
print_i8(i);
|
|
print(": '");
|
|
print(arg);
|
|
print("'\n");
|
|
end loop;
|