
  PROCEDURE [INLINE] fip#addl_inject
    (VAR line: ost$string;
         str: string ( * );
         position: 1 .. osc$max_string_size - 1);

?? PUSH (LISTEXT := ON) ??

    VAR
      str_size: integer;

    str_size := STRLENGTH (str);
    IF str_size + position <= osc$max_string_size THEN
      line.value (position, str_size) := str;
      IF line.size < position + str_size - 1 THEN
        line.size := position + str_size - 1;
      IFEND;
    IFEND;

  PROCEND fip#addl_inject;

*copyc ost$string
?? POP ??
