
  PROCEDURE [INLINE] fip#addl_string
    (VAR line: ost$string;
         str: string ( * ));

?? PUSH (LISTEXT := ON) ??

    VAR
      length: integer;

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

  PROCEND fip#addl_string;

*copyc ost$string
?? POP ??

