Manipulate[S = Show[
   {Play[Sin[277.18*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[369.99*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[369.99*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[415.30*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 2*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[369.99*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[369.99*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 1*n}],
    Play[Sin[0], {t, 0, 0.5*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[415.30*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 1.5*n}],
    Play[Sin[415.30*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 1.5*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.25*n}],
    Play[Sin[554.37*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[493.88*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[440*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[415.3*2 Pi*t], {t, 0, 0.5*n}],
    Play[Sin[369.99*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[587.33*2 Pi*t], {t, 0, 1*n}],
    Play[Sin[544.17*2 Pi*t], {t, 0, 1.75*n}]
    }]; S, "''The Final Countdown'' by Europe", "Music Speed", {n,
  0.1, 1.5},
 "Fast ---- ---^ ---- ---- ---- ---- Slow", "^ indicates ideal speed"]