Т > UserList 1.03 -Т Prints users logged on and machine type AТ FNnet_Ping() doesn't work on ARMCoPro - works on 6502 CoPro (: 20Я"Station User"┴(7)"Machine"┴(14)"Software" <&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 Z6user%=0:У:A%=єnetfs_Op(15,Ґuser%+Ґ1):user%=user%+1 dГ A%=0:ok%=X%?4:Г ok%:Рlist n Щ ok%=0:Ю x: ┌ щРlist ▄*ping%=0:stn%=X%!5 ─ &FFFF:usr$=$(X%+7) √%Я єstn(stn%);:Г stn%=mystn%:Я"*"; ═MГ stn% ─ 255:ping%=єnet_Ping(stn%):Г ping%=&03350001:ping%=єpingFix(stn%) ╙Я ┼9);usr$; ЄDГ stn%<>mystn%:Г ping%:Я ┼20);єnet_Type(ping%);┼43);єver(ping%); Ў4Г stn%=mystn%:Я ┼20);єmachine(os%);┼40);єnfsver; хЯ:А р: эIщєstn(A%):Гstn%<256:=єd(stn%,7) ▀ =єd(stn%│256,3)+"."+єd0(stn%─255,3) Ф#щєh0(A%,N%)=б"0000000"+ц~A%,N%) П$щєd0(A%,N%)=б"000000000"+цA%,N%) З#щєd(A%,N%)=б" "+цA%,N%) : щєmachine(A%) Г A%=0:="Electron" "Г A%=1:="BBC Micro" ,Г A%=2:="BBC B+" 6Г A%=3:="Master 128" @Г A%=4:="Master ET" JГ A%=5:="Master Compact" TГ A%=6:="RISC OS" ^="[Type "+цA%+"]" h: rщєnfsver |Г os%>6:=" " ├eГ os%=6:Г ⌠>&FFFF:х≥ "OS_Module",18,"Econet" ╦ ,,,A%:х≥ "OS_WriteN",A%+A%!20 ╦ A$:=" "+аA$,9,4) ░Й X%,Y%,F%,A$:Y%=0:X%=&70 $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 ўCA%=3:Г((╨&FFDA)─&FF)=0:A$="4.00-4.1x" :Т 4.08, 4.18, 4.21, 4.25 ╦7A%=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 0: :#щєnet_Type(A%):Й A$:A%=A%─&FFFF DГ A%│256=&00:A$="Acorn " NГ A%│256=&01:A$="Torch " XГ A%│256=&02:A$="Reuters " b#Г A%│256=&50:A$="PhilBlundell " l"Г A%│256=&FF:A$="SJ Research " v: ─ A%=A%─255 ┼Г A%=1:=A$+"BBC Micro" ■Г A%=2:=A$+"Atom" ·Г A%=3:=A$+"System 3/4" ╗Г A%=4:=A$+"System 5" ╡Г A%=5:=A$+"Master 128" ╪Г 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" 4: >Г A%=&40:=A$+"ZX Spectrum" HГ A%=&41:=A$+"Amstrad CPC" R#Г A%=&50:=A$+"Internet Gateway" \Г A%=&EE:=A$+"Rasberry Pi" fГ A%=&F8:=A$+"GP Server" pГ A%=&F9:=A$+"80386 Unix" z!Г A%=&FA:=A$+"SCSI Interface" └Г A%=&FB:=A$+"PC Card" ▌Г A%=&FC:=A$+"Nascom 2" ≤Г A%=&FD:=A$+"RM480Z" ╒Г A%=&FE:=A$+"FileServer" ╛Г A%=&FF:=A$+"380Z or CP/M" І=A$+"["+єh0(A%,4)+"]" ю: й8щєnet_Info(A%,D%):?X%=A%:X%!1=D%:A%=&13:ж&FFF1:=X%!1 т: ч+щє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$,120╦A%:Г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 Ъ