RouterOS beeper player

Battle City

The fanfare before every stage, twice, as the game did.

1# Battle City: the stage-start fanfare (NES, Namco 1985), for one speaker2# https://lab.glossema.dev/play/battle-city34# Tuning: equal temperament, A4 = 440 Hz, rounded to whole hertz5:global notes {"C5"=523; "D5"=587; "Eb5"=622; "F5"=698; "G5"=784; "A5"=880; "Ab5"=831; "Bb5"=932; "C6"=1047};67# Clock: 120 beats per minute; every note of the figure is a sixteenth, the held notes a dotted eighth8:local beat 500ms;9:local sixteenth ($beat / 4);10:local held ($sixteenth * 3);11:local dur {"s"=$sixteenth; "h"=$held};12:global gap 20ms;1314# Voice: one note, then the clock; the gap after each beep lets the repeated notes articulate15:global play do={16  :global notes;17  :global gap;18  :beep frequency=($notes->$1) length=($2 - $gap);19  :delay $2;20}2122# Score: the rising figure (four steps, each sounded twice), the held note, three march steps, the stop23:local melody {24  "C5:s"; "D5:s"; "Eb5:s";   "C5:s"; "D5:s"; "Eb5:s";25  "Eb5:s"; "F5:s"; "G5:s";   "Eb5:s"; "F5:s"; "G5:s";26  "F5:s"; "G5:s"; "A5:s";    "F5:s"; "G5:s"; "A5:s";27  "Ab5:s"; "Bb5:s"; "C6:s";  "Ab5:s"; "Bb5:s"; "C6:s";28  "C6:h";29  "C6:s"; "C6:s"; "C6:s";30  "C6:h"31};3233# Performance: twice, a full second of silence between, as the game did on the next stage34:put "Stage";35:for stage from=1 to=2 do={36  :if ($stage > 1) do={ :delay 1000ms };37  :foreach step in=$melody do={38    :local colon [:find $step ":"];39    :local name [:pick $step 0 $colon];40    :local len [:pick $step ($colon + 1) [:len $step]];41    $play $name ($dur->$len);42  }43}

# Battle City: the stage-start fanfare (NES, Namco 1985), for one speaker
# https://lab.glossema.dev/play/battle-city

# Tuning: equal temperament, A4 = 440 Hz, rounded to whole hertz
:global notes {"C5"=523; "D5"=587; "Eb5"=622; "F5"=698; "G5"=784; "A5"=880; "Ab5"=831; "Bb5"=932; "C6"=1047};

# Clock: 120 beats per minute; every note of the figure is a sixteenth, the held notes a dotted eighth
:local beat 500ms;
:local sixteenth ($beat / 4);
:local held ($sixteenth * 3);
:local dur {"s"=$sixteenth; "h"=$held};
:global gap 20ms;

# Voice: one note, then the clock; the gap after each beep lets the repeated notes articulate
:global play do={
  :global notes;
  :global gap;
  :beep frequency=($notes->$1) length=($2 - $gap);
  :delay $2;
}

# Score: the rising figure (four steps, each sounded twice), the held note, three march steps, the stop
:local melody {
  "C5:s"; "D5:s"; "Eb5:s";   "C5:s"; "D5:s"; "Eb5:s";
  "Eb5:s"; "F5:s"; "G5:s";   "Eb5:s"; "F5:s"; "G5:s";
  "F5:s"; "G5:s"; "A5:s";    "F5:s"; "G5:s"; "A5:s";
  "Ab5:s"; "Bb5:s"; "C6:s";  "Ab5:s"; "Bb5:s"; "C6:s";
  "C6:h";
  "C6:s"; "C6:s"; "C6:s";
  "C6:h"
};

# Performance: twice, a full second of silence between, as the game did on the next stage
:put "Stage";
:for stage from=1 to=2 do={
  :if ($stage > 1) do={ :delay 1000ms };
  :foreach step in=$melody do={
    :local colon [:find $step ":"];
    :local name [:pick $step 0 $colon];
    :local len [:pick $step ($colon + 1) [:len $step]];
    $play $name ($dur->$len);
  }
}

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.