> Machines 1.03 3 Prints stations connected and users logged on A FNnet_Ping() doesn't work on ARMCoPro - works on 6502 CoPro (: 2)"Station Machine"(5)"Software User" <&A%=0:X%=1:os%=(&FFF4 &FF00)256 F* data% 15,ctrl% 31:X%=ctrl%:Y%=X%256 P:mystn%=net_Info(8,0):fs%=net_Ping(net_Info(0,0))<>0 ZC stn%=1 254:ping%=net_Ping(stn%):ok%=ping%<>0 stn%=mystn% d* ping%=&03350001:ping%=pingFix(stn%) nI ok%: ping% :2;d(stn%,3);8);net_Type(ping%);23);ver(ping%); xF ok%: ping%=0:2;d(stn%,3);"*";8);machine(os%);23);nfsver; ' ok%: fs%:29);netfs_Who(stn%); ok%: : : #ݤh0(A%,N%)="0000000"+~A%,N%) "ݤd(A%,N%)=" "+A%,N%) : ݤmachine(A%)  A%=0:="Electron"  A%=1:="BBC Micro"  A%=2:="BBC B+"  A%=3:="Master 128"  A%=4:="Master ET"  A%=5:="Master Compact"  A%=6:="RISC OS" ="[Type "+A%+"]" ": , ݤnfsver 6 os%>6:=" " @U os%=6:ș "OS_Module",18,"Econet" ,,,A%:ș "OS_WriteN",A%+A%!20 A$:=A$,9,4) J X%,Y%,F%,A$:Y%=0:X%=&70 T$A%=0:F%=(&FFDA)&FF:*FX143,18,5 ^OA%=4:((&FFDA)&FF)=4:A$="3.40-3.6x" : 3.34, 3.35, 3.40, 3.60, 3.62, 3.65 hCA%=3:((&FFDA)&FF)=0:A$="4.00-4.1x" : 4.08, 4.18, 4.21, 4.25 r7A%=2:((&FFDA)&FF)=2:A$="3.3x" : 3.34, 3.35 |7A%=1:((&FFDA)&FF)>0:A$="4.2x" : 4.21, 4.25 "FX143,18,"+F%:=A$ : Cݤver(A%):=h0(A%,8+((A%&F0000000)=0)),1)+"."+h0(A%,8),3,2) : OݤpingFix(S%):!X%=&81:X%!2=S%:X%!4=X%+16:X%!8=X%+20:X%!12=&FFFF820C:X%!16=0 3A%=&10:&FFF1:?X%:A%=&32:(&FFF4 &8000)=0 ,X%!16=&30342E33:=&03400001 =&03350001 : Hݤnet_Ping(S%):!X%=&88:X%!2=S%:X%!4=X%+16:X%!8=X%+20:X%!12=0:X%!16=0 :A%=&10:&FFF1:?X%:A%=&32:(&FFF4 &8000)=0:=X%!16 : ݤnet_Type(A%):A%=A%&FFFF  A%=1:="BBC Micro"  A%=2:="Acorn Atom"  A%=3:="System 3/4"  A%=4:="System 5" & A%=5:="Master 128" 0 A%=6:="Electron" : A%=7:="RISC OS" DA%=8:="Reserved" N A%=9:="Communicator" X A%=10:="Master ET" b A%=11:="Filestore" l A%=12:="Master Compact" v A%=13:="EcoLink PC" ! A%=14:="RISCiX Workstation"  A%=15:="RISC PC"  A%=16:="Iyonix"  A%=17:="Acorn A9" :  (A%255)=64:="ZX Spectrum"  (A%255)=65:="Amstrad CPC" " A%256=1:="Torch "+h0(A%,2) $ A%256=2:="Reuters "+h0(A%,2)  A%256=80:="PB "+h0(A%,2)  A%=&FFF8:="GP Server"  A%=&FFF9:="80386 Unix"  A%=&FFFA:="SCSI Interface"  A%=&FFFB:="SJ PC Card"   A%=&FFFC:="Nascom 2"  A%=&FFFD:="RM480Z"  A%=&FFFE:="SJ File Server" * A%=&FFFF:="380Z or CP/M" 4="Type "+h0(A%,4) >: H8ݤnet_Info(A%,D%):?X%=A%:X%!1=D%:A%=&13:&FFF1:=X%!1 R: \3ݤnetfs_Who(stn%):u%::A%=netfs_Op(15,u%+1) f>u%=u%+1:A%<>0X%?4=0X%?5=stn%:A%=0:X%?4:=$(X%+7) ="" p: z+ݤnetfs_Op(A%,A$)=netfs_OpN(A%,0,7,A$) 8ݤnetfs_OpN(A%,T%,O%,A$):!X%=0:X%?1=O%+1+A$:X%!3=A% Q>&FFFF:X%?4=T%:$(X%+O%-3)=A$:ș&60048,A%,X%+4,O%+A$,120A%:A%=0:X%?3=0:=0 ;>&FFFF:A%>&FFFF:X%?3=?A%:ș&2002B,A%+4$(X%+4):=X%?3 2X%!4=0:X%?7=T%:$(X%+O%)=A$:A%=&14:&FFF1:=X%?3