[BORRA.CNV] [G. Cisneros, 2Jan84; HVM, 21Mar84] [[ y/erase, q/quit, //examine, other/keep.]] [Get next name] (()( (<8>:<1>.<2>) F )(1 2 3)( (<>,); (q:,(%W,TTY:,: Kept; End.)); (<[1]>(and,<[8]>,<1>)(and,<[3]>,<2>)<[20]><3>,<< >>(, (%T,Erase (F)?)(%Q) )<< >>(d,(&l,(%R,TTY:)))<3>): )) a [Delete, Quit, or Keep] (()()()( (y,(%D,(F))); (q,q:); (/,(%Or,(F))(, (%T,(&.,(%R,(F),<[64]>))) )(%C,(F))(%R,TTY:)): (,(%W,TTY:,: Kept));)) d [Assemble directory entries in WS] (()()(0)( (Not Found<0>,<0>); (<0>,(%A,<8>:<9>)<0>): )) b [Main program: search for first] (()()(8 9)( (<8>:<9>,(a,(b,(%S,<8>:<9>)))); (<9>,@:<9>): )) [end]