* LOWER ( addr cnt -- ) convert string to lower case This is not in LP's F83 but provided for symmetry simulate: : LOWER 0 DO DUP I + DUP C@ >R _tolower SWAP C! LOOP DROP ;
LOWER
( addr cnt -- )
simulate: : LOWER 0 DO DUP I + DUP C@ >R _tolower SWAP C! LOOP DROP ;
forth_usual ordinary primitive