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