extern char *getenv(), *sprintf();

char *
TunesPath() 
/*
** Return the `path` in which to search for MIDI files.
** This is either the '$TUNES' environment variable or a default path
** (c{. /usr/midi/tunes $HOME/tunes}).
*/
{
  static char *Path = (char *)0;
  static char path[500];
  if (!Path) {
     if (!Path) Path = getenv("TUNES");
     if (!Path) Path = sprintf(path, ". %s/tunes /usr/midi/tunes", getenv("HOME"));
  }
  return Path;
}