
  PROCEDURE [XREF] pmp$binary_to_ascii_fit
    (    int: integer;
         base: 2 .. 16;
         pos: 1 .. 255;
         length: 1 .. 255;
     VAR str: string ( * ));
