
  PROCEDURE [XREF] nlp$delete_registered_title
    (    title: string ( * <= nac$max_title_length);
         password: nat$directory_password;
         identifier: nat$directory_entry_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nat$directory_entry_identifier
*copyc nat$directory_interfaces
*copyc nat$title
*copyc ost$status
?? POP ??
