@program udp_receive_test.muf
1 10000 d
i
$include $lib/alynna
: net.recv[ a:data s:event s:id ]
{
 "UDP event from " data @ "from" [] " on port " data @ "port" [] ": " data @ "data" []
}tell
;

: main
background
64738 udpopen
"UDP.*" "UDP" 'net.recv 0 onevent
begin
 "*" 1 array_make event_waitfor pop pop
repeat
;
.
c
q