BEGIN {
      char x[ 128 ];
      y=1; }

/' /
   {
   if (y==1)
      {
      x=$1;
      y=0;
      }
   else
      x=substr($1,2);
 
   if (x=="Directory")
      {
      system(sprintf("access %s ",$2));
      }
   if (x=="File")
      {
      file=$2;
      system(sprintf("access %s WR",$2)); 
      command=sprintf("info %s",$2);
      command | getline ;
      close(command);
      printf("settype %s %s\n",file,$3) > "<tarZ$use>.files._list" ; 
      }
   }