Data commit

Task/Events/BBC-BASIC/events-1.basic

@@ -0,0 +1,17 @@
+      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

Task/Events/BBC-BASIC/events-2.basic

@@ -0,0 +1,16 @@
+      INSTALL @lib$+"TIMERLIB"
+
+      Event% = FALSE
+
+      timerID% = FN_ontimer(1000, PROCelapsed, 0)
+
+      PRINT "Waiting for event..."
+      REPEAT
+        WAIT 0
+      UNTIL Event%
+      PRINT "Event signalled"
+      END
+
+      DEF PROCelapsed
+      Event% = TRUE
+      ENDPROC