Copyright 1993 Digital Equipment Corporation.
Distributed only by permission.
Last modified on Thu Jan 5 23:18:02 PST 1995 by najork
modified on Fri Jul 30 13:57:17 PDT 1993 by heydon
INTERFACE MyReal;
CONST Brand = "MyReal";
TYPE
T = REAL;
PROCEDURE Compare(a, b: T): [-1..1];
Returns -1 if a < b, 0 if a = b, and +1 if a > b.
END MyReal.