DIM name% 16

SYS"Director_Menu","""Bin days"" EmptyBin -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 2 -dontproxy"
  ENDIF
UNTIL offset%=-1
SYS"Director_Dash"
SYS"Director_Option","All"
SYS"Director_Command","/Director:Menus.BinPL.BinAction 2"
SYS"Director_EndMenu"

*Set Director$Menu EmptyBin

END

DEF FNread0(addr%)

LOCAL a$

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

=a$
