can someone tell me why this code feezes!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Tiger

Try this without the goto madness. :)

Graphics 320,240,32,2
SetBuffer BackBuffer()
ClsColor 0,0,0
Cls
x = 0
mainserver =CreateTCPServer(1234)
If mainserver <> 0 
	Text  0,0,"Server started succesfully"
	Text 0,15, "Core program will commence"
Else
	Text 0,0,"Error Occured - Server cant start"
	Text 0,10, "Program will shut down in 5"
	Delay 5000
	End
EndIf

;;;wait for the data;;;
Dim connectiondata$(100)
For i= 0 To 100
connectiondata$(i) = "no connection"

Next

Text 0,30,"Arrays initialized"

While Not KeyDown(1)

.start2
Text 0,60,"Entering main loop, refernce point made"

stream$ = AcceptTCPStream(mainserver)

Text 0,45, "Accepting a TCP stream"

If stream$

x = 1 ;;;;x is the number of connection

connectiondata$(x) = ReadString(stream$)

Text 0,30, "got one"

EndIf

Wend