18 lines
398 B
Plaintext
18 lines
398 B
Plaintext
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
|