home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols100 / vol173 / borra.cnv < prev    next >
Encoding:
Text File  |  1984-07-15  |  657 b   |  24 lines
  1.  
  2. [BORRA.CNV]
  3. [G. Cisneros, 2Jan84; HVM, 21Mar84]
  4. [[
  5. y/erase, q/quit, //examine, other/keep.]]
  6.  
  7.  
  8.  
  9. [Get next name]
  10. (()( (<8>:<1>.<2>) F )(1 2 3)(
  11.      (<>,); (q:,(%W,TTY:,: Kept; End.));
  12.      (<[1]>(and,<[8]>,<1>)(and,<[3]>,<2>)<[20]><3>,<<
  13.           >>(, (%T,Erase (F)?)(%Q) )<<
  14.           >>(d,(&l,(%R,TTY:)))<3>): )) a
  15. [Delete, Quit, or Keep]
  16. (()()()( (y,(%D,(F))); (q,q:);
  17.      (/,(%Or,(F))(, (%T,(&.,(%R,(F),<[64]>))) )(%C,(F))(%R,TTY:)):
  18.      (,(%W,TTY:,: Kept));)) d
  19. [Assemble directory entries in WS]
  20. (()()(0)( (Not Found<0>,<0>); (<0>,(%A,<8>:<9>)<0>): )) b
  21. [Main program: search for first]
  22. (()()(8 9)( (<8>:<9>,(a,(b,(%S,<8>:<9>)))); (<9>,@:<9>): ))
  23. [end]
  24.