
  PROCEDURE [INLINE] clp$make_application_clt$value
    (    application_value_text: clt$application_value_text;
     VAR value: clt$value);

    VAR
      application_value: ^clt$application_value,
      text: ^string (*);

    clp$make_clt$value (clc$application_value, value);
    application_value := ^value.application;
    NEXT text: [#SIZE(clt$application_value)] IN application_value;
    text^ := application_value_text;

  PROCEND clp$make_application_clt$value;

?? PUSH (LISTEXT := ON) ??
*copyc clt$application_value
*copyc clt$application_value_text
*copyc clt$value
?? POP ??
*copyc clp$make_clt$value
