
  FUNCTION [INLINE] clp$data_representation_text
    (    representation: ^clt$data_representation): ^clt$string_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      representation_text: ^clt$string_value,
      representation_area: ^clt$data_representation,
      representation_line_count: ^clt$data_representation_count,
      representation_text_size: ^clt$string_size;


    representation_area := representation;
    RESET representation_area;
    NEXT representation_line_count IN representation_area;
    IF representation_line_count^ = 0 THEN
      RESET representation_area;
      NEXT representation_text: [0] IN representation_area;
    ELSE
      NEXT representation_text_size IN representation_area;
      NEXT representation_text: [representation_text_size^] IN
            representation_area;
    IFEND;
    clp$data_representation_text := representation_text;

  FUNCEND clp$data_representation_text;

*copyc clt$data_representation
*copyc clt$data_representation_count
*copyc clt$string_size
*copyc clt$string_value
?? POP ??
