` FILE:   absr.x
` PURPOSE:  abs(real value)

if x <  0.0? res := -x; 
:: x >= 0.0? res := x; 
fi