10 REM > BLib.NetUtil 0.10 15Mar1993
   20 ;
   30 REM Network utility functions
   40 REM =========================
   50 :
   60 REM Net_Addr - Returns station number or looks for user
   70 REM eg Net_Addr("1.254"), eg Net_Addr("JIM")
   80 REM Returns station number or zero if user not logged on
   90 REM ----------------------------------------------------
  100 :
  110 DEFFNNet_Addr(A$)
  120 IF VALA$:=FNNet_StnNum(A$)
  130 IF FNNetFS_Op(24,A$):=0
  140 =X%!5 AND &FFFF
  150 :
  160 :
  170 REM Net_Ping - Checks if a station is present
  180 REM Returns remote station type or zero if not present
  190 REM --------------------------------------------------
  200 :
  210 DEFFNNet_Ping(Stn%):X%!16=0:A%=FNNet_Tx(Stn%,&88,0,X%+16,4,0):=X%!16
  220 :
  230 :
  240 REM Net_Type - Converts machine type to string
  250 REM ------------------------------------------
  260 :
  270 DEFFNNet_Type(Stn%)
  280 IF(Stn%AND&FF00)=&0100:="Torch"
  290 IF(Stn%AND&FF00)=&0200:="Reuters"
  300 Stn%=Stn%AND&FF
  310 IFStn%<12:=MID$("BBCAtomSystem 3/4System 5Master 128ElectronRISC OS[08]CommunicatorMaster ETFilestore",VALMID$("010408182636445155677685",Stn%*2-1,2),VALMID$("0304100810080704120909",Stn%*2-1,2))
  320 IFStn%<17:=MID$("Master CompactEcolinkRISC iXIyonixA9",VALMID$("0115222935",Stn%*2-23,2),VALMID$("1407070602",Stn%*2-23,2))
  330 IF(Stn%AND&FE)=&40:=MID$("ZX SpectrumAmstrad CPC",VALMID$("0112",Stn%*2-127,2),11)
  340 IFStn%>&F7:="SJ "+MID$("GP Server80386 UNIXSCSIIBM PCNascom 2RM480ZFile ServerZ80 CP/M",VALMID$("0110202430384455",Stn%*2-495,2),VALMID$("0910040608061108",Stn%*2-495,2))
  350 ="[Type "+STR$~Stn%+"]"
  360 :