Type Connection
  Field number ; Stream identifier
  Field stream ; Stream handle
End Type

server = CreateTCPServer (80)

If server

  Print
  Print "Server created. Awaiting incoming connections..."
  Print
   
  Repeat
   
    
   tstream = AcceptTCPStream (server)
   
   If tstream
   
      
    Print
    Print "Got new connection..."
    Print
     
    c.Connection = New Connection
    c\number = count
    c\stream = tstream
     
    count = count + 1
     
   EndIf
    
     
   Delay 100
   
      
   For c.Connection = Each Connection
    If c\stream
     While ReadAvail (c\stream)
      Print "Stream " + c\number + ": " + ReadLine (c\stream)
     Wend
    EndIf
   Next
    
  Until KeyHit (1)  
   
  For c.Connection = Each Connection
   CloseTCPStream c\stream
   Delete c
  Next

  CloseTCPServer server
   
EndIf
   
End