home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 1 / CDPD_Vol1.bin / pd / 101-125 / 102 / match_stuff / ren < prev    next >
Text File  |  1992-06-23  |  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.