Private Sub ListenForConnections1
Do While working
server1.Listen
Wait For Server1_NewConnection (Successful As Boolean, NewSocket1 As Socket)
If Successful Then
client1 = NewSocket1
astream1.InitializePrefix (client1.InputStream, False, client1.OutputStream, "astream")
connected = True
End If
Loop
End Sub
Private Sub ListenForConnections2
Do While working
server2.Listen
Wait For Server2_NewConnection (Successful As Boolean, NewSocket2 As Socket)
If Successful Then
client2 = NewSocket2
astream2.InitializePrefix (client2.InputStream, False, client2.OutputStream, "astream")
connected = True
End If
Loop
End Sub