10
20
30 :
40 DIM ctrl% 15,txBuf% 255,rxBuf% 127,svBuf% 15:X%=ctrl%:Y%=X%DIV256
50 MyName$="MUGINS " :
60 MyPort%=ASC"M" :
70 ver$="1.00" :
80 svNum%=0:rxNum%=0
90 PROCopenServ:PROCopenAction :
100 REPEAT
110 IFFNNet_Rx(svNum%):PROCserver:PROCopenServ :
120 IFFNNet_Rx(rxNum%):PROCaction:PROCopenAction :
130 UNTIL FALSE
140 :
150 DEFPROCopenServ :svNum%=FNNet_RxOpen(0,&B0,svBuf%,12):ENDPROC
160 DEFPROCopenAction:rxNum%=FNNet_RxOpen(0,MyPort%,rxBuf%,256):ENDPROC
170 :
180 DEFPROCserver:rx%=FNNet_RxRead(svNum%):stn%=X%!3:svBuf%?8=13
190 IFLEFT$($svBuf%,6)<>MyName$ AND $svBuf%<>" ":ENDPROC
200 ?txBuf%=0:txBuf%?1=MyPort%:txBuf%?2=EVAL("&"+STR$(10*VALver$))
210 $(txBuf%+3)=MyName$:txBuf%?11=0
220 tx%=FNNet_Tx(stn%,&80,&B1,txBuf%,12+txBuf%?11,0)
230 ENDPROC
240 :
250 DEFPROCaction
260 rx%=FNNet_RxRead(rxNum%)
270 :
280
290 :
300 ENDPROC