RosettaCodeData/Task/Command-line-arguments/XPL0/command-line-arguments.xpl0

int C;
[loop   [C:= ChIn(8);
        if C = \EOF\$1A then quit;
        ChOut(0, C);
        ];
CrLf(0);
]