阻塞IO模型套接字服务器

.子程序 等待连接
.参数 hSock, 整数型
.局部变量 地址, 套接字地址
.局部变量 hNewSock, 整数型

.循环判断首 ()
hNewSock ＝ accept (hSock, 地址, #套接字地址_size)
.如果真 (hNewSock ≠ -1)
加入成员 (ChildSock, hNewSock)
加入成员 (ChildAddress, 地址)
启动线程 (&消息循环, 取数组成员数 (ChildSock), )
连接回调 (取数组成员数 (ChildSock))
.如果真结束
延时 (200)
.循环判断尾 (是否退出 ＝ 假)