
  TYPE
    oft$screen_status = ARRAY [oft$screen_files] OF oft$screen_data,

    oft$screen_data = RECORD
      file_lock: ost$signature_lock,
      window_id: dpt$window_id,
      display_action: oft$display_action,
      display_name: ost$name,
      display_user: oft$display_user,
      display_procedure_p: oft$display_procedure,
      initial_call: boolean,
      open_file_count: integer,
    recend,

    oft$display_action = (ofc$da_process_display, ofc$da_terminate_window, ofc$da_new_display_requested),

    oft$display_user = (ofc$du_no_one, ofc$du_ve_display_user, ofc$du_file_user),

    oft$screen_files = (ofc$sf_display_a, ofc$sf_display_b, ofc$sf_main_or_other);

?? PUSH (LISTEXT := ON) ??
*copyc dpt$window_id
*copyc oft$display_procedure
*copyc ost$name
*copyc ost$signature_lock
?? POP ??
