EVENTID

id = EVENTID() AS INTEGER

Returns the ID of the current event.  If no event exists, it will return 0.  Events will exist until handled by an ON EVENT handler.  The events will be removed one by one after the event handlers RESUME statement.  You can use the EVENT statement to raise events.  Events may also be raised by extension libraries.

Example:

OPTION EXPLICIT ON

ON EVENT GOTO _HANDLER

EVENT 23

IF EVENTID = 0 THEN

  PRINT "Happy Dance...No More Events!",

ELSE

  PRINT "We still have EVENT ";EVENTID;" to process",

ENDIF

END

_HANDLER:

  PRINT "%EVENT, ID: ";EVENTID;" Processed",

  RESUME NEXT