TCP/IP listening support

net .tcp ":" via
2000 :listen :accept "+" via
sys .out "->" via
{ 65536 +read _ len } { ->writeall } loop
"Connection terminated" dump