
  TYPE
    oft$display_procedure = ^procedure
                               (    window_id: dpt$window_id;
                                    display_name: ost$name;
                                    file_name: amt$local_file_name;
                                    initial_call: boolean;
                                VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc dpt$window_id
*copyc ost$status
?? POP ??

