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.