DEFINITION MODULE D; (*JG, 12 Aug 85*)

TYPE Obj = POINTER TO ObjRec;

        ObjRec = RECORD
                        g: ARRAY [0..63] OF CHAR;
                        h: BITSET
                    END;

VAR data: ObjRec;

PROCEDURE New (VAR obj: Obj);
PROCEDURE Open (obj: Obj);

END D.