{
{   The purpose of this request is to get the next event that occurred as a
{ result of the last fdp$read_forms request.  Before accepting input from the
{ terminal user, the fdp$read_forms request deletes any existing events.  The
{ fdp$get_next_event returns the event name, the event type (normal or
{ abnormal) and the event position.
{
{       FDP$GET_NEXT_EVENT (EVENT_NAME, EVENT_NORMAL, EVENT_POSITION,
{         LAST_EVENT, STATUS)
{
{ EVENT_NAME: (output)  This parameter specifies the name of the event.
{
{ EVENT_NORMAL: (output)  This parameter specifies a boolean.  If the terminal
{       user entered an event defined as normal, event normal is true.
{       Otherwise, event_normal is false.
{
{ EVENT_POSITION: (output)  This parameter specifies a record that describes
{       the event position.
{
{ LAST_EVENT: (output)  This parameter specifies a boolean.  Last_event is
{       true if this is the last event.  Otherwise, last_event is false.
{
{ 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
{
