Sub Process_Globals
Public server As ServerSocket
Private client As Socket
Private AstreamPagamico As AsyncStreams
.......
Private Sub ListenForConnections
Log("Chiamata TCPip")
Do While working
server.Listen
Wait For server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
CallSub(Main, "SetState")
client = NewSocket
Astream.InitializePrefix(client.InputStream, False, client.OutputStream, "Astream")
..................