RosettaCodeData/Task/Events/Oforth/events-1.fth

: anEvent
| ch |
   Channel new ->ch
   #[ ch receive "Ok, event is signaled !" println ] &
   System sleep(1000)
   ch send($myEvent) ;