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 :