upper:forth_usual — ordinary primitive
FORTH
UPPER ( addr cnt -- )();p4:"upper";
UPPER ( addr cnt -- )(
)
convert string to upper case
simulate: : UPPER 0 DO DUP I + DUP C@ UPC SWAP C! LOOP DROP ;