Т > NetServer %Т Find network server information Т Needs optimising (; 2щРNet_ServerList(Type$) <Й found$ F!Я"Station Type Vers Name" P%$txBuf%=юєuc(Type$)+" ",8) Z(rxNum%=єNet_RxOpen(0,&B1,rxBuf%,&20) dЦ txcnt%=1 ╦ 5 n4 tx%=єNet_TxCount(&FFFF,&80,&B0,txBuf%,8,0,0,0) x> Г tx% ▄ Я єNet_Err(tx%):txcnt%=6:М:РNet_RxKill(rxNum%):А ┌ У:try%=10 ▄ У:rx%=єNet_Rx(rxNum%) √+ Г ╛ rx%:A%=▒+5:УЩ▒>A%:try%=try%-1 ═ Щ rx% └ try%<1 ╙@ Г rx% ▄ РNet_Server:rxNum%=єNet_RxOpen(0,&B1,rxBuf%,&20) Є Щ try%<1 ЎМ txcnt% хРNet_RxKill(rxNum%) рА э: ФщРNet_Server П*rxCount%=єNet_RxRead(rxNum%):stn%=X%!3 З"Г їfound$,Ґ(stn%│256)+Ґstn%):А #found$=found$+Ґ(stn%│256)+Ґstn% ЯєNet_StnFixed(stn%);" "; 0Г ?rxBuf% ▄ Я "Server error: ";$(rxBuf%+1):А "/rxBuf%?(12+rxBuf%?11)=13:name$=$(rxBuf%+12) ,$rxBuf%?11=13:server$=$(rxBuf%+3) 6vers%=rxBuf%?2 @portBase%=rxBuf%?1 J-Я server$;" ";vers%│16;".";(vers%─15)*10; TЯ " ";name$:А ^: hщєNet_ServerPort(stn%) r%rx%=єNet_RxOpen(0,&B1,rxBuf%,&20) |$txBuf%=" ":try%=10 ├У ░3 tx%=єNet_TxCount(stn%,&80,&B0,txBuf%,8,0,0,0) Г tx% ▄ Щ ╧:=-tx% є rx%=єNet_Rx(rx%) ў( Г ╛ rx%:A%=▒+50:УЩ▒>A%:try%=try%-1 ╦Щ rx% └ try%<1 б!Г ╛ rx% ▄ РNet_RxKill(rx%):=0 л'rxCount%=єNet_RxRead(rx%):=rxBuf%?1 ж: Ъ