B4J Question how to: BIDIRECTIONAL SOCKET

Private client1 As Socket
Private client2 As Socket
Public server1 As ServerSocket
Public server2 As ServerSocket
Private astream1 As AsyncStreams
Private astream2 As AsyncStreams
Private const PORT1 As Int = 50001
Private const PORT2 As Int = 50002

server1.Initialize (PORT1, "server1")
ListenForConnections1
server2.Initialize (PORT2, "server2")
ListenForConnections2

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

Public Sub SendData (data () As Byte)
If nrClient = 1 Then
If connected Then astream1.Write (data)
End If
If nrClient = 2 Then
If connected Then astream2.Write (data)
End If
End Sub