 TYPE
    fdt$form_definition = record
      screen_formatting_version: integer, {This must be the first field}
      {in the record. }
{     character_set: ost$name,
{ The field CHARACTER_SET is replaced by INVALID_DATA_CHARACTER.
      invalid_data_character: fdt$invalid_data_character,
      comment_definitions: fdt$comment_definitions,
      coordinate_system: fdt$coordinate_system,
      display_attribute: fdt$display_attribute_set,
      display_definitions: fdt$display_definitions,
      event_form_definition: fdt$event_form_definition,
      event_definitions: fdt$event_definitions,
      first_input_object_defined: boolean,
      first_input_object_index: fdt$object_index, { Used to set first cursor }
      {position. }
      form_area: fdt$form_area,
      form_ended: boolean,
      form_name: ost$name,
      form_has_errors: boolean,
      form_object_definitions: fdt$form_object_definitions,
      form_table_definitions: fdt$form_table_definitions,
      form_variable_definitions: fdt$form_variable_definitions,
      form_version: integer,
      height: fdt$visible_height, {Required height to contain form.}
      help_definition: fdt$saved_help_definition,
      language: ost$natural_language,
      help_message_form: ost$name,
      hidden_editing: boolean,
      error_message_form: ost$name,
      module_length: ost$segment_length,
      processor: fdt$form_processor,
      program_record_length: fdt$record_length,
      record_deck_name: ost$name,
      record_definitions: fdt$record_definitions,
      record_name: ost$name,
      record_type: fdt$record_type,
      record_version: integer,
      screen_record_length: fdt$record_length,
      width: fdt$visible_width, {Required width to contain form.}
      x_position: fdt$x_position,
      y_position: fdt$y_position,
    recend;

*copyc fdt$comment_definitions
*copyc fdt$coordinate_system
*copyc fdt$display_attribute_set
*copyc fdt$display_definitions
*copyc fdt$event_definitions
*copyc fdt$event_form_definition
*copyc fdt$form_area
*copyc fdt$form_object_definitions
*copyc fdt$form_processor
*copyc fdt$form_table_definitions
*copyc fdt$form_variable_definitions
*copyc fdt$invalid_data_character
*copyc fdt$object_index
*copyc fdt$record_definitions
*copyc fdt$record_length
*copyc fdt$record_type
*copyc fdt$saved_help_definition
*copyc fdt$visible_height
*copyc fdt$visible_width
*copyc fdt$x_position
*copyc fdt$y_position
*copyc osd$virtual_address
*copyc ost$name
*copyc ost$natural_language
