DIM name% 16

SYS"Director_Menu","""Count bin space"" CountBin -temp"

offset%=0

REPEAT
  SYS"OS_GBPB",9,"Bin:",name%,1,offset%,16,"*" TO ,,,,offset%
  IF offset%<>-1 THEN
    SYS"Director_Option",name%
    SYS"Director_Command","Set Dir <Bin$Dir>|mSet Leaf "+FNread0(name%)+"|mSet Path <Dir>.<Leaf>|M/Director:Utils.RunFilerAc 5 *"
  ENDIF
UNTIL offset%=-1

SYS "Director_Dash"
SYS "Director_Option","All"
SYS "Director_Command","/Director:Menus.BinPL.BinAction 5 *"
SYS "Director_EndMenu"

*Set Director$Menu CountBin

END

DEF FNread0(addr%)

LOCAL a$

WHILE ?addr%<>0:a$+=CHR$(?addr%):addr%+=1:ENDWHILE

=a$
