INSTALL @lib$+"TIMERLIB"
      WAIT_TIMEOUT = 258

      SYS "CreateEvent", 0, 1, 0, 0 TO hEvent%

      timerID% = FN_ontimer(1000, PROCelapsed, 0)

      PRINT "Waiting for event..."
      REPEAT
        SYS "WaitForSingleObject", hEvent%, 1 TO res%
      UNTIL res% <> WAIT_TIMEOUT
      PRINT "Event signalled"
      END

      DEF PROCelapsed
      SYS "SetEvent", hEvent%
      ENDPROC