Copyright (C) 1994, Digital Equipment Corp. MODULE TextRef; IMPORT Text; PROCEDURE Compare(a, b: T): [-1..1] = BEGIN RETURN Text.Compare(a.key, b.key); END Compare; BEGIN END TextRef.