{
{   The purpose of this request is to get the next event that occurred as a
{ result of a fdp$xread_forms request.  Before accepting input from the
{ terminal user, the fdp$xread_forms request deletes any existing events.
{
{       FDP$XGET_NEXT_EVENT (EVENT_NAME, EVENT_NORMAL, SCREEN_X_POSITION,
{         SCREEN_Y_POSITION, FORM_IDENTIFIER, FORM_X_POSITION,
{         FORM_Y_POSITION, EVENT_TYPE, OBJECT_NAME, OBJECT_OCCURRENCE,
{         CHARACTER_POSITION, OBJECT_TYPE, OBJECT_X_POSITION,
{         OBJECT_Y_POSITION, LAST_EVENT, STATUS)
{
{ EVENT_NAME: (output)  This parameter specifies the name of the event.
{
{ EVENT_NORMAL: (output)  This parameter specifies a normal/abnormal event.
{       If the terminal user entered an event defined as normal, event
{       equals "T".  Otherwise, event_normal is equal to "F".
{
{ SCREEN_X_POSITION: (output)  This parameter specifies the screen x position
{       where the event occurred.
{
{ SCREEN_Y_POSITION: (output)  This parameter specifies the screen y position
{       where the event occurred.
{
{ FORM_IDENTIFIER: (output)  This parameter specifies the form identifier
{       where the event occurred.
{
{ FORM_X_POSITION: (output)  This parameter specifies the form x position
{       where the event occurred.
{
{ FORM_Y_POSITION: (output)  This parameter specifies the form y position
{       where the event occurred.
{
{ EVENT_TYPE: (output)  This parameter specifies the event type.
{
{       value:  0 - The event occurred on an area of the form that contained
{                   no object.
{               1 - The event occurred on a form object.
{
{ OBJECT_NAME: (output)  This parameter specifies the name of the object where
{       the event occurred.  This parameter has meaning only if object_type
{       equals 1.
{
{ OBJECT_OCCURRENCE: (output)  This parameter specifies the occurrence of the
{       object name where the event occurred.  This parameter has meaning only
{       if object_type equals 1.
{
{ CHARACTER_POSITION: (output)  This parameter specifies the character
{       position within an object where the event occurred.  This parameter
{       has meaning only if object_type equals 1.  A character position of 1
{       indicates the first position.
{
{ OBJECT_TYPE: (output)  This parameter specifies the object type where the
{       event occurred.  This parameter has meaning only if object_type equals
{       1.
{
{        value:  0 - The event occurred on a box object.
{                1 - The event occurred on a constant text object.
{                2 - The event occurred on a constant text box object.
{                3 - The event occurred on a line object.
{                5 - The event occurred on a variable text object.
{                6 - The event occurred on a variable text box object.
{
{ OBJECT_X_POSITION: (output)  This parameter specifies the origin x position
{       of the object.  This parameter has meaning only if object_type equals
{       1.
{
{ OBJECT_Y_POSITION: (output)  This parameter specifies the origin y position
{       of the object.  This parameter has meaning only if object_type equals
{       1.
{
{ LAST_EVENT: (output)  This parameter specifies if more events  exist.
{        Last_event equals "T" is this is the last event.  Otherwise,
{        last_event equals "F".
{
{ STATUS: (output) This parameter specifies the name of the variable to set
{       to indicate the status of the request.
{
{        condition identifiers: fde$bad_data_value
{
