
  PROCEDURE [XREF] clp$change_prompt_string
    (    new_prompt_string: string ( * );
     VAR old_prompt_string: string (ifc$max_prompt_string_size));

?? PUSH (LISTEXT := ON) ??
*copyc ifc$terminal_constants
?? POP ??
