
  PROCEDURE [INLINE] fip#addl_char
    (VAR line: ost$string;
         ch: char);

?? PUSH (LISTEXT := ON) ??

    IF line.size < osc$max_string_size THEN
      line.size := line.size + 1;
      line.value (line.size) := ch;
    IFEND;

  PROCEND fip#addl_char;

*copyc ost$string
?? POP ??
