RouterOS beeper player

Terminator Two

The hammered figure is a pattern of hits, the theme one written opening with three endings, and a scheduler walks every bar step by step, striking the held note again after each hit. It plays the same notes as the notes page, tone for tone.

Your score

Pick a tune

1# Main Title (Terminator 2 Theme) by Brad Fiedel - https://lab.glossema.dev/play/judgement-day/code2# It plays the notes of https://lab.glossema.dev/play/judgement-day, tone for tone.3# The opening of the main title of Terminator 2: Judgment Day (1991): four bars of the ostinato4# alone, then the theme's first statement over it, and one last bar of the arrangement's own.5# Here it runs as a step sequencer on one speaker: 24 steps to the bar, six to the beat, a unit6# of 87 ms that broadens to 88 for the close. The ostinato is a pattern of hits on D3, the tune7# a lane of note letters an octave above the film's. A hit takes the front of the tune's slot,8# and the tune sounds on for the rest.9{10  # the ostinato: a hit on each x of the bar's 24 steps.11  # The intro plays the same figure, cut after five hits12  :local ostinato "x.x...x...x.x...x...x..."13  :local intro ([:pick $ostinato 0 13] . "...........")1415  # the tune's notes in Hz, one letter each: capitals D4 to G4, small letters C5 to A5.16  # A lane has a character a step: a letter where a note begins, a dash (0) where none does17  :local notes {"-"=0; "D"=294; "E"=330; "F"=349; "G"=392; "c"=523; "d"=587; "e"=659; "f"=698; "g"=784; "a"=880}1819  # under the intro the tune is silent20  :local silence "------------------------"2122  # the theme: three phrases climb D, E, F from the same two written bars and end apart,23  # on the low F held, on A stepping down to G, on the low G held24  :local opening {"d--e--f-----------------"; "------------e-------c---"}25  :local endings {26    {"F-----------------------"; "------------------------"};27    {"a-----------------------"; "g-----------------------"};28    {"G-----------------------"; "------------------------"}29  }3031  # the close sinks back towards D: the low F held into a short D, then F and E32  :local close {"F-----------------------"; "--------------------D---"; "F-----------------------"; "E-----------------------"}3334  # share: the hit, paid out of the tune's slot. It sounds 30 ms and takes 40,35  # and the tune has the rest: a note that begins here, the held note struck again, or silence under the intro36  :local share do={37    :local rest ($span - 40ms)38    :beep frequency=147 length=30ms39    :delay 40ms40    :if ($new > 0) do={41      :beep frequency=$new length=$rest42    } else={43      :if ($held > 0) do={44        :beep frequency=$held length=$rest45      }46    }47    :delay $rest48  }4950  # the form: each part's line on the terminal, its unit, its hits and its bars of tune51  :local form {52    {title="Ostinato"; unit=87ms; hits=$intro; bars={$silence; $silence; $silence; $silence}};53    {title="Theme, phrase 1 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->0))};54    {title="Theme, phrase 2 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->1))};55    {title="Theme, phrase 3 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->2))};56    {title="Close"; unit=88ms; hits=$ostinato; bars=$close}57  }5859  # the scheduler walks each bar step by step, keeping the tune's sounding note60  :local held 061  :foreach part in=$form do={62    :put ($part->"title")63    :local unit ($part->"unit")64    :local hits ($part->"hits")65    :foreach tune in=($part->"bars") do={66      :local steps [:len $tune]67      :for step from=0 to=($steps - 1) do={68        :local hit ([:pick $hits $step] = "x")69        :local new ($notes->[:pick $tune $step])70        :if ($hit || ($new > 0)) do={71          # the slot runs to the next hit, the next note or the bar line72          :local next $steps73          :local ahead ($step + 1)74          :while ($ahead < $next) do={75            :if (([:pick $hits $ahead] = "x") || ([:pick $tune $ahead] != "-")) do={ :set next $ahead }76            :set ahead ($ahead + 1)77          }78          :local span ($unit * ($next - $step))79          :if ($hit) do={80            $share new=$new held=$held span=$span81          } else={82            # a note with no hit in front has its whole slot83            :beep frequency=$new length=$span84            :delay $span85          }86          :if ($new > 0) do={ :set held $new }87        }88      }89    }90  }9192  # the arrangement's own last bar: one more hit, and the tune steps down to D4 for 1.5 s93  $share new=($notes->"D") span=1540ms94}

