
  FUNCTION [INLINE] osp$status_message_text
    (    message: ^ost$status_message): ^ost$status_message_line;

?? PUSH (LISTEXT := ON) ??

    VAR
      message_text: ^ost$status_message_line,
      message_area: ^ost$status_message,
      message_line_count: ^ost$status_message_line_count,
      message_text_size: ^ost$status_message_line_size;


    message_area := message;
    RESET message_area;
    NEXT message_line_count IN message_area;
    IF message_line_count^ = 0 THEN
      RESET message_area;
      NEXT message_text: [1] IN message_area;
    ELSE
      NEXT message_text_size IN message_area;
      NEXT message_text: [message_text_size^] IN message_area;
    IFEND;
    osp$status_message_text := ^message_text^ (2, * );

  FUNCEND osp$status_message_text;

*copyc ost$status_message
*copyc ost$status_message_line
*copyc ost$status_message_line_count
*copyc ost$status_message_line_size
?? POP ??
