'$ include "Code\List\EvalSubs.WCC"
     REM ------------------------------------------------------------------
     REM ------------------------------------------------------------------
     ? Copyright
     ?
     if EventRunning then
       Event_Mode
     else
       User_Mode
     end if