Find_Invalid_Symbols()

Опубликовано в QPILE

Временами приходится проверять правильность полученных текстовых данных. Эта функция проверяет, что строка (первый параметр) состоит только из допустимых символов, составляющих строку - второй параметр.

Sign()

Опубликовано в QPILE

Функция получения знака аргумента. Привел исключительно ради демонстрации, как можно ее написать максимально коротко. Можно просто сравнить аргумент с нулем 2 раза, можно поступить, как приведено ниже.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Получение знака аргумента. Возвращается -1,0 или 1
FUNC Sign(result)
     if result != 0
                   result = result / abs(result)
     end if
END FUNC