RosettaCodeData/Task/Get-system-command-output/XPL0/get-system-command-output.xpl0

int     C;
repeat  C:= ChIn(1);
        if C>=^a & C<=^z then   \lowercase letters to uppercase
            C:= C & ~$20;
        ChOut(0, C);
until   C = $1A