;[Program&SV2]
DEFFCT REAL ABS(R:IN)
;[Program&E]
;Version:310
;[Point&S]
;[Point&E]
;[Program&SV2]
    REAL R,S
    IF R < 0 THEN
        S = R * -1
    ELSE
        S = R
    ENDIF
    RETURN S
ENDFCT
;[Program&E]
