
  PROCEDURE [XREF] ocp$hexrep (VAR strng: string ( * );
    VAR l: integer;
        intger: integer);

