home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / filearchivers / archandler / scripts / fromarc.dmrx next >
Text File  |  1995-02-27  |  654b  |  30 lines
  1. /* Change DiskMaster directory from directory on Archives:
  2. ** to original directory. */
  3.  
  4. parse arg dir
  5.  
  6. dir=strip(dir,'B','"')
  7. if left(dir,9)="Archives:" then
  8.   do
  9.     i=index(dir,':')
  10.     if i~=0 then
  11.       do
  12.         dir=substr(dir,i+1)
  13.         i=index(dir,'/')
  14.         if i~=0 then
  15.           dir=left(dir,i-1) || ':' || substr(dir,i+1)
  16.         else
  17.           dir=dir || ':'
  18.         i=lastpos('.lha',dir)
  19.         if i~=0 then
  20.           do
  21.             i=lastpos('/',dir,i)
  22.             if i~=0 then
  23.               dir=left(dir,i-1)
  24.             else
  25.               dir=left(dir,index(dir,':'))
  26.           end
  27.         NewDir '"' || dir || '"'
  28.       end
  29.   end
  30.