*aaa
;a=0
repeat -1
sockwait 0
title "CHK="+stat+"/"+a
; ;if stat>1 : dialog "Socket error1": goto *bye
; ;mes "aaa"+stat
; if stat>=0 : gosub *send
sockcheck 1
if stat>1 : dialog "Socket error": goto *bye:
if stat==0 : gosub *get
;mes coment
a++
wait 10
loop
stop
*send
;sockwait 0
t1=0:t2=0:t3=0
gettime t1,4
gettime t2,5
gettime t3,6
mm=name+"("+t1+":"+t2+":"+t3+"):"
mm=mm+coment
if(coment!=""){
sockput mm,1
if stat : dialog "Socket error!!!": goto *bye
;mes "["+mm+coment+"] を送信しました。"
}
goto *aaa