RouterOS beeper player

Bumer

The ringtone from the film, the one every phone had, ringing unanswered.

1# Bumer (2003) - the phone's melody, Sergey Shnurov2# https://lab.glossema.dev/play/bumer34# --- Instrument: one beeper, equal temperament, fifth octave ---5:global notes {"E5"=659; "G5"=784; "A5"=880; "B5"=988};67# --- Clock: 150 bpm, 4/4; e = eighth, qd = dotted quarter, h = half ---8:global durs {"e"=200ms; "qd"=600ms; "h"=800ms};9:global gap 40ms;1011# --- One voice: "NOTE:dur" sounds, "-:dur" rests ---12:global play do={13  :global notes;14  :global durs;15  :global gap;16  :local cut [:find $1 ":"];17  :local note [:pick $1 0 $cut];18  :local slot ($durs->[:pick $1 ($cut + 1) [:len $1]]);19  :if ($note = "-") do={20    :delay $slot;21  } else={22    :local hold ($slot - $gap);23    :beep frequency=($notes->$note) length=$hold;24    :delay ($hold + $gap);25  }26};2728# --- The phrase: Em | C | Am | C ---29:local phrase {30  "E5:e"; "G5:qd"; "-:h";31  "G5:e"; "E5:qd"; "-:h";32  "A5:e"; "G5:e"; "A5:e"; "G5:e"; "A5:e"; "G5:e"; "A5:e"; "G5:e";33  "A5:e"; "B5:qd"; "-:h"34};3536# --- Ring ---37:put "Ring";38:foreach n in=$phrase do={ $play $n; };3940# --- Ring again ---41:put "Ring again";42:foreach n in=$phrase do={ $play $n; };4344# --- Unanswered: a second of silence, then once more ---45:delay 1000ms;46:put "Unanswered";47:foreach n in=$phrase do={ $play $n; };

# Bumer (2003) - the phone's melody, Sergey Shnurov
# https://lab.glossema.dev/play/bumer

# --- Instrument: one beeper, equal temperament, fifth octave ---
:global notes {"E5"=659; "G5"=784; "A5"=880; "B5"=988};

# --- Clock: 150 bpm, 4/4; e = eighth, qd = dotted quarter, h = half ---
:global durs {"e"=200ms; "qd"=600ms; "h"=800ms};
:global gap 40ms;

# --- One voice: "NOTE:dur" sounds, "-:dur" rests ---
:global play do={
  :global notes;
  :global durs;
  :global gap;
  :local cut [:find $1 ":"];
  :local note [:pick $1 0 $cut];
  :local slot ($durs->[:pick $1 ($cut + 1) [:len $1]]);
  :if ($note = "-") do={
    :delay $slot;
  } else={
    :local hold ($slot - $gap);
    :beep frequency=($notes->$note) length=$hold;
    :delay ($hold + $gap);
  }
};

# --- The phrase: Em | C | Am | C ---
:local phrase {
  "E5:e"; "G5:qd"; "-:h";
  "G5:e"; "E5:qd"; "-:h";
  "A5:e"; "G5:e"; "A5:e"; "G5:e"; "A5:e"; "G5:e"; "A5:e"; "G5:e";
  "A5:e"; "B5:qd"; "-:h"
};

# --- Ring ---
:put "Ring";
:foreach n in=$phrase do={ $play $n; };

# --- Ring again ---
:put "Ring again";
:foreach n in=$phrase do={ $play $n; };

# --- Unanswered: a second of silence, then once more ---
:delay 1000ms;
:put "Unanswered";
:foreach n in=$phrase do={ $play $n; };

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.