
  PROCEDURE [XREF] pmp$binary_to_ascii (i: integer;
    VAR st: string(*);
    base: 2..16;
    pos: 1..255);
