home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / borra.cnv < prev    next >
Encoding:
Text File  |  1990-07-11  |  640 b   |  28 lines
  1. [BORRA.CNV]
  2. [G. Cisneros, 9.9.85]
  3. [[Erases with options]]
  4.  
  5. [ask file by file]
  6. (()()(1 2)(
  7.     (<>,);
  8.     (<1>(^@)<2>,<<
  9.         >>(if,(&l,(%r,TTY:Erase <8><1>? <(>yes/no/quit/show<)> )),<<
  10.                 >>y,(%D,<8><1>)<2>,<<
  11.             >><=>,q,,<<
  12.             >><=>,s,(%Or,<8><1>)<<
  13.                 >>(%t,(&p,(%r,<8><1>,<[70]>)))<<
  14.                 >>(%C,<8><1>)<1>(^@)<2>,<<
  15.             >><=>,n,(%t,Kept)<2>,<<
  16.             >><1>(^@)<2>)):
  17. )) a
  18.  
  19. [main program - gather directory entries]
  20. (()()(8)(
  21.     ((and,(or,<-->:,)(ITR,<-->\),<8>),<<
  22.         >>(a,(until,(%S,<=>),Not Found,<<
  23.             >>(IF,(0),<=>,<[9]><0>,<0>(^@)),<<
  24.             >>(%A),)));
  25. ))
  26.  
  27. [end]
  28.