--- gforth/Attic/net2o.fs	2010/03/23 19:45:30	1.1
+++ gforth/Attic/net2o.fs	2010/03/23 20:23:26	1.2
@@ -22,3 +22,5 @@ Create inbuf maxpacket allot
 : read-a-packet ( -- addr u )
     net2o-srv inbuf maxpacket read-socket-from ;
 
+: send-a-packet ( addr u -- n )
+    net2o-sock fileno -rot 0 sockaddr-tmp 16 sendto ;