>EcoMenu 2.06 (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$ nsFindDisks:title%:d%=0 disks%:8,11+d%*2);d%;": ";dname$(d%);::30:=13:28,4,22,36,21,12:posn%=0:logon x&:!X%=8:osw(&13,X%):station%=X%?1 Qii%=5:132157:fs=5 132157131"This is ECONET Station ";station%:ii%=6 Dd%=12:132157131141"The"P$"available are :-"::ReadInfo -132157'1321575)12915733)132157 sort L 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 a130157132"Select the "p$" you want with":130157132"the cursor keys, then press SPACE" item%=0: err2 "FX4": *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 6T4,ii%+item%)136130157132;33,ii%+item%)131157136129"<<<"7,ii%+item%); @H$="Hello":dd$=dir$(item%) Jbdd$,"/")=0 h%=dd$,"."): h%<>0 :H$=dd$,h%+1):h%=dd$,".",h%+1):h%=0:dd$=dd$,dd$-H$-1) T8dd$,"/") h%=dd$,"/"):H$=dd$,h%+1):dd$=dd$,h%-1) ^>dir%:dir$(item%),".")+dir$(item%),"/")=0:H$=dd$:dd$="" h'dir%:dd$=":"+disk$(item%)+"."+dd$ rdd$<>"": "DIR "+dd$ |( 31,0,posn%:"No "H$" program": H$="": H$ : 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 : j%=f%+dist% l%  i%=j%-dist% f% -dist% i1%=i%+dist%  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$ & i%,j%:dist%=dist% 2 0 dist%=0: :: DBݤfile(A$,A%):$data%=A$:?X%=data%:X%?1=data%256:=(&FFDD)&FF N: X'osw(A%,X%):Y%:Y%=X%256:&FFF1: bݤfs:A%,E%,Y%:=&FFDA &FF l: v)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:  : Bݤname:X%!1=data%:A%=5:&FFD1:?(data%+1+?data%)=13:=$(data%+1)  : *8ReadInfo:d%=0disks%: IFtotal%>10-disks% ENDPROC 4-inf$=i$:dir%:inf$=":"+drive$(d%)+"."+i$ >jfile(inf$,5)<>1:name$(total%)=dname$(d%):dir$(total%)="$":disk$(total%)=drive$(d%):total%=total%+1: H.$data%=255,13):"LOAD "+inf$+" "+~data% R??data%="$":exit$=$data%:ptr%=data%+1+$data% ptr%=data% \':?ptr%<32 :ptr%=ptr%+1:?ptr%>31 f%disk$(total%)=drive$(d%):D$=$ptr% p$dir$(total%)=D$,D$+",",",")-1) z*name$(total%)=D$,D$+",",",")+1),25) #total%=total%+1:ptr%=ptr%+D$+1 *?ptr%=13 ?ptr%=0 total%>10-disks% : : ݤ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 Sexit:h%=exit$,"/"):dd$=exit$,2,h%-2):H$=exit$,h%+1):H$=H$,H$+",",",")-1) %"FX4":"DIR "+dd$:H$="": H$