// Const section
AF_UNSPEC   =   0               /* unspecified */
AF_UNIX     =   1               /* local to host (pipes, portals) */
AF_INET     =   2               /* internetwork: UDP, TCP, etc. */
AF_IMPLINK  =   3               /* arpanet imp addresses */
AF_PUP      =   4               /* pup protocols: e.g. BSP */
AF_CHAOS    =   5               /* mit CHAOS protocols */
AF_IPX      =   6               /* IPX and SPX */
AF_NS       =   6               /* XEROX NS protocols */
AF_ISO      =   7               /* ISO protocols */
AF_OSI      =   AF_ISO          /* OSI is ISO */
AF_ECMA     =   8               /* european computer manufacturers */
AF_DATAKIT  =   9               /* datakit protocols */
AF_CCITT    =   10              /* CCITT protocols, X.25 etc */
AF_SNA      =   11              /* IBM SNA */
AF_DECnet   =   12              /* DECnet */
AF_DLI      =   13              /* Direct data link interface */
AF_LAT      =   14              /* LAT */
AF_HYLINK   =   15              /* NSC Hyperchannel */
AF_APPLETALK=   16              /* AppleTalk */
AF_NETBIOS  =   17              /* NetBios-style addresses */
AF_VOICEVIEW=   18              /* VoiceView */
AF_FIREFOX  =   19              /* FireFox */
AF_UNKNOWN1 =   20              /* Somebody is using this! */
AF_BAN      =   21              /* Banyan */

SOCK_DGRAM  = 0
SOCK_STREAM = 1


// The code JScript
var flag = new Array();
var my_host = TCPIP.gethostname();
var sock_id = 100;

flag.push(TCPIP.WSAStartup(2,0)); //major=2, minor=0
flag.push(TCPIP.socket(sock_id, AF_INET, SOCK_STREAM, 0));
flag.push(TCPIP.fill_addr(sock_id, my_host, "9000"));
flag.push(TCPIP.bind(sock_id));
flag.push(TCPIP.listen(sock_id, 1024));
flag.push(TCPIP.acceptThread(sock_id));

for (var i=0; i<flag.length; i++)
      Window.TextOut(1, 50, 30 + 20*i, i + ": " + flag[i]);

var text = "";
function EventByteRecv(id, byte)
{ text = text +  String.fromCharCode(byte);
};

function EventEndAcceptThread(id)
{  Window.Delete(2);
   Window.TextOut(2, 70, 150, "Recv: " + text);
   Window.UpdateWindow();
   TCPIP.acceptThread(sock_id); // new accept
   text = "";
};