home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / BORRA.CNV < prev    next >
Encoding:
Text File  |  1986-12-01  |  640 b   |  29 lines
  1. [BORRA.CNV]
  2. [G. Cisneros, 8.7.85]
  3. [[Erases with options]]
  4.  
  5. [ask file by file]
  6. (()(
  7.     (<8>:<1>.<2>) F
  8. )(1 2 3)(
  9.     (<>,);
  10.     ((and,<[8]>,<1>)(and,<[3]>,<2>)<3>,<<
  11.         >>(%t,Erase (F)? <(>yes/no/quit/show<)>)<<
  12.         >>(if,(&l,(%R,TTY:)),y,(%D,(F))<3>,<<
  13.             >><=>,q,,<<
  14.             >><=>,s,(%Or,(F))<<
  15.                 >>(%t,(&p,(%R,(F),<[70]>)))<<
  16.                 >>(%C,(F))<1><2><3>,<<
  17.             >><=>,n,(%t,Kept)<3>,<<
  18.             >><1><2><3>)):
  19. )) a
  20.  
  21. [main program - gather directory entries]
  22. (()()(8 9)(
  23.     (<8>:<9>,(a,(until,(%S,<8>:<9>),Not Found,<<
  24.             >>(IF,(0),<=>,<[1]>(and,<[11]>,<0>),<0>),<<
  25.             >>(%A,<8>:<9>),)));
  26.     (<9>,@:<9>):
  27. ))
  28.  
  29. [end]