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