code 35114;
 real procedure ARCSINH(X); value X; real X;
 if ABS(X) > "10 then ARCSINH:= SIGN(X)*(0.69314 71805 5995+
     LN(ABS(X))) else 
 begin real Y;
     Y:= X*X; ARCSINH:= SIGN(X)*LOG ONE PLUS X(ABS(X)+Y/(1+SQRT(1+Y)))
 end ARCSINH;
        eop