
  TYPE
    fdt$form_status = record
      active_form_object_statuses: fdt$number_objects,
      added: boolean,
      added_form_identifier: fdt$form_identifier,
      changed_variable_search: fdt$variable_search,
      combined: boolean,
      combined_events: boolean,
      defined_dynamically: boolean,
      design_display_attribute: fdt$display_attribute_set,
      design_form: boolean,
      display_on_screen: boolean,
      displayed_on_screen: boolean,
      design_variable_name: ost$name,
      entry_used: boolean,
      events_active: boolean,
      event_form_defined: boolean,
      event_form_identifier: fdt$form_identifier,
      fast_form_creation: boolean,
      field_number: cst$field_number,
      field_number_defined: boolean,
      form_x_position: fdt$x_position,
      form_y_position: fdt$y_position,
      graphic_identifier: cst$graphic_identifier,
      graphic_identifier_defined: boolean,
      input_error_search: fdt$variable_search,
      invalid_data_character: fdt$invalid_data_character,
      last_cursor_position_valid: boolean,
      last_cursor_form_x_position: fdt$x_position,
      last_cursor_form_y_position: fdt$y_position,
      mark_defined: boolean,
      mark_end_x_position: fdt$x_position,
      mark_end_y_position: fdt$y_position,
      mark_start_x_position: fdt$x_position,
      mark_start_y_position: fdt$y_position,
      next_higher_form: fdt$next_form_identifier,
      next_lower_form: fdt$next_form_identifier,
      opened: boolean,
      opened_for_query_only: boolean,
      output_error_search: fdt$variable_search,
      owned_by_system: boolean,
      p_display_definitions: ^array [1 .. * ] of fdt$display_definition,
      p_event_definitions: ^array [1 .. * ] of fdt$event_definition,
      p_form_definition: ^fdt$form_definition,
      p_form_event_statuses: ^array [1 .. * ] of fdt$form_event_status,
      p_form_image: ^fdt$form_image,
      p_form_module: ^fdt$form_module,
      p_form_object_definitions: ^array [1 .. * ] of
            fdt$form_object_definition,
      p_form_object_statuses: ^array [1 .. * ] of fdt$form_object_status,
      p_form_record_definitions: ^array [1 .. * ] of
            fdt$variable_record_definition,
      p_form_table_definitions: ^array [1 .. * ] of fdt$form_table_definition,
      p_form_table_statuses: ^array [1 .. * ] of fdt$table_status,
      p_form_variable_definitions: ^array [1 .. * ] of
            fdt$form_variable_definition,
      p_program_record: ^array [1 .. * ] of cell,
      p_screen_record: ^array [1 .. *] of cell,
      push_count: fdt$push_count,
      segment_pointer: amt$segment_pointer,
      storage_allocated: boolean,
      total_form_object_statuses: fdt$number_objects,
      validate_variable_values: boolean,
    recend;

*copyc amt$segment_pointer

*copyc cst$field_number
*copyc cst$graphic_identifier

*copyc fdt$display_attribute_set
*copyc fdt$display_definition
*copyc fdt$event_definition
*copyc fdt$form_definition
*copyc fdt$form_event_status
*copyc fdt$form_identifier
*copyc fdt$form_image
*copyc fdt$form_object_definition
*copyc fdt$form_object_status
*copyc fdt$form_module
*copyc fdt$form_table_definition
*copyc fdt$form_variable_definition
*copyc fdt$invalid_data_character
*copyc fdt$next_form_identifier
*copyc fdt$number_objects
*copyc fdt$push_count
*copyc fdt$table_status
*copyc fdt$variable_record_definition
*copyc fdt$variable_search
*copyc fdt$x_position
*copyc fdt$y_position

*copyc ost$heap
*copyc ost$name
*copyc ost$status
*copyc osd$virtual_address
