toupper:forth_usual — ordinary primitive
FORTH
TOUPPER ( c1 -- c2 )();p4:"toupper";
TOUPPER ( c1 -- c2 )(
)
convert a single character to upper case
: TOUPPER >R _toupper ;