Forum libero

        [net status] -> if not ready: network subsystem not ready;

        [heap . on alloc failure] = out of memory;
        [p sockets list] <- heap . alloc: number of sockets;
        [p sockets book] <- heap . alloc: number of sockets;

        [p sockets list] -> net . holder list init: number of sockets;

        [net sockets free] = number of sockets;
        [net sockets list] = [p sockets list];
        [net sockets book] = [p sockets book];

        [h socket] <- net . open or: net open failure;

        gcons . t say: t msg enter address;
        [p user address] <- conin . listen or: cannot read user input;

        gcons . t say: t msg enter port;
        [p user port] <- conin . listen or: cannot read user input;

        gcons . t say: t msg connecting to host;
        gcons . say: [p user address];
        gcons . t say: t msg port;
        gcons . say: [p user port];

        with,

                [net . h socket] = [h socket];
                [net . p address string] = [p user address];
                [net . p port string] = [p user port];

        net . connect or: net connect failure;

        [n before connection timeout] -> times do: waiting accept;

        time out;

              "waiting accept"

                [h socket] -> net . if writable: connection accepted;
                [h socket] -> net . if excepted: connection refused;
                wait: 1 (msec);;

              "connection accepted"

                gcons . t say: t msg connection accepted;
                break to: start talk;;