HSPTV!掲示板

わたしは、今チャットができる簡単なソフトを作っているのですが
クライアントからサーバーへの送信は難なくこなせるんですが
サーバーからクライアントへの文字の送信をすると固まってしまいます
下にプログラムを張っておきます何かお分かりになったらご回答のほうをよろしくお願いします

クライアント

#include"hspsock.as"
honnbunn=""
naiyou=""
ip="IPアドレス"
namae="ニックネーム"
input ip,100,20
input namae,100,20
button"接続",*setuzoku
stop
*setuzoku
cls	
sockopen 1,ip,1996
sockopen 2,ip,1996
*meinn
pos 0,0	
input honnbunn,100,20
button"送信",*sousinn
*kakuninn
	repeat
	sockcheck 1
	if stat=0:goto*zyusinn
	await 100
    loop
*zyusinn     
	x=x+15
    sockget naiyou,,1
    sockget namae,,2
    pos 150,x
   
	mes""+namae+" : "+naiyou
	goto*meinn
	
stop
*sousinn	
sockput honnbunn,1
sockput namae,2
x=x+15
pos 150,x
mes""+namae+" : "+honnbunn
goto*meinn

サーバー

#include"hspsock.as"
honnbunn=""
naiyou=""
namae="ニックネーム"
input namae,100,20
button"接続",*setuzoku
stop
*setuzoku
cls	
sockmake 1,1996
sockmake 2,1996
mes"待機中"
repeat

sockwait 1
if stat=0:goto *aaa

await 100
loop
*aaa
	cls
	mes"接続完了"
*meinn
pos 0,0	
input naiyou,100,20
button"送信",*sousinn
*kakuninn
	repeat
	sockcheck 1
	if stat=0:goto*zyusinn
	await 100
    loop
*zyusinn    
    sockget honnbunn,,1
    sockget namae,,2
    x=x+15
    pos 150,x
    
	mes""+namae+" : "+honnbunn
	goto*meinn
	
stop
*sousinn	
sockput naiyou,1
sockput namae,2
x=x+15
pos 150,x
mes""+namae+" : "+naiyou
goto*meinn