      FUNCTION BABS(A)
      BABS=A
      IF (A)1,2,2
1     BABS=-A
2     RETURN
      END
