
  PROCEDURE [XREF] dup$retrieve_cip_program
    (    cip_program_name: string (4);
     VAR cip_program_available: boolean;
     VAR cip_program_cell_p: ^cell);
