sub promptFilename {
  my $prompt = shift;

##</code><code>##

  print $prompt . "\n";

##</code><code>##

  my $file;
  while(! $file){
    $file = <>;

##</code><code>##

    chomp($file);

##</code><code>##

    $file =~ s/^"(.+)"$/$1/;  # unquote

##</code><code>##

  }
  return $file;
}