Terrapin Resources

Beethoven’s “Für Elise”

This Logo file plays Beethoven’s “Für Elise” on the piano.

If you are getting tired, press the Stop sign to end the tune.

FuerElise.lgo

TO SET.TEMPO :TEMPO
    PLAY (LIST WORD "T :TEMPO)
END

TO PLAY.RIT :LIST :TEMPO :DIM
    MAKE "T :TEMPO
    WHILE [NOT EMPTY? :LIST] [SET.TEMPO :T PLAY (LIST FIRST :LIST) MAKE "LIST BF :LIST MAKE "T :T - :DIM]
    SET.TEMPO :TEMPO
END

TO THEME
    PLAY [O4 E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O3 E.]
    PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B A O1 E A.]
    PLAY [O3 B O4 C D E O1 G O2 C O3 G O4 F E D O1 G B O3 F O4 E D C O1 E A O3 E]
    PLAY.RIT [O4 D C O3 B O1 E O2 E O3 E O4 E O3 E O4 E E O5 E O4 D# E D# E D# E] :TEMPO 1
    PLAY [O4 D# E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O3 E.]
    PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B A.]
END

TO INTERLUDE.1
    PLAY [O1 E A S5]
    PLAY [O3 E F G O3 [F A O4 4C] F. L32 E L8 E D L16 Bb. 32A A G F E D C O3 8Bb 8A L32 A G A BB]
    PLAY [L16 O4 C O1 G O2 C O1 G O4 D D# E O1 G O2 C O4 E F O3 A O4 C O2 E O1 G O2 E O4 D. O3 32B]
    REPEAT 2 [PLAY [L32 O4 C G O3 G O4 G O3 A O4 G O3 B O4 G C G D G E G O5 C O4 B A G F E D G F D]]
    PLAY [E F E D# E O3 B O4 E D# E O3 B O4 E D# L8 E.]
    PLAY.RIT [L16 O3 B O4 E D# L8 E. L16 O3 B O4 E D# E D# E D# E D#] :TEMPO 1
END

TO CRESCENDO
    PLAY [L16 A S10 O1 A A A A A]
    PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
    PLAY [[O3 F A O4 D] O1 A A A O4 E F]
    PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
    PLAY [[O3 A O4 C E] O1 A A A A A]
    PLAY [[O3 F O4 D] O1 D D D O4 C O3 B]
    PLAY [[C F# A] O1 D# D# D# O3 [C A] O1 D#]
    PLAY [[O3 C A] O1 E [O3 E O4 C] O1 E [O3 D B] O1 G#]
    PLAY [[O3 C A] O1 A A A A A]
    PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
    PLAY [[O3 F A O4 D] O1 A A A O4 E F]
    PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
    PLAY [[O4 D F] O1 Bb Bb Bb Bb Bb]
    PLAY [[O3 G O4 Eb] O1 Bb Bb Bb O4 D C]
    PLAY [[O3 D F Bb] O1 Bb Bb Bb [O3 D F A] O1 Bb]
    PLAY [[O3 D F G#] O1 B B B [O3 D F G#] O1 B]
    PLAY [[O2 C O3 C E 4A] 8P]
    PLAY [[O2 E G O3 D E 8B] 4P]
END

TO INTERLUDE.2
    PLAY [S0 O2 A O3 C E A O4 C E D C O3 B A O4 C E A O5 C E D C O4 B]
    PLAY [A O5 C E A O6 C E D C O5 B Bb A G# G F# F E D# D]
    PLAY.RIT [C# C O4 B Bb A G# G F# F] :TEMPO 1
END

TO CODA
    PLAY [[O1 A C E O2 A C E O3 2'1A]]
END

TO ELISE
    MAKE "TEMPO 70
    PLAY [R] SET.TEMPO :TEMPO
    PLAY [L16 S0 REV10]
    PLAY [O4 E D#]
    THEME
    INTERLUDE.1
    THEME
    CRESCENDO
    INTERLUDE.2
    THEME
    CODA
END

MAKE "TEMPO 60
MAKE "T 38

CT
PRINT `The procedures in this file will play "Für Elise" by Beethoven.`
PRINT `To hear it, type ELISE.`
Procedure ELISE
Description Plays Beethoven's Für Elise
Level Intermediate
Tags Music, Instruments, Play
Beethovens "Für Elise"
Privacy Statement