(*%F _fptr *)
  ERROR - Packing is only available with far data pointers
(*%E *)

(*%T _fcall *) (*# call(near_call=>on,seg_name=>Btree) *) (*%E *)
DEFINITION MODULE Pack;
(*
        Copyright (C) 1990 Jensen & Partners International
*)

  PROCEDURE Packer(n: CARDINAL; in: ADDRESS; out: ADDRESS): CARDINAL;
  PROCEDURE Unpacker(n: CARDINAL; in: ADDRESS; out: ADDRESS);
  PROCEDURE UnpackedSize(n: CARDINAL; in: ADDRESS): CARDINAL;
  PROCEDURE Packing(): BOOLEAN;
  PROCEDURE AdjustBlock(rs: CARDINAL): CARDINAL;

  END Pack.