2 near - compare nearness of two numbers with a standard
10 eps real, defaults to epsilon()
16 -1 if abs(x - y) < abs(eps)
17 0 if abs(x - y) = abs(eps)
18 1 if abs(x - y) > abs(eps)
21 > print near(22/7, 3.15, .01), near(22/7, 3.15, .005)
28 FLAG qnear(NUMBER *x, NUMBER *y, NUMBER *eps)