Sign()

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

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