Изменение знака числа
Прототип
void NEGDECIMAL (
   DECIMAL Id,    /* исходное число */
   DECIMAL Od);   /* преобразованное число */
Описание
 

Процедура NEGDECIMAL изменяет знак вещественного числа с фиксированной точкой, представленного в переменной Id типа DECIMAL, на противоположный и помещает его в переменную Od типа DECIMAL.