code 35112;
 real procedure COSH(X); value X; real X;
 if ABS(X) < 17.5 then 
 begin X:= EXP(X); COSH:= 0.5 * ( X + 1/X ) end else 
 begin 
     COSH:= SINH(ABS(X))
 end COSH;
        eop