
  TYPE
    fdt$screen_change = record
      case key: fdt$screen_change_key of

      = fdc$add_form, fdc$delete_form, fdc$erase_form =
        form_identifier: fdt$form_identifier,
        form_x_position: fdt$x_position,
        form_y_position: fdt$y_position,

      = fdc$add_object, fdc$delete_object =
        object_form_identifier: fdt$form_identifier,
        object_definition: fdt$form_object_definition,
        object_index: fdt$object_index,

      = fdc$change_table_size =
        table_form_identifier: fdt$form_identifier,
        table_index: fdt$table_index,

      = fdc$close_form =
        close_form_identifier: fdt$form_identifier,

      = fdc$create_mark =
        create_mark_form_identifier: fdt$form_identifier,
        start_x_position: fdt$x_position,
        start_y_position: fdt$y_position,
        end_x_position: fdt$x_position,
        end_y_position: fdt$y_position,
        create_mark_object_index: fdt$object_index,
        mark_object: boolean,

      = fdc$delete_mark =
        delete_mark_form_identifier: fdt$form_identifier,
        delete_mark_object_index: fdt$object_index,
        delete_mark_object: boolean,
        delete_mark_attributes: fdt$display_attribute_set,

      = fdc$format_text_box =
        format_text_form_identifier: fdt$form_identifier,
        format_text_object_index: fdt$object_index,
        p_format_text: ^fdt$text,

      = fdc$no_screen_change =
        ,

      = fdc$open_form =
        open_form_identifier: fdt$form_identifier,

      = fdc$push_forms, fdc$pop_forms =
        ,

      = fdc$replace_variable =
        variable_form_identifier: fdt$form_identifier,
        variable_object_index: fdt$object_index,
        p_text: ^fdt$text,

      = fdc$set_attribute, fdc$reset_event_variable =
        attribute_form_identifier: fdt$form_identifier,
        attribute_object_index: fdt$object_index,
        attribute: fdt$display_attribute_set,

      = fdc$set_cursor =
        cursor_form_identifier: fdt$form_identifier,
        cursor_object_index: fdt$object_index,
        cursor_character_position: fdt$character_position,

      casend
    recend;

*copyc fdt$character_position
*copyc fdt$display_attribute_set
*copyc fdt$form_identifier
*copyc fdt$form_object_definition
*copyc fdt$object_index
*copyc fdt$screen_change_key
*copyc fdt$table_index
*copyc fdt$x_position
*copyc fdt$y_position
