6 lines
159 B
Text
6 lines
159 B
Text
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
|