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.