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

?? PUSH (LISTEXT := ON) ??

    line.size := STRLENGTH (str);
    line.value := str;

  PROCEND fip#addl_initialize;
*copyc ost$string
?? POP ??

