02 client

needs sock.f

0 value sock

create tbuf 256 allot

\ client side

: client ( hostname -- )

  8003 sock-open

   to sock

  begin 10 ms

    sock sock-read? dup

      if pad swap sock sock-read pad swap type else drop then

    sock sock-closed?

  until

  sock sock-close 

  drop

 ;

s" 127.0.0.1" client