Преобразование регистра строк

Используя функции преобразования регистра символа, можно изменять регистр строк. Вот 2 функции, которые это делают:

' Преобразует строку STR в верхний регистр. Возвращает преобразованную строку
FUNC Str_Upper(fs_string)
         result1 = ""
         for sp_length from 0 to len(fs_string) - 1
                  result1 = result1 & Chr_Upper(substr(fs_string,sp_length,1)
         end for

         result = result1
END FUNC


' Преобразует строку STR в нижний регистр. Возвращает преобразованную строку
FUNC Str_Lower(fs_string)
        result1 = ""
        for sp_length from 0 to len(fs_string) - 1
               result1 = result1 & Chr_Lower(substr(fs_string,sp_length,1)
        end for

        result = result1
END FUNC

Кстати, обе эти функции содержат синтаксическую ошибку. Тем не менее замечательно работают.