
  TYPE
    fdt$screen_status = record
      compute_new_screen_size: boolean,
      current_form_identifier: fdt$current_form_identifier,
      current_push_count: fdt$push_count,
      current_screen_height: fdt$height,
      current_screen_width: fdt$width,
      cursor_set: boolean,
      error_attribute_displayed: boolean,
      error_identifier: fdt$form_identifier,
      error_occurrence: fdt$occurrence,
      error_name: ost$name,
      event_identifier: cst$event_identifier,
      event_name: ost$name,
      event_normal: boolean,
      event_position: fdt$event_position,
      last_cursor_position_valid: boolean,
      last_cursor_form_identifier: fdt$form_identifier,
      message_form_displayed: boolean,
      message_form_identifier: fdt$form_identifier,
      number_active_forms: fdt$number_forms,
      number_screen_changes: fdt$number_screen_changes,
      p_forms_status: ^fdt$forms_status,
      p_screen_changes: ^fdt$screen_changes,
      p_screen_event_statuses: ^array [fdc$next .. fdc$clear_screen] of
            fdt$screen_event_status,
      read_forms_index: fdt$read_forms_index,
      screen_dimensions: cst$screen_dimensions,
      screen_mode_active: boolean,
    recend;

*copyc cst$event_identifier
*copyc cst$screen_dimensions
*copyc fdt$current_form_identifier
*copyc fdt$event_position
*copyc fdt$height
*copyc fdt$push_count
*copyc fdt$number_forms
*copyc fdt$number_screen_changes
*copyc fdt$form_identifier
*copyc fdt$forms_status
*copyc fdt$read_forms_index
*copyc fdt$screen_changes
*copyc fdt$screen_event_status
*copyc fdt$width
*copyc ost$name
