Hi,   
      
   I have a function:   
      
   --begin--   
      
   function DizExists(const fn:astr):boolean;   
   var   
   ok:boolean;   
   T:Text;   
   S:string[50];   
   Index:byte;   
      
   begin   
      
      star('Checking for description...'#29);   
      
      if (pos('.zip',fn)<>0) then fpsystem('unzip -L -o '+fn+' file_id.diz -d   
   '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
      else if (pos('.lzh',fn)<>0) then fpsystem('lha e f '+fn+' file_id.diz   
   '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
      else if (pos('.arj',fn)<>0) then fpsystem('arj e f '+fn+' file_id.diz   
   '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
      else if (pos('.rar',fn)<>0) then fpsystem('unrar x -cl '+fn+' file_id.diz    
   '+general.temppath+cstr(node)+'/ARC/ >/dev/null');   
      
        if (exist('/home/rg/TEMP' + cstr(node) + '/ARC/file_id.diz')) then   
        assign(T,'/home/rg/TEMP' +cstr(node) + '/ARC/file_id.diz');   
        reset(T);   
           if (IOResult <> 0) then exit;   
           star('Importing description.');   
           Index := 1;   
           erase(T);   
   end;   
      
   --end--   
      
   The problem is that it only extracts the first line of the file_id.diz.   
   Anyone have any ideas?   
      
   Thanks,   
      
   |09ignatius |15[|07cia|15]|07[   
      
   --- Renegade vY2Ka3   
    * Origin: catch twenty two >>> >>  > (1:340/800)