6 lines
126 B
Forth
6 lines
126 B
Forth
|
: lowercase? ( c -- f )
|
||
|
|
[char] a [ char z 1+ ] literal within ;
|
||
|
|
|
||
|
|
: char-upcase ( c -- C )
|
||
|
|
dup lowercase? if bl xor then ;
|