Преобразование регистра строк
Используя функции преобразования регистра символа, можно изменять регистр строк. Вот 2 функции, которые это делают:
Find_Invalid_Symbols()
Временами приходится проверять правильность полученных текстовых данных. Эта функция проверяет, что строка (первый параметр) состоит только из допустимых символов, составляющих строку - второй параметр.
Sign()
Функция получения знака аргумента. Привел исключительно ради демонстрации, как можно ее написать максимально коротко. Можно просто сравнить аргумент с нулем 2 раза, можно поступить, как приведено ниже.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Получение знака аргумента. Возвращается -1,0 или 1
FUNC Sign(result)
if result != 0
result = result / abs(result)
end if
END FUNC