Copyright (C) 1994, Digital Equipment Corp. INTERFACE IntRef; TYPE T = RECORD key: INTEGER; value: REFANY END; PROCEDURE Compare(a, b: T): [-1..1]; END IntRef.