                                                                                                              
  PROCEDURE [XREF] dup$display_exchange_package                                                               
    (    exchange_package: dut$exchange_package;                                                              
         full_display: boolean;                                                                               
     VAR display_control: clt$display_control;                                                                
     VAR status: ost$status);                                                                                 
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc dut$exchange_package                                                                                   
*copyc clt$display_control                                                                                    
*copyc ost$status                                                                                             
?? POP ??                                                                                                     
