if($answerbatch eq 'CONTINUE'){
  $progressta->place(-x=>0, -y=>0);
  cont();
}else{
   clearthird();
 }#else

sub cont{
  my $i=0;
  foreach (@arrayfilename){
  $_ .= ".log\"";
  system ("robocopy $gGui{original_source}$arraydirectory[$i]\" $gGui{original_dest}$_");
  $progressta->insert('end lineend', "Robocopy is now processing $_,\n");
  $i++;
  }#foreach
  first();
}#cont