void SongEndTsk()
{
  Sound(0);
  Exit;
}


void SongTsk()
{
  //See $LK,"Play","MN:Play"$() for notation.

  Preempt(ON);

  //Define a end-task call back so
  //the sound will stop if the
  //window is closed.
  Fs->end_task_cb=&SongEndTsk;

  ResetMusicSettings;
  while (TRUE) {
    Play("1wCqDsEFG2AB");
    Play("wCqDsEFG3AB");
    Play("wCqDsEFG4AB");
    Play("wCqDsEFG5AB");
    Play("wCqDsEFG6AB");
  }
}

Spawn(&SongTsk,"Background Song");
coutln "$$FG,PURPLE$$A task has been spawned to "
       "play music in the background.";
coutln "Use $$LK,\"TaskRep\",\"MN:TaskRep\"$$() to "
       "kill it.$$FG$$";

Auto("TaskRep;\r"); //Make it visible so people see the name, TaskRep