 PROCEDURE [XREF] fdp$get_next_event (VAR event_name: string (31);
    VAR event_normal: string (1);
    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:
    VAR object_name: string (31);
    VAR object_occurrence: integer;
    VAR character_position: integer;
    VAR object_type: integer;
    VAR object_x_position: integer;
    VAR object_y_position: integer;
    VAR last_event: string (1);
    VAR status: integer);
