Problem with TCP

;This is the server program for our game

;Create the TCP server
	svr1 = CreateTCPServer (8767)
;Check to see if the server started or not.  If not keep retrying 	
	Repeat 
		
		If KeyDown(1) Then
			End 
		End If
		
		If svr1 <> 0
			Print "The server started."
		Else
			Print "The server failed to start."
			Print "Press any key to retry."
			WaitKey
		End If
	Until svr1 <> 0 
	

;Now that the server started tell the server started tell the user that he or she is
;going into the main program to accept TCP streams.
	Print "Now Accepting TCP Streams."
	Print "The Information will appear when the client sends"
	Print "the information."	
	
	
;keep running until the escape key is pressed
	While Not KeyDown(1)
		
		svrStream = AcceptTCPStream(svr1)
		
		If svrStream Then
			Print ReadString(svrStream)
		End If
	
	Wend
	

;This is the client application for our game
Global client1

;Start the loop that will repeat untill the user is properly connected
Repeat
	
	;If the user mashes the ESC Key then End the Program
	If KeyDown(1) Then
		End
	End If
	

	;Connect to the TCP server
	client1 = OpenTCPStream("127.0.0.1", 8767)
	
	; test to see if it connected properly
	
	If client1 <> 0 Then
		Print "Connected 
		WriteString client1, "Hello"
		WriteString client1, Input("Write Message: ")
		
	Else 
		Print "Failed to Connect "
		Print "Press any key to retry"
		WaitKey 
	End If
Until client1 <> 0


WriteString client1, Input("Write Message: ")

WriteString client1, Input("Write Message: ")

WriteString client1, Input("Write Message: ")

;Go into the main loop of of the client application
Print "Starting Messenger"