> FindServer . Use FindServer protocol to find a server : (! ctrl% 31:X%=ctrl%:Y%=X%256 2% rxBuf% 31,txBuf% 15:rx%=0:tx%=0 <: F :Net_RxKill(rx%):: P: Z%rx%=Net_RxOpen(0,&B1,rxBuf%,&20) d@$txBuf%="DESPOOL " : Look for a DESPOOL server n?$txBuf%="MUGINS " : Look for a MUGINS server x?$txBuf%="RISCOS " : Look for a RISCOS server A$txBuf%="TELETEXT" : Look for a TELETEXT server =$txBuf%="UNIX " : Look for a UNIX server @$txBuf%=" " : Look for all server types try%=10  4 tx%=Net_TxCount(&FFFF,&80,&B0,txBuf%,8,0,0,0)  tx% Net_Err(tx%):  rxok%=Net_Rx(rx%) * rxok%:A%=+50:>A%:try%=try%-1  rxok% try%<1 6 rxok% Net_RxKill(rx%): "No server found": %rxnum%=Net_RxRead(rx%):stn%=X%!3 / "Server found on station ";Net_Stn(stn%) 0 ?rxBuf% "Server error: ";$(rxBuf%+1): /rxBuf%?(12+rxBuf%?11)=13:name$=$(rxBuf%+12) $rxBuf%?11=13:server$=$(rxBuf%+3) "vers%=rxBuf%?2 ,portBase%=rxBuf%?1 6( "Type: ";server$;" Name: ";name$ @O "Base port: &";h0(portBase%,2);" Version: ";vers%16;".";(vers%15)*10 J T: ^: h: r: |: : JݤNet_TxCount(Stn%,Ctrl%,Port%,Addr%,Len%,RAddr%,Try%,Delay%): TxErr% WݤNet_Tx(Stn%,Ctrl%,Port%,Addr%,Len%,RAddr%): TxErr%,Try%,Delay%:Try%=10:Delay%=50 @X%?1=Port%:X%!2=Stn%:X%!4=Addr%:X%!8=Addr%+Len%:X%!12=RAddr% )Stn%=&FFFF:X%!4=Addr%!0:X%!8=Addr%!4 '::X%?0=Ctrl%:A%=&10: &FFF1:X%?0 ':TxErr%=byte(&32,0,0):TxErr%<&80 ATxErr%=&41 TxErr%=&42:Try%:A%=+Delay%:>A%:Try%=Try%-1 0(TxErr%=&41 TxErr%=&42) Try%<1:=TxErr% : 'ݤNet_RxOpen(Stn%,Port%,Addr%,Len%) CX%?0=0:X%?1=&7F:X%?2=Port%:X%!3=Stn%:X%!5=Addr%:X%!9=Addr%+Len% A%=&11: &FFF1:=X%?0 : 2ݤNet_Rx(RxNum%):=(byte(&33,RxNum%,0)&80)<>0 : &ݤNet_RxRead(RxNum%) 06X%?0=RxNum%:A%=&11: &FFF1:A%=X%!9-X%!5:X%!5=0:=A% :: D1Net_RxKill(RxNum%):A%=byte(&34,RxNum%,0): N: XݤNet_Err(A%):A%=0:="" b="Line jammedNet errorNot listeningNo clockBad Tx blockNo reply","011221344254",(A%-&40)*2+1,2),"110913081208",(A%-&40)*2+1,2)) l: v@ݤNet_Stn(A%):=d0(A%256,3)+".",(A%256)<>0)+d0(A%255,3) 7ݤNet_StnFixed(A%):=d0(A%256,3)+"."+d0(A%255,3) : )ݤbyte(A%,X%,Y%)=((&FFF4)&FF00)256 #ݤd0(A%,N%)="00000000"+A%,N%) #ݤh0(A%,N%)="0000000"+~A%,N%)