RosettaCodeData/Task/Command-line-arguments/Cowgol/command-line-arguments.cowgol

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;