
PROCEDURE fdp$xadd_form (
  VAR form_identifier: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xchange_table_size (
  VAR form_identifier: integer;
      table_name: string;
  VAR table_size: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xclose_form (
  VAR form_identifier: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xdelete_form (
  VAR form_identifier: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xget_integer_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
  VAR variable: integer;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xget_next_changed_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
      change_found: string;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xget_next_event (
      event_name: string;
      event_normal: string;
  VAR screen_x_position: integer;
  VAR screen_y_position: integer;
  VAR form_identifier: integer;
  VAR form_x_position: integer;
  VAR form_y_position: integer;
  VAR event_type: integer;
      object_name: string;
  VAR object_occurrence: integer;
  VAR character_position: integer;
  VAR object_type: integer;
  VAR object_x_position: integer;
  VAR object_y_position: integer;
      last_event: string;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xget_real_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
  VAR variable: real;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xget_string_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
      variable: string;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xopen_form (
      form_name: string;
  VAR form_identifier: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xpop_forms (
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xposition_form (
  VAR form_identifier: integer;
  VAR screen_x_position: integer;
  VAR screen_y_position: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xpush_forms (
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xread_forms (
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xreplace_integer_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
  VAR variable: integer;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xreplace_real_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
  VAR variable: real;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xreplace_string_variable (
  VAR form_identifier: integer;
      variable_name: string;
  VAR occurrence: integer;
      variable: string;
  VAR variable_status: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xreset_form (
  VAR form_identifier: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xreset_object_attribute (
  VAR form_identifier: integer;
      object_name: string;
  VAR occurrence: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xset_cursor_position (
  VAR form_identifier: integer;
      object_name: string;
  VAR occurrence: integer;
  VAR character_position: integer;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xset_line_mode (
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xset_object_attribute (
 VAR  form_identifier: integer;
      object_name: string;
  VAR occurrence: integer;
      attribute_name: string;
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xshow_forms (
  VAR status: integer);
  CYBIL_EXTERNAL;

PROCEDURE fdp$xtab_to_next_field (
  VAR status: integer);
  CYBIL_EXTERNAL;
