RouterOS beeper player

Ninja Turtles

Heroes in a half shell: the riff, the chant, turtle power.

1# Teenage Mutant Ninja Turtles (1987 theme / NES title screen)2# for one RouterOS beeper --- https://lab.glossema.dev/play/turtles34# --- Tuning: equal temperament, integer Hz -----------------------------------5:global notes {6    "D3"=147; "F3"=175; "G3"=196; "Ab3"=208; "A3"=220;7    "C4"=262; "D4"=294; "F4"=349; "A4"=440;8    "C5"=523; "D5"=587; "F5"=698; "A5"=8809};1011# --- Clock: 150 bpm, so the beat is 400ms and the riff runs in 200ms eighths --12:local beat 400ms;13:global durs {14    "s"=($beat / 4); "e"=($beat / 2); "q"=$beat;15    "h"=($beat * 2); "w"=($beat * 4)16};17:global gap 20ms;1819# --- One voice: sound a note, then hold the clock so the notes articulate -----20:global play do={21    :global notes;22    :global durs;23    :global gap;24    :local d ($durs->$2);25    :if ($1 = "-") do={26        :delay ($d + $gap);27    } else={28        :local f ($notes->$1);29        :beep frequency=$f length=$d;30        :delay ($d + $gap);31    }32}3334# --- Walk a melody written as "NOTE:dur" strings ------------------------------35:global phrase do={36    :global play;37    :foreach n in=$1 do={38        :local c [:find $n ":"];39        :local note [:pick $n 0 $c];40        :local dur [:pick $n ($c + 1) [:len $n]];41        $play $note $dur;42    }43}4445# --- Part 1: the riff, even eighths, third and fourth octaves -----------------46:local riff {47    "D3:e"; "D3:e"; "F3:e"; "G3:e"; "D3:e"; "D3:e"; "G3:e"; "F3:e";48    "D3:e"; "D3:e"; "F3:e"; "G3:e"; "Ab3:e"; "A3:e"; "C4:e"; "D4:e"49};5051# --- Part 2: the chant, set into the riff's gaps ------------------------------52# A low bass note lands on the strong beat wherever the voice rests.53:local chant {54    "D3:e";  "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "C5:e";55    "D5:q";  "-:q";  "D3:e"; "F3:e"; "G3:e"; "A3:e";56    "D3:e";  "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "C5:e";57    "D5:q";  "-:q";  "D3:e"; "F3:e"; "G3:e"; "Ab3:e";58    "D3:e";  "D5:e"; "D5:e"; "C5:e"; "C5:e"; "A4:e"; "A4:q";59    "D3:e";  "F3:e"; "G3:e"; "A3:e"; "D3:e"; "D3:e"; "F3:e"; "G3:e"60};6162# --- Part 3: "turtle power" --- the answering cadence and the shout -----------63:local power {64    "D3:e";  "A4:e"; "A4:e"; "C5:e"; "D5:h";65    "D3:e";  "F3:e"; "G3:e"; "Ab3:e";66    "A3:e";  "C5:e"; "D5:e"; "F5:e";67    "A5:w";68    "-:q";   "D3:q"; "D5:w"69};7071# --- Performance --------------------------------------------------------------72:put "Riff";73:for i from=1 to=2 do={ $phrase $riff; }7475:put "Chant";76$phrase $chant;77$phrase $riff;78$phrase $chant;7980:put "Turtle power";81$phrase $power;

# Teenage Mutant Ninja Turtles (1987 theme / NES title screen)
# for one RouterOS beeper --- https://lab.glossema.dev/play/turtles

# --- Tuning: equal temperament, integer Hz -----------------------------------
:global notes {
    "D3"=147; "F3"=175; "G3"=196; "Ab3"=208; "A3"=220;
    "C4"=262; "D4"=294; "F4"=349; "A4"=440;
    "C5"=523; "D5"=587; "F5"=698; "A5"=880
};

# --- Clock: 150 bpm, so the beat is 400ms and the riff runs in 200ms eighths --
:local beat 400ms;
:global durs {
    "s"=($beat / 4); "e"=($beat / 2); "q"=$beat;
    "h"=($beat * 2); "w"=($beat * 4)
};
:global gap 20ms;

# --- One voice: sound a note, then hold the clock so the notes articulate -----
:global play do={
    :global notes;
    :global durs;
    :global gap;
    :local d ($durs->$2);
    :if ($1 = "-") do={
        :delay ($d + $gap);
    } else={
        :local f ($notes->$1);
        :beep frequency=$f length=$d;
        :delay ($d + $gap);
    }
}

# --- Walk a melody written as "NOTE:dur" strings ------------------------------
:global phrase do={
    :global play;
    :foreach n in=$1 do={
        :local c [:find $n ":"];
        :local note [:pick $n 0 $c];
        :local dur [:pick $n ($c + 1) [:len $n]];
        $play $note $dur;
    }
}

# --- Part 1: the riff, even eighths, third and fourth octaves -----------------
:local riff {
    "D3:e"; "D3:e"; "F3:e"; "G3:e"; "D3:e"; "D3:e"; "G3:e"; "F3:e";
    "D3:e"; "D3:e"; "F3:e"; "G3:e"; "Ab3:e"; "A3:e"; "C4:e"; "D4:e"
};

# --- Part 2: the chant, set into the riff's gaps ------------------------------
# A low bass note lands on the strong beat wherever the voice rests.
:local chant {
    "D3:e";  "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "C5:e";
    "D5:q";  "-:q";  "D3:e"; "F3:e"; "G3:e"; "A3:e";
    "D3:e";  "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "A4:e"; "C5:e";
    "D5:q";  "-:q";  "D3:e"; "F3:e"; "G3:e"; "Ab3:e";
    "D3:e";  "D5:e"; "D5:e"; "C5:e"; "C5:e"; "A4:e"; "A4:q";
    "D3:e";  "F3:e"; "G3:e"; "A3:e"; "D3:e"; "D3:e"; "F3:e"; "G3:e"
};

# --- Part 3: "turtle power" --- the answering cadence and the shout -----------
:local power {
    "D3:e";  "A4:e"; "A4:e"; "C5:e"; "D5:h";
    "D3:e";  "F3:e"; "G3:e"; "Ab3:e";
    "A3:e";  "C5:e"; "D5:e"; "F5:e";
    "A5:w";
    "-:q";   "D3:q"; "D5:w"
};

# --- Performance --------------------------------------------------------------
:put "Riff";
:for i from=1 to=2 do={ $phrase $riff; }

:put "Chant";
$phrase $chant;
$phrase $riff;
$phrase $chant;

:put "Turtle power";
$phrase $power;

Note—Freq—Line—

On the router: paste the script into a terminal, or upload the file and run it.

Download the script

Ask for a tune you may arrange: your own, one out of copyright, or one you are licensed to use.

Paste any beeper script into the editor to hear it.

How it works

One command sounds one tone: :beep frequency=<hertz> length=<time>; the beeper plays one note at a time.

:delay is the clock. A beep starts the tone and returns at once, so every note is a beep followed by a delay of the same length and a small gap.

A tune is a script: a note table, a melody as an array, one function that plays a note. Download any of these and run it in a terminal.