# Main Title (Terminator 2 Theme) by Brad Fiedel - https://lab.glossema.dev/play/judgement-day/code
# It plays the notes of https://lab.glossema.dev/play/judgement-day, tone for tone.
# The opening of the main title of Terminator 2: Judgment Day (1991): four bars of the ostinato
# alone, then the theme's first statement over it, and one last bar of the arrangement's own.
# Here it runs as a step sequencer on one speaker: 24 steps to the bar, six to the beat, a unit
# of 87 ms that broadens to 88 for the close. The ostinato is a pattern of hits on D3, the tune
# a lane of note letters an octave above the film's. A hit takes the front of the tune's slot,
# and the tune sounds on for the rest.
{
  # the ostinato: a hit on each x of the bar's 24 steps.
  # The intro plays the same figure, cut after five hits
  :local ostinato "x.x...x...x.x...x...x..."
  :local intro ([:pick $ostinato 0 13] . "...........")

# the tune's notes in Hz, one letter each: capitals D4 to G4, small letters C5 to A5.
  # A lane has a character a step: a letter where a note begins, a dash (0) where none does
  :local notes {"-"=0; "D"=294; "E"=330; "F"=349; "G"=392; "c"=523; "d"=587; "e"=659; "f"=698; "g"=784; "a"=880}

# under the intro the tune is silent
  :local silence "------------------------"

# the theme: three phrases climb D, E, F from the same two written bars and end apart,
  # on the low F held, on A stepping down to G, on the low G held
  :local opening {"d--e--f-----------------"; "------------e-------c---"}
  :local endings {
    {"F-----------------------"; "------------------------"};
    {"a-----------------------"; "g-----------------------"};
    {"G-----------------------"; "------------------------"}
  }

# the close sinks back towards D: the low F held into a short D, then F and E
  :local close {"F-----------------------"; "--------------------D---"; "F-----------------------"; "E-----------------------"}

# share: the hit, paid out of the tune's slot. It sounds 30 ms and takes 40,
  # and the tune has the rest: a note that begins here, the held note struck again, or silence under the intro
  :local share do={
    :local rest ($span - 40ms)
    :beep frequency=147 length=30ms
    :delay 40ms
    :if ($new > 0) do={
      :beep frequency=$new length=$rest
    } else={
      :if ($held > 0) do={
        :beep frequency=$held length=$rest
      }
    }
    :delay $rest
  }

# the form: each part's line on the terminal, its unit, its hits and its bars of tune
  :local form {
    {title="Ostinato"; unit=87ms; hits=$intro; bars={$silence; $silence; $silence; $silence}};
    {title="Theme, phrase 1 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->0))};
    {title="Theme, phrase 2 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->1))};
    {title="Theme, phrase 3 of 3"; unit=87ms; hits=$ostinato; bars=($opening, ($endings->2))};
    {title="Close"; unit=88ms; hits=$ostinato; bars=$close}
  }

# the scheduler walks each bar step by step, keeping the tune's sounding note
  :local held 0
  :foreach part in=$form do={
    :put ($part->"title")
    :local unit ($part->"unit")
    :local hits ($part->"hits")
    :foreach tune in=($part->"bars") do={
      :local steps [:len $tune]
      :for step from=0 to=($steps - 1) do={
        :local hit ([:pick $hits $step] = "x")
        :local new ($notes->[:pick $tune $step])
        :if ($hit || ($new > 0)) do={
          # the slot runs to the next hit, the next note or the bar line
          :local next $steps
          :local ahead ($step + 1)
          :while ($ahead < $next) do={
            :if (([:pick $hits $ahead] = "x") || ([:pick $tune $ahead] != "-")) do={ :set next $ahead }
            :set ahead ($ahead + 1)
          }
          :local span ($unit * ($next - $step))
          :if ($hit) do={
            $share new=$new held=$held span=$span
          } else={
            # a note with no hit in front has its whole slot
            :beep frequency=$new length=$span
            :delay $span
          }
          :if ($new > 0) do={ :set held $new }
        }
      }
    }
  }

# the arrangement's own last bar: one more hit, and the tune steps down to D4 for 1.5 s
  $share new=($notes->"D") span=1540ms
}

Space to play / stop

Note—Freq—Line—

Download .rsc

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

Script output

Write your own

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

Have a MIDI file? altucor’s converter turns it into a script.

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.

Most tunes here are written out note by note, a beep and a delay each; some also come as code, with loops, tables and functions, that plays the very same notes. Download any of these and run it in a terminal.