String case: Difference between revisions

→‎[[Toka]]: Updated to work with Toka R1
No edit summary
(→‎[[Toka]]: Updated to work with Toka R1)
Line 292:
needs ctype
[ i 1 - ] is Ii
[ countstring.getLength 0 [ dup Ii + c@ toupper over Ii + c! ] +iteratecountedLoop ] is >upperstring.toUpper
[ countstring.getLength 0 [ dup Ii + c@ tolower over Ii + c! ] +iteratecountedLoop ] is >lowerstring.toLower
" heLlO wORld" >upperstring.toUpper type cr
" HeLlO wORld" >lowerstring.toLower type cr
Anonymous user