Assume ASCII characters: ORD('a') - ORD ('A') = 32

IF ('A' <= ch) & (ch <= 'Z') THEN ch := CHR(ORD(ch) + 32) END