home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d102 / match_stuff.lha / Match_Stuff / REN < prev    next >
Text File  |  1987-09-06  |  219b  |  13 lines
  1. .k file/A,as/A
  2. .bra {
  3. .ket }
  4. mat >nil: string "#?'^#?" "{as}"
  5. if warn
  6.   rename "{file}" as "{as}"
  7. else
  8.   run mat >RAM:_ren f "cd ^Q^D^Q^Brename ^Q^F^Q as ^Q{as}^Q" "{file}" +
  9.     x RAM:_ren +
  10.     delete RAM:_ren
  11. endif
  12.  
  13.