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