code 35120;
real procedure TAN(X); value X; real X;
begin real U;
    U:= SIN(X)/COS(X);
    TAN:= if OVERFLOW(U) then GIANT else U
end TAN;
        eop