Sub Process_Globals
Public server1 As ServerSocket
Public server2 As ServerSocket
Public AStream As AsyncStreams
End Sub
Sub AppStart (Args() As String)
server1.Initialize(5566, "server1")
server1.Listen
server2.Initialize(5562, "server2")
server2.Listen
StartMessageLoop
End Sub