> 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"(15)"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%);33);ver(ping%); xF ok%: ping%=0:2;d(stn%,3);"*";8);machine(os%);33);nfsver; ' ok%: fs%:39);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%=A%&FFFF  A%256=&00:A$="Acorn "  A%256=&01:A$="Torch "  A%256=&02:A$="Reuters " # A%256=&50:A$="PhilBlundell " &" A%256=&FF:A$="SJ Research " 0: : A%=A%255 D A%=1:=A$+"BBC Micro" N A%=2:=A$+"Atom" X A%=3:=A$+"System 3/4" b A%=4:=A$+"System 5" l A%=5:=A$+"Master 128" v A%=6:=A$+"Electron"  A%=7:=A$+"RISC OS" A%=8:=A$+"Reserved"  A%=9:="A$+Communicator"  A%=10:=A$+"Master ET"  A%=11:=A$+"Filestore"  A%=12:=A$+"Master Compact"  A%=13:=A$+"PC EcoLink" $ A%=14:=A$+"RISCiX Workstation"  A%=15:=A$+"RISC PC"  A%=16:=A$+"Iyonix"  A%=17:=A$+"Acorn A9" :  A%=&40:=A$+"ZX Spectrum"  A%=&41:=A$+"Amstrad CPC"  * A%=&50:=A$+"Econet/Ethernet Gateway"  A%=&F8:=A$+"GP Server"   A%=&F9:=A$+"80386 Unix" *! A%=&FA:=A$+"SCSI Interface" 4 A%=&FB:=A$+"PC Card" > A%=&FC:=A$+"Nascom 2" H A%=&FD:=A$+"RM480Z" R A%=&FE:=A$+"FileServer" \ A%=&FF:=A$+"380Z or CP/M" f=A$+"["+h0(A%,4)+"]" p: z8ݤnet_Info(A%,D%):?X%=A%:X%!1=D%:A%=&13:&FFF1:=X%!1 : 3ݤnetfs_Who(stn%):u%::A%=netfs_Op(15,u%+1) >u%=u%+1:A%<>0X%?4=0X%?5=stn%:A%=0:X%?4:=$(X%+7) ="" : +ݤ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