using System.Text.RegularExpressions;

var noteFreqs = new Dictionary<string, int>()
{
    ["C2"] = 65, ["C#2"] = 69, ["D2"] = 73, ["D#2"] = 77, ["E2"] = 82,
    ["F2"] = 87, ["F#2"] = 92, ["G2"] = 98, ["G#2"] = 104,["A2"] = 110, ["A#2"] = 117, ["B2"] = 123,
    ["C3"] = 131,["C#3"] = 139,["D3"] = 148,["D#3"] = 156,["E3"] = 165,
    ["F3"] = 175,["F#3"] = 185,["G3"] = 196,["G#3"] = 208,["A3"] = 220, ["A#3"] = 233, ["B3"] = 247,
    ["C4"] = 262,["C#4"] = 277,["D4"] = 294,["D#4"] = 311,["E4"] = 330,
    ["F4"] = 349,["F#4"] = 370,["G4"] = 392,["G#4"] = 415,["A4"] = 440,["A#4"] = 466,["B4"] = 494
};

var rawMusic = File.ReadAllText("music.raw");
var timeUnit = 180;
var data = Regex.Matches(rawMusic, @"(?<n>[A-GX][#]*\d*):(?<l>\d)")
    .Cast<Match>().Select(m => {
    var n = m.Groups["n"].Value;
    n = Regex.Replace(n, "[23]", m => (int.Parse(m.Value) + 1).ToString());
    var l = int.Parse(m.Groups["l"].Value);
    var freq = n == "X" ? 30000 : noteFreqs[n];
    return (Name: m.Value, Freq: freq, Len: timeUnit * l);
});
using (var f = new FileStream("THEME.MSC", FileMode.Create))
{
    Action<int> writeInt = (v) =>
    {
        var b = BitConverter.GetBytes((short)v);
        f.Write(b, 0, b.Length);
    };
    int size = data.Count();
    writeInt(size);
    writeInt(0);
    foreach (var n in data)
    {
        writeInt(n.Freq);
        writeInt(n.Len);
    }
}
var c = 0;
foreach (var n in data)
{
    var p = n.Name.Split(':');
    Console.Write(p[0] + " ");
    c += int.Parse(p[1]);
    if (c >= 16)
    {
        c = 0;
        Console.WriteLine();
    }
    Console.Beep(n.Freq, n.Len);
}