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