>EcoMenu 2.08 (7:23;2,53;0;0;0;23,1;0;0;0;0:*EXEC  *FX15 (" name$(20),dir$(20),disk$(20) 2? ctrl%40,data%600,drive$(10),dname$(10):X%=ctrl%:Y%=X%256 <title%=: title%= FOtitle%:file("!Title",5)=1:X%!10<&401:"LOAD !Title FFFF7C00" title%= P err 26,12 Z6exit$="":dir%=file("!DirInfo",5)=1: Disk or dir? didir%:P$="PROGRAMS":p$="program":i$="!DirInfo" P$="DIRECTORIES":p$="directory":i$="!DiskInfo":*DIR$ nFindDisks: title%= xhtitle%:d%=0 disks%:8,11+d%*2);d%;": ";dname$(d%);::30:=13:28,4,22,36,21,12:posn%=0:logon err2:"FX4": &:!X%=8:osw(&13,X%):station%=X%?1 Qii%=5:132157:fs=5:132157131"This is ECONET Station ";station%:ii%=6 Nd%=12:132157131141"The"P$"available are :-"::total%=0:ReadInfo -132157'1321575)12915733)132157 Psort:d%=0 total%-1:1321571355)129157131name$(d%)33)132157:d% $1321575)12915733)132157 132157:posn%=total%+10 ҥtotal%+disks%<10 dir%:132157135;" The disks on line are:": d%=0 disks%:132157135;" ";d%;": ";dname$(d%)::132157135:posn%=posn%+disks%+3 ܩ130157132"Select the "p$" you want with":130157132"the cursor keys, then press SPACE":fs=5:129157132"or press RETURN to log on as a user":posn%=posn%+1 item%=0:*FX4,1 -:31,0,item%+ii%,130,157,132,9,9,132,157 $26,9);:130,157,13,9,9,9:Z$= Z$=138 Z$=139:31,0,item%+ii%,132,157,135,9,9,129,157:26,9);:132,157:item%=item%+(Z$=139)-(Z$=138):item%=item%(item%>0)(item%31,0,item%+ii%,132,157,135,9,9,129,157:26,9);:132,157 ,T4,ii%+item%)136130157132;33,ii%+item%)131157136129"<<<"7,ii%+item%); 6H$="Hello":dd$=dir$(item%) @^dd$,"/")=0:h%=dd$,"."):h%::H$=dd$,h%+1):h%=dd$,".",h%+1):h%=0:dd$=dd$,dd$-H$-1) J8dd$,"/"):h%=dd$,"/"):H$=dd$,h%+1):dd$=dd$,h%-1) T>dir%:dir$(item%),".")+dir$(item%),"/")=0:H$=dd$:dd$="" ^'dir%:dd$=":"+disk$(item%)+"."+dd$ hdd$<>"": "DIR "+dd$ r( 31,0,posn%:"No "H$" program": |'H$="": H$,1)<>"*":H$ H$: : ݤerr:30::=-1 (0*(50)) Xݤerr2:0,23);: =17 0,posn%);(78);0,24);:符-1 exit$<>""::exit: =17:=-1 %: <128 " at line ";;" ";:= Nz%=(150):0,24);(30);4,ii%+item%)32129157131;37,ii%+item%);" "; =-1 : logon:*FX4 @0,23);:0,posn%);"User name: "U$:"Password:";152;:""P$  :: "I AM "+U$+" "+P$ : :  sort  i%,j%,temp$,dist%,i1% total%<2 &&l%=total%-1:f%=0:dist%=(l%-f%+1)2 0: j%=f%+dist% l% :, i%=j%-dist% f% -dist%:i1%=i%+dist% D name$(i%)>name$(i1%) tmp$=name$(i%):name$(i%)=name$(i1%):name$(i1%)=tmp$:tmp$=disk$(i%):disk$(i%)=disk$(i1%):disk$(i1%)=tmp$:tmp$=dir$(i%):dir$(i%)=dir$(i1%):dir$(i1%)=tmp$ N i%,j%:dist%=dist% 2 X dist%=0: b: lBݤfile(A$,A%):$data%=A$:?X%=data%:X%?1=data%256:=(&FFDD)&FF v'osw(A%,X%):Y%:Y%=X%256:&FFF1: ݤfs:A%,E%,Y%:=&FFDA &FF : )FindDisks:disks%=0:total%=0:dir%: 2fs=5:ReadNFS fs>5:ReadHADFS ReadDFS  disks%=(disks%-1)(disks%>0)  : (ReadNFS:A%=&14: Read disks on net 4:!X%=&E000900:X%!4=0:X%?7=disks%:X%?8=1: &FFF1 sX%?4:X%?22=13:Disk$=$(X%+6):drive$(disks%)=Disk$,Disk$," ")-1):dname$(disks%)=drive$(disks%):disks%=disks%+1  X%?4=0: : .ReadHADFS:n%=0 7: Read (H)ADFS disks \file(":"+n%,5)=2:drive$(disks%)=n%:"DIR :"+n%:dname$(disks%)=name:disks%=disks%+1  : :  readDFS: *: 4Bݤname:X%!1=data%:A%=5:&FFD1:?(data%+1+?data%)=13:=$(data%+1) >: H)ReadInfo:d%=0disks%:ReadThis:: R: \"ReadThis:total%>10-disks%: f-inf$=i$:dir%:inf$=":"+drive$(d%)+"."+i$ pwfile(inf$,5)<>1:name$(total%)="Disk '"+dname$(d%)+"'":dir$(total%)="$":disk$(total%)=drive$(d%):total%=total%+1: z.$data%=255,13):"LOAD "+inf$+" "+~data% ??data%="$":exit$=$data%:ptr%=data%+1+$data% ptr%=data% ':?ptr%<32::ptr%=ptr%+1:?ptr%>31 "!#$%|*",?ptr%)=0:disk$(total%)=drive$(d%):D$=$ptr%:dir$(total%)=D$,D$+",",",")-1):name$(total%)=D$,D$+",",",")+1),25):total%=total%+1 =ptr%=ptr%+1+$ptr%:?ptr%=13 ?ptr%=0 total%>10-disks%  : Sexit:h%=exit$,"/"):dd$=exit$,2,h%-2):H$=exit$,h%+1):H$=H$,H$+",",",")-1) :"FX4":"DIR "+dd$:H$="": H$,1)<>"*":H$ H$: