> ETree v1.17 29-Jul-2007 >ctrl% 31,name% 31,ch% 39:A$=OS_GetEnv:X%=ctrl%:Y%=X%256 8A$="":"Path to show: "path$:path$," -"):A$=path$ (lA$="":"Show files? "S$:"Show info? "I$:"Printer chars? "P$:A$=path$+x("f",S$)+x("i",I$)+x("p",P$) 23in%=0:csd%=0:quit$=cl(" -q",1):::end(): ] [-info] [-list] [-mask ] [-print] path":end(0) F9Aflg%=cl("-a",0):Cflg%=cl("-c",0):Fflg%=cl("-f",0) P9Iflg%=cl("-i",0):Lflg%=cl("-l",0):Pflg%=cl("-p",0) Z)gran%=cl("-g",1):gran%=0:gran%=256 d.mask%=0:S$=cl("-m",1):S$<>"":mask%=(S$) nSA$=cl("",0):csd%=fs_RdCSD:fs$="":A%=A$,":"):A%>1:fs$=A$,A%-1):A$=A$,A%+1) xEpath$=A$:fs$:up%=(file("^",5)-2)=2:fs<>16:mask%=0:mask%=&3B Lpath$<>"":(file(path$,5)-2)<>2:path$" is not a directory":end(190) >ch(Pflg%):mask%=(mask%&FF)&300:path$<>"":"Dir "+path$ )Lflg%:file("$",5)=2:X%!2:*INFO $ -Lflg%:"Disk: "gbpb(5)'"Dir: "gbpb(6) R?ch%=32:total%=cat(0,0,0):Lflg%:'"Total disk space used: ";total%" bytes"; %Cflg%:" - "k(total%)Lflg%: end(0): ,end(E%):in%=in%:in%:A%=in%:in%=0:#A% fs_WrCSD(csd%):exit(E%):  8ݤcat(lv%,idx%,count%):end%,total%,index%,first%,f$ 'index%=idx%:total%=0:xt%=0:first%=  fs=142:ș"OS_GBPB",9,"@",name%,1,index%,32,0,,,end%,index%:end%=1-end%:ș"OS_WriteN",name%f$f$=gbpb8(index%):index%=X%!9:end%=X%?5 end%=0idx%<>0Fflg%::= end%=0:file(idx%) "end%<>0xt%:idx%<>0:=xt% , =total% 6'file(idx%):type%:xt%=:f$=46: @Htype%=file("@."+f$,5):load%=X%!2:exec%=X%!6:size%=X%!10:attr%=X%?14 J6:fs=5:in%=(f$):in%:A%=NetFS_Op(12,(args(&80,in%,2^(in%-32))&FF)+2):size%=(X%!4)&FFFFFF:#in%:in%=0 ^Battr%=attr%+(type%-1)*256:total%=(total%+size%+gran%-1)-gran% h$idx%<>0(type%=2Fflg%):xt%=: r3count%(Fflg%Lflg%type%=2):pr(f$):first%= |Wtype%=2(f$,1)<>"!"Aflg%=0):down(f$):total%=total%+cat(lv%+1,0,count%):up(f$)  pr(f$):oldFflg% Lflg%:treepath$"."; }f$;:Iflg%(Lflg%(Lflg%Fflg%)):(34-+10*Cflg%)h0(load%,8)" "h0(exec%,8)" "h0(size%,6);Iflg%:(56-+10*Cflg%); IIflg%:" "at(attr%mask%)" ";:Lflg%(Lflg%Fflg%):date(mdate%); Cflg%:((30-)Iflg%-Iflg%);:type%=2:oldFflg%=Fflg%:Fflg%=:down(f$):k(cat(lv%,0,));:Fflg%=oldFflg%:up(f$)Cflg%:k(size%); :  tree nxt%=cat(lv%,index%,0) "nxt%:ch%?lv%=c%(3)ch%?lv%=32 8lv%>1:z%=0lv%-2:ch%?z%,32::ch%?z%lv%=1:?ch% #first%lv%>0:c%(4)lv%>0:32 'c%((nxt%1)((first%(lv%=0))4))  .down(f$):path$=path$+"."+f$:"DIR "+f$: 'up(f$):path$=path$,path$-f$-1) &up%:"DIR ^": 0"DIR "+path$: :ch(pc8%) D"c%(5):z%=05:c%(z%)=z%+166: NEpc8%:c%(0)=&C4:c%(1)=&C2:c%(2)=&FE:c%(3)=&B3:c%(4)=&C0:c%(5)=&C3 X23,c%(0),0,0,0,255,0,0,0,0 b#23,c%(1),0,0,0,255,24,24,24,24 l%23,c%(3),24,24,24,24,24,24,24,24 v#23,c%(4),24,24,24,24+7,0,0,0,0 '23,c%(5),24,24,24,24+7,24,24,24,24  ݤat(A%):a$ (A%128):a$="P" (A%8):a$=a$+"L" ,(A%&100):a$="D"+a$+"/":=a$+7-a$," ") (A%6)=2:a$=a$+"W" (A%4):a$=a$+"E" (A%5)=1:a$=a$+"R"  a$=a$+"/" (A%96)=32:a$=a$+"W" (A%64):a$=a$+"E" (A%80)=16:a$=a$+"R" =a$+7-a$," ")  aݤdate(A%):=d0(A%31,2)+"/"+d0((A%&F00)256,2)+"/"+d0(1981+(A%&F000)&1000+(A%&E0)2,4) Hݤk(A%):A%>4100:=" "+(A%1024),5)+"K"=" "+A%,5)+" bytes"  2ݤx(o$,v$):v$,1)="Y"v$,1)="y":=" -"+o$="" *:ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 4Mos%>31:>&FFFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ >CA%=&600-&7B00*(>&8000)-&3F00*(>&C000):!(-&108)=@%:A%=-&208 H;?(P-3)=0:A%=&100:<&FFFF:A%=-&300:!(+512)=@%:A%= RcA$=$A%:=&8F00:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ \SY%=-10:A$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1A%=A$+" "," ") f9Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1) p :=A$ z!os(A$):A$=42:A$A$:A$  Fexit(A%):"FX1,"+(A%255):quit$=quit$:A$=quit$:quit$="":os(A$) >&FFFFF:ȘA%  cݤcl(l$,n%):l$="":A$=s(A$):A$=34:A%=A$+" "" ",""" ",2):l$=A$,2,A%-2):A$=s(A$,A%+1)):=l$ "":A%=A$,l$):A%:A$=s(A$,A%-1)+A$,A$," ",A%)+1))+" ":= n%=0:l$<>"":= %A%=" ",l$=32)+A$,l$):A%=0:="" 'A$=A$,A%-1)+s(A$,A$," ",A%)+1)) Cl$=32:l$=A$,A%):A$=A$,A%-1):=l$,1-(l$=34),l$+2*(l$=34)) PA$,A%,1)<>34:l$=A$,A%,A$+" "," ",A%)-A%):A$=A$,A%-1)+A$,A%+l$+1):=l$ Jl$=A$,A%+1,A$+""" ",""" ",A%+1)-A%-1):A$=A$,A%-1)+A$,A%+l$+3):=l$ /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$ $ݤfs_RdCSD .-fs%,csd%,B%:fs%=fs:fs%<4:X%?3=fs%:=!X% 8&fs%=16:=args(&FE,25,0)&A0000000 B?fs%=8:csd%=&1114:!X%=&FFDD:A%=5:&FFF1:X%?4=76:csd%=&C314 LOfs%=8:B%=03:!X%=csd%+B%:&FFF1:X%?(5+B%)=X%?4::X%?8=(X%?832)&80:=X%!5 V[fs%=5:B%=Net_Info(6,0):csd%="@":csd%=Net_Info(7,(B%&FF00FF)+csd%*256):=B%&5000000 `0fs%=4:B%=gbpb(6):=B%+256*name%?1+&4000000 j=0 tfs_WrCSD(csd%):csd%=0: ~:fs%,B%:X%!5=csd%:fs%=X%?8:csd%<0:fs%=((fs%-96)32)*8 "FX143,18,"+fs%:fs%<4: -fs%=16:A%=args(&FD,25,csd%&1FFFFFFF): Lfs%=8:X%?8=X%?8*32:csd%=&1114:!X%=&FFDD:A%=5:&FFF1:X%?4=76:csd%=&C314 Ffs%=8:A%=6:B%=03:!X%=csd%+B%:X%?4=X%?(5+B%):&FFF1::"DIR @": Ffs%=5:B%=Net_Info(6,0):#((B%&FF00)256):B%=Net_Info(7,csd%): %fs%=4:"DIR :"+X%?6+"."+X%?5:  Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF Yݤgbpb(A%):X%!1=name%:&FFD1:A%=name%+((1+?name%)((A%-2)=6)):A%?(1+?A%)=13:=$(A%+1) Eݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" 7A%=name%+1:A%!(A%?-1)=&D20:A%?($A%," ")-1)=13:=$A% 3ݤargs(A%,Y%,ptr%):X%,E%:?(P-3)=0:E%=Y%:Y%=0 0>&FFFF:ș"OS_Args",A%,Y%,ptr%,,ptr%:=ptr%  %!&70:X%=&70:!X%=ptr%:&FFDA:=!X%  ݤfs:A%,Y%,E%:=(&FFDA)&FF $ݤh0(A%,N%):="0000000"+~A%,N%) (MݤNetFS_Op(A%,A$):!X%=0:X%?1=8+A$:X%!3=A%:$(X%+7)=A$:A%=&14:&FFF1:=X%?3 28ݤNet_Info(A%,D%):?X%=A%:X%!1=D%:A%=&13:&FFF1:=X%!1 <#ݤd0(A%,N%)="00000000"+A%,N%)   A{   "  g{N{LQ%=PA.:CH."* BASIC f{Z{{{檤`T{T{`` g{,z0ȱ#b{` ee  { {#b{쩏 `