Off[General::spell1];
c4 = Play[Sin[2 Pi 261.64 t], {t, 0, 0.4}, DisplayFunction -> Identity];
c4l = Play[Sin[2 Pi 261.64 t], {t, 0, 0.8}, DisplayFunction -> Identity];
d4 = Play[Sin[2 Pi 293.68 t], {t, 0, 0.4}, DisplayFunction -> Identity];
d4l = Play[Sin[2 Pi 293.68 t], {t, 0, 0.8}, DisplayFunction -> Identity];
e4 = Play[Sin[2 Pi 329.64 t], {t, 0, 0.4}, DisplayFunction -> Identity];
f4 = Play[Sin[2 Pi 349.24 t], {t, 0, 0.4}, DisplayFunction -> Identity];
g4 = Play[Sin[2 Pi 392.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
g4l = Play[Sin[2 Pi 392.00 t], {t, 0, 0.8}, DisplayFunction -> Identity];
a4 = Play[Sin[2 Pi 440.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
b4 = Play[Sin[2 Pi 493.92 t], {t, 0, 0.4}, DisplayFunction -> Identity];
c4a = Play[Sin[2 Pi 523.28 t], {t, 0, 0.4}, DisplayFunction -> Identity];
ScaleScale = {c4, d4, e4, f4, g4, a4, b4, c4a, b4, a4, g4, f4, e4, d4, c4};
Show[ScaleScale]
Twinkle = {c4, c4, g4, g4, a4, a4, g4l, f4, f4, e4, e4, d4, d4, c4l, 
   g4, g4, f4, f4, e4, e4, d4l, g4, g4, f4, f4, e4, e4, d4l, c4, c4, 
   g4, g4, a4, a4, g4l, f4, f4, e4, e4, d4, d4, c4l};
Show[Twinkle]
OdetoJoy = {e4, e4, f4, g4, g4, f4, e4, d4, c4, c4, d4, e4, e4, d4, 
   d4l, e4, e4, f4, g4, g4, f4, e4, d4, c4, c4, d4, e4, d4l, c4l, 
   c4l};
S=Show[OdetoJoy]

(* we can not export wave forms to midi, the midi file is not genuine     *)
(* check the MP3 file to hear the melody                                  *)