01 server

needs sock.f

0 value sock

: server-init ( -- )

  8003 sock-create dup to sock

  dup -1 = if abort" Unable to make socket!" then

  5 sock sock-listen ;

: serve ( -- )

  begin

    sock sock-accept?

      if sock sock-accept drop

         dup s" Server Hello! " rot sock-write drop

         dup get-local-time time-buf >time" rot sock-write drop

         10 ms sock-close drop

      then

  10 ms key? until ;

: server ( -- ) server-init serve ;

server