..ATM) (T <>)>) ( ,.ATM)>> "AUX" NS) > > .STR) (T )>)>> OPER:ATOM "OPT" (NEW?: <>) (NM1:> ) (NM2:> ) (DEV:> ) (SNM:> ) "AUX" (LEN:FIX )>) (RS >) NS (TS >>)) ) (T <==? .OPER COMPLETE-TERMINATE>> ) (T !\*> > ) (.NS)>)>)>) (<==? .OPER FILE-MENU> !\*> )>)>> "AUX" CH:>) > (OS <>) (CT 0) NAMSTR TS (DIR? <>) (N2 .NM2>) (N2S <>) (NC 0)) > .N2>> > >) (T >>)>)> > > ) (T >)> > <> COMPLETE .NEW?>>)> ) (<0? .CT> "no matches") FALSE>>) (T )> >) ( .N2> > >> > <==? .TS .N2>>> > > )>)> )> >)>)>>) ( !.CH) FALSE>)>> > )> <1 .S2>> > >>>) (<1? > > )> >>>>)>> .STR1 .STR2>> SNM DEV) <1 .ST .DEV> <2 .ST .SNM>> FALSE> FILES:VECTOR FILE: NAME1: NAME2: (DIR? <>) FULL?: (STR:STRING .ISTR) (ST: >)) <=? .STR "*">> .NM1>) ( ,NM1)>> .NM2>) ( ,NM2)>> >) (T >)>) (.NAME2 >) (T )>)> > > <1 .ST>> <2 .ST>>> ) (T >)> >) (T >)> >)> > )> .FILE) (T )>>>> > .DIR?> !\/> FILE-MENU>) (T ) (T .FILES>>)> .FILES)>) (T .CH)>> >) (<==? .F-OR-D ,RETURN-DIRS> ) (T )>> (DLIST FILES) LIST (FILE) ) >) (T >)> > > >) (T )>>>>) (T > > ) (T .FILE)>) (T )>>>>)> 1>> .FILES>) (<==? .F-OR-D ,RETURN-DIRS> 1>> .DLIST>) (T 1>> .FILES> 1>> .DLIST>)> .F-OR-D>> .DLIST>) (T .CH)>>