#ô > BLib.NetUtil 0.10 15Mar1993 ; ô Network utility functions (ô ========================= 2: <9ô Net_Addr - Returns station number or looks for user F.ô eg Net_Addr("1.254"), eg Net_Addr("JIM") P:ô Returns station number or zero if user not logged on Z:ô ---------------------------------------------------- d: nݤNet_Addr(A$) xç »A$:=¤Net_StnNum(A$) ‚ç ¤NetFS_Op(24,A$):=0 Œ=X%!5 € &FFFF –:  : ª/ô Net_Ping - Checks if a station is present ´8ô Returns remote station type or zero if not present ¾8ô -------------------------------------------------- È: ÒDݤNet_Ping(Stn%):X%!16=0:A%=¤Net_Tx(Stn%,&88,0,X%+16,4,0):=X%!16 Ü: æ: ð0ô Net_Type - Converts machine type to string ú0ô ------------------------------------------ : ݤNet_Type(Stn%)  ç(Stn%€&FF00)=&0100:="Torch" ""ç(Stn%€&FF00)=&0200:="Reuters" ,Stn%=Stn%€&FF 6¶çStn%<12:=Á"BBCAtomSystem 3/4System 5Master 128ElectronRISC OS[08]CommunicatorMaster ETFilestore",»Á"010408182636445155677685",Stn%*2-1,2),»Á"0304100810080704120909",Stn%*2-1,2)) @nçStn%<17:=Á"Master CompactEcolinkRISC iXIyonixA9",»Á"0115222935",Stn%*2-23,2),»Á"1407070602",Stn%*2-23,2)) JIç(Stn%€&FE)=&40:=Á"ZX SpectrumAmstrad CPC",»Á"0112",Stn%*2-127,2),11) TçStn%>&F7:="SJ "+Á"GP Server80386 UNIXSCSIIBM PCNascom 2RM480ZFile ServerZ80 CP/M",»Á"0110202430384455",Stn%*2-495,2),»Á"0910040608061108",Stn%*2-495,2)) ^="[Type "+Ã~Stn%+"]" h: ÿ