# Preludio from Partita No. 3 E major for solo Mikrotik
# BWV 1006
# Johann Sebastian Bach
# Transcription MikroTourette 2016
#
:local notes 88,87,88,83,80,83,76,78,76,75,76,71,68,71,64,71,66,71,68,71,69,71,68,71,66,71,64,76,75,73,71,76;
:local notes ($notes, 75,73,71,69,68,66,64,71,66,71,68,71,69,71,68,71,66,71,64,76,75,73,71,76,75,73,71,69,68,66,64,66);
:local notes ($notes, 68,69,71,73,75,76,78,80,81,78,80,83,76,78,80,81,83,85,87,88,85,87,88,83,81,83,80,83,81,83,80,83);
:local notes ($notes, 78,83,76,88,87,85,83,76,85,76,83,76,81,76,80,83,78,83,80,83,81,83,80,83,78,83,76,88,87,85,83,76);
:local notes ($notes, 85,76,83,76,81,76,80,76,76,76,75,76,76,76,78,76,75,76,76,76,80,76,78,76,80,76,81,76,78,76,80,76);
:local notes ($notes, 76,76,75,76,76,76,78,76,75,76,76,76,80,76,78,76,80,76,81,76,78,76,80,76,80,76,80,76,80,76,80,76);
:local notes ($notes, 80,76,80,76,80,75,80,76,80,75,80,76,80,75,80,76,80,74,80,76,80,74,80,76,80,74,81,76,81,73,81,76);
:local notes ($notes, 81,73,81,76,81,73,81,76,81,71,81,76,81,71,81,76,81,71,80,76,80,71,80,76,80,71,80,76,80,71,80,76);
:local notes ($notes, 80,69,80,76,80,69,80,76,80,69,78,76,78,69,78,76,78,69,78,76,78,69,78,76,78,68,78,76,78,68,78,76);
:local notes ($notes, 78,68,76,76,76,68,76,76,76,68,76,76,76,68,76,76,76,66,76,76,76,66,76,76,76,66,75,76,75,66,75,76);
:local notes ($notes, 75,66,75,76,75,66,64,66,64,66,68,71,64,66,68,71,64,66,68,69,68,69,71,76,68,69,71,76,68,69,71,73);
:local notes ($notes, 71,73,74,80,71,73,74,80,71,73,74,83,80,76,74,71,68,64,62,61,62,59,61,63,61,63,65,68,61,63,65,68);
:local notes ($notes, 61,63,65,66,65,66,68,73,65,66,68,73,65,66,68,69,68,69,71,77,68,69,71,77,68,69,71,80,77,73,83,80);
:local notes ($notes, 81,78,77,80,73,71,69,73,69,66,78,75,76,73,72,75,68,66,64,68,64,61,64,68,73,68,76,73,80,73,72,75);
:local notes ($notes, 72,68,80,79,80,79,80,75,76,73,72,75,72,68,78,77,78,77,78,75,76,73,72,75,72,68,69,68,69,68,69,63);
:local notes ($notes, 64,61,60,66,61,66,63,66,61,66,60,66,63,66,56,66,75,66,72,66,75,66,72,66,75,66,56,64,73,64,76,64);
:local notes ($notes,73,64,76,64,73,64,56,66,75,66,72,66,75,66,72,66,75,66,56,64,73,64,76,64,73,64,76,64,73,64,56,67);
:local notes ($notes,73,67,76,67,73,67,76,67,73,67,56,67,73,67,76,67,73,67,76,67,73,67,56,68,73,68,75,68,73,68,75,68);
:local notes ($notes,73,68,56,66,72,66,75,66,72,66,75,66,72,66,61,73,71,69,68,73,68,66,64,68,64,63,61,73,68,66,64,68);
:local notes ($notes,64,63,61,64,61,59,58,66,73,66,76,66,73,66,76,66,73,66,58,66,76,66,73,66,76,66,73,66,76,66,59,83);
:local notes ($notes,82,80,78,83,78,76,75,78,75,73,71,83,78,76,75,78,75,73,71,75,71,69,68,74,76,74,80,74,83,74,80,74);
:local notes ($notes,76,74,68,74,76,74,68,74,66,74,68,74,64,74,73,76,81,80,81,76,74,76,73,76,71,76,69,81,80,78,76,69);
:local notes ($notes,78,69,76,69,74,69,73,76,71,76,73,76,74,76,73,76,71,76,69,81,80,78,76,69,78,69,76,69,74,69,73,69);
:local notes ($notes,69,69,68,69,69,69,71,69,68,69,69,69,73,69,71,69,73,69,74,69,71,69,73,69,69,69,68,69,69,69,71,69);
:local notes ($notes,68,69,69,69,73,69,71,69,73,69,74,69,71,69,73,69,73,69,73,69,73,69,73,69,73,69,73,69,73,68,73,69);
:local notes ($notes,73,68,73,69,73,68,73,69,73,67,73,69,73,67,73,69,73,67,74,69,74,66,74,69,74,66,74,69,74,66,74,69);
:local notes ($notes,74,64,74,69,74,64,74,69,74,64,73,69,73,64,73,69,73,64,73,69,73,64,73,69,73,62,73,69,73,62,73,69);
:local notes ($notes,73,62,71,69,71,62,71,69,71,62,71,69,71,62,71,69,71,61,71,69,71,61,71,69,71,61,69,69,69,61,69,69);
:local notes ($notes,69,61,69,69,69,61,69,69,69,59,69,69,69,59,69,69,69,59,68,69,68,59,68,69,68,59,68,69,68,59,57,59);
:local notes ($notes,57,59,61,64,57,59,61,64,57,59,61,62,61,62,64,69,61,62,64,69,61,62,64,66,64,66,67,73,64,66,67,73);
:local notes ($notes,64,66,67,76,73,74,76,73,70,71,73,70,66,64,62,61,59,61,62,66,59,61,62,66,59,61,62,64,62,64,66,71);
:local notes ($notes,62,64,66,71,62,64,66,68,66,68,69,75,66,68,69,75,66,68,69,78,75,76,78,75,72,73,75,72,68,66,65,83);
:local notes ($notes,80,81,83,80,77,78,80,77,73,71,69,85,81,83,85,81,78,80,81,78,74,73,71,86,83,85,86,83,80,81,83,80);
:local notes ($notes,77,80,73,75,73,75,77,80,73,75,77,80,73,75,77,78,77,78,80,83,77,78,80,83,77,78,80,81,80,81,83,86);
:local notes ($notes,80,81,83,86,80,81,83,86,83,80,77,83,80,77,73,83,81,80,78,80,81,78,71,81,80,78,73,80,78,77,74,76);
:local notes ($notes,78,74,68,78,76,74,70,76,74,73,71,73,74,71,65,74,73,71,66,73,71,69,68,69,71,69,68,71,69,71,68,71);
:local notes ($notes,66,71,65,66,68,69,71,65,74,65,73,65,71,65,66,69,66,61,57,61,66,61,69,61,66,61,65,68,65,61,65,68);
:local notes ($notes,73,68,77,73,80,71,69,73,69,66,69,73,78,73,81,78,85,78,77,80,77,73,85,84,85,84,85,80,81,78,77,80);
:local notes ($notes,77,73,83,82,83,82,83,80,81,78,77,80,77,73,74,73,74,73,74,68,69,66,65,68,73,83,83,80,81,78,77,80);
:local notes ($notes,73,71,69,73,78,85,85,81,83,80,78,81,74,73,71,74,67,66,65,68,61,59,57,61,66,68,69,66,71,66,73,66);
:local notes ($notes,74,66,61,66,68,65,66,69,68,69,69,69,68,69,66,69,64,69,63,69,64,69,66,69,68,69,69,69,66,69,68,69);
:local notes ($notes,68,66,64,76,75,76,73,76,71,76,70,76,71,76,73,76,75,76,76,76,73,76,75,76,75,73,71,73,75,76,78,80);
:local notes ($notes,81,78,83,71,69,71,68,71,66,71,64,71,62,71,61,64,66,68,69,71,73,74,76,78,80,76,81,69,68,69,66,69);
:local notes ($notes,64,69,63,69,61,69,59,63,64,66,68,69,71,73,75,76,78,75,80,64,62,64,61,64,59,64,57,64,56,64,57,64);
:local notes ($notes,73,71,73,76,81,80,81,78,73,76,59,66,75,73,75,78,81,80,81,78,75,78,59,68,71,69,71,76,80,78,80,76);
:local notes ($notes,71,76,59,70,73,71,73,76,82,80,82,76,73,76,75,83,82,80,78,83,78,76,75,78,75,73,71,83,81,80,78,81);
:local notes ($notes,78,76,75,78,75,73,71,81,80,78,76,80,76,75,73,76,73,71,69,80,78,76,75,78,75,73,71,75,71,69,68,76);
:local notes ($notes,73,71,69,73,69,68,66,69,66,64,63,66,69,73,71,75,78,81,81,80,81,78,80,76,80,83,88,83,80,76,71,78);
:local notes ($notes,88,87,88,83,80,76,74,76,73,76,74,76,71,76,73,76,81,76,73,76,71,76,73,76,69,76,71,76,80,76,71,76);
:local notes ($notes,69,76,71,76,68,76,69,76,78,76,75,76,76,76,78,76,80,76,59,66,75,81,83,64,71,80,57,81,80,81,78,80);
:local notes ($notes,78,80,78,80,78,80,78,80,78,80,78,76,76,88,87,85,83,88,81,88,80,88,78,88,76,76,75,73,71,76,69);
:local notes ($notes,76,68,76,66,76,64,68,71,75,76,80,83,87,88);
:local speed 60ms;
:local stacc 3ms;
:local transpose -60;
:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14916,15804;
:local n0; :local n;
:local d0; :local d;
:local l;
:local midi;
:local i;
:local octa;
:local frq;
:for i from=0 to= ([:len $notes]-1) do={
:set midi [:pick $notes $i];
:set midi ($midi + $transpose);
:set octa 0;
:while ( $midi < 60) do={:set midi ($midi + 12); :set octa ($octa + 1 ); };
:set midi ($midi - (12 * ($midi /12)));
:set frq [:tonum [:pick $frqtab $midi]];
:set frq ($frq>>($octa));
:set d0 2;
:if ($i >1 && $i<6) do={:set d0 4};
:if ($i >9 && $i<14) do={:set d0 4};
:if ($i > 1585 && $i <1589) do={:set d0 1};
:if ($i = 1589) do={:set d0 9};
:if ($i = 1590) do={:set d0 4};
:if ($i = 1591) do={:set d0 1};
:if ($i = 1592) do={:set d0 1};
:if ($i = 1593) do={:set d0 6};
:if ($i > 1596 && $i <1612 ) do={:set d0 1};
:if ($i = 1611) do={:set d0 4};
:if ($i = 1644) do={:set d0 12};
:set d ($d0 * $speed );
:set l ($d0 * ($speed - $stacc));
# :put $midi;
# :put $frq;
# :put $octa;
:beep fr=$frq le=$l;
:delay $d;
}
That is AWESOME!!! 
Please, give us some more!
This is really Awesome
OK,
now for something completely different: Thunderstruck (AC/DC)
# =================
# Thunderstruck AC/DC
# =================
:local n11 63,66;
:local n12 64,67;
:local n21 71,69,68,69,68,66,68,64,66,63;
:local n22 64,63;
:local n11 ($n11,$n11);
:local n12 ($n12,$n12);
:local n1 ($n11,$n11,$n12,$n12);
:local n2 ($n21,$n22,$n22,$n22);
:local notes ($n1,$n1,$n2,$n2);
:local ticks 2;
:local speed 55ms;
:local stacc 5ms;
# Transposition
:local transpose -48;
# ==============================
# Don't change this:
:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14916,15804;
:local n0; :local n;
:local d0; :local d;
:local l;
:local midi;
:local i;
:local octa;
:local frq;
:for i from=0 to= ([:len $notes]-1) do={
:set midi [:pick $notes $i];
:set midi ($midi + $transpose);
:set octa 0;
:while ( $midi < 60) do={:set midi ($midi + 12); :set octa ($octa + 1 ); };
:set midi ($midi - (12 * ($midi /12)));
:set frq [:tonum [:pick $frqtab $midi]];
:set frq ($frq>>($octa));
:set d0 $ticks;
:set d ($d0 * $speed );
:set l ($d0 * ($speed - $stacc));
:beep fr=$frq le=$l;
:delay $d;
:set midi 59;
:set midi ($midi + $transpose);
:set octa 0;
:while ( $midi < 60) do={:set midi ($midi + 12); :set octa ($octa + 1 ); };
:set midi ($midi - (12 * ($midi /12)));
:set frq [:tonum [:pick $frqtab $midi]];
:set frq ($frq>>($octa));
:set d0 $ticks;
:set d ($d0 * $speed );
:set l ($d0 * ($speed - $stacc));
:beep fr=$frq le=$l;
:delay $d;
}
Highly compressed, all data in 4 variables and 16 notes.
Another one:
# Solfeggietto c minor for solo Mikrotik
# H 220, Wq. 117: 2
# C. P. E. Bach
# Transcription MikroTourette 2017
#
:local notes 51,48,51,55,60,63,62,60,59,55,59,62,67,65,63,62;
:local notes ($notes, 63,60,63,67,72,75,74,72,74,72,71,69,67,65,63,62);
:local notes ($notes, 63,60,63,67,72,75,74,72,71,67,71,74,79,77,75,74);
:local notes ($notes, 75,72,75,79,84,87,86,84,86,84,83,81,79,77,75,74);
:local notes ($notes, 75,72,67,63,60,84,79,75,80,53,56,60,65,68,72,75);
:local notes ($notes, 74,70,65,62,58,82,77,74,79,51,55,58,63,67,70,74);
:local notes ($notes, 72,69,68,69,72,69,68,69,75,72,67,69,75,72,67,69);
:local notes ($notes, 74,72,66,69,81,72,66,69,78,72,62,69,72,69,66,62);
:local notes ($notes, 70,43,46,50,55,58,57,55,54,50,54,57,62,60,58,57);
:local notes ($notes, 58,55,58,62,67,70,69,67,69,67,66,64,62,60,58,57);
:local notes ($notes, 58,55,58,62,67,70,69,67,66,62,66,69,74,72,70,69);
:local notes ($notes, 70,67,70,74,79,82,81,79,81,79,78,76,74,72,70,69);
:local notes ($notes, 70,67,70,74,79,74,70,67,53,79,74,71,67,71,74,79);
:local notes ($notes, 72,67,79,67,72,67,79,67,71,67,77,67,71,67,77,67);
:local notes ($notes, 75,72,75,79,84,79,75,72,58,84,79,76,72,76,79,84);
:local notes ($notes, 77,72,84,72,77,72,84,72,76,72,82,72,76,72,82,72);
:local notes ($notes, 80,41,44,48,53,56,55,53,52,48,52,55,60,58,56,55);
:local notes ($notes, 56,53,56,60,65,68,67,65,67,65,64,62,60,58,56,55);
:local notes ($notes, 56,53,56,60,65,68,67,65,64,60,64,67,72,70,68,67);
:local notes ($notes, 68,65,68,72,77,80,79,77,79,77,76,74,72,70,68,67);
:local notes ($notes, 68,77,72,68,65,72,68,65,60,68,65,60,56,65,60,56);
:local notes ($notes, 49,80,77,76,77,79,77,76,77,48,68,65,64,65,67,65);
:local notes ($notes, 64,65,47,86,77,79,80,79,77,75,74,75,79,84,79,82);
:local notes ($notes, 80,79,77,75,75,74,75,74,75,74,75,74,72,67,79,67);
:local notes ($notes, 72,67,79,67,71,67,77,67,71,67,77,67,70,67,76,67);
:local notes ($notes, 70,67,76,67,69,75,84,75,69,75,84,75,68,65,74,65);
:local notes ($notes, 68,65,74,65,67,73,82,73,67,73,82,73,66,63,72,63);
:local notes ($notes, 66,63,72,63,65,72,84,72,65,72,84,72,63,72,75,79);
:local notes ($notes, 84,79,75,72,79,75,72,67,77,74,71,65,63,48,51,55);
:local notes ($notes, 60,63,62,60,59,55,59,62,67,65,63,62,63,60,63,67);
:local notes ($notes, 72,75,74,72,74,72,71,69,67,65,63,62,63,60,63,67);
:local notes ($notes, 72,75,74,72,71,67,71,74,79,77,75,74,75,72,75,79);
:local notes ($notes, 84,87,86,83,84,79,75,74,72,67,63,62,60);
:local speed 50ms;
:local stacc 10ms;
:local transpose -48;
:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14916,15804;
:local n0; :local n;
:local d0; :local d;
:local l;
:local midi;
:local i;
:local octa;
:local frq;
:for i from=0 to= ([:len $notes]-1) do={
:set midi [:pick $notes $i];
:set midi ($midi + $transpose);
:set octa 0;
:while ( $midi < 60) do={:set midi ($midi + 12); :set octa ($octa + 1 ); };
:set midi ($midi - (12 * ($midi /12)));
:set frq [:tonum [:pick $frqtab $midi]];
:set frq ($frq>>($octa));
:set d0 2;
:if ($i >371 && $i<380) do={:set d0 1};
:if ($i =336) do={:set d0 16};
:if ($i =345) do={:set d0 16};
:if ($i =354) do={:set d0 16};
:if ($i =371) do={:set d0 8};
:if ($i =524) do={:set d0 16};
:set d ($d0 * $speed );
:set l ($d0 * ($speed - $stacc));
# :put $midi;
# :put $frq;
# :put $octa;
:beep fr=$frq le=$l;
:delay $d;
}
This is on completely another level compared to all other PC speaker music we had here - really impressed!
Oh my god… This is exactly what i was looking for as notification sound about detected server failure… MORE
Excellent!
I tested this and recorded in a video.
Can you do Africa by Toto? That would be the coolest thing ever.
wowww
I did check it out and it was really cool, but I remember hearing it somewhere, apparently on the radio performed by the singer.
nice
Please do a music from “IT Crown” https://www.youtube.com/watch?v=6bH-MdVCLWM
AnyOne can use many tools to convert mp3 to midi but how you do that to use midi in script, maybe you can create some generator for all of us 
This give us a full power of MUSIC at MikroTik
This is weird I played the same script copy paste into my hex, an RB450Gx4 and the music worked like a charm.
I ran the script on an RB4011 and the other end heard nothing???
Is there anything special about an RB4011 to get tunes playing??
RB4011 doesn’t have a beeper
Well now thats almost criminal LOL. Okay, thanks good to know so I dont waste anymore time on that!
Star Wars main theme
#
# Star Wars Main Theme
# MikroTik Music
#
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=932 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=1000ms;
:delay 1010ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1047 length=167ms;
:delay 177ms;
:beep frequency=1865 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=500ms;
:delay 510ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1047 length=167ms;
:delay 177ms;
:beep frequency=1865 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=500ms;
:delay 510ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1047 length=667ms;
:delay 677ms;
:delay 333ms;
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=698 length=167ms;
:delay 177ms;
:beep frequency=932 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=1000ms;
:delay 1010ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1047 length=167ms;
:delay 177ms;
:beep frequency=1865 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=500ms;
:delay 510ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1047 length=167ms;
:delay 177ms;
:beep frequency=1865 length=1000ms;
:delay 1010ms;
:beep frequency=1397 length=500ms;
:delay 510ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1175 length=167ms;
:delay 177ms;
:beep frequency=1245 length=167ms;
:delay 177ms;
:beep frequency=1047 length=667ms;
:delay 677ms;
I hope someone can do a some generator
Bravo !
This is really amazing ! I took great effort to find my RB951G which has a beeper to test it. Really nice !
How can you do it ?