
  PROCEDURE [XREF] clp$set_prompt_string
    (    block: ^clt$block;
         prompt_string: string ( * ));

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
?? POP ??
