XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Musik: Geburtstagsständchen mit Profan spielen
PRFellow-Vorlage
Autor: Thomas Hölzer
Ein Geburtstagsständchen mit Profan spielen
Parameter: MIDI-Instrumentennummer (0..127)
Im Beispiel: Poly-Synthesizer

Proc PlayHappyBirthday

    Parameters inst%
    Case Or(Lt(inst%,0),Gt(inst%,127)): Let inst%=0
    UseCursor 2
    Music Add$(i ,Str$(inst%))
    Music o5
    Music c8 c8 d4 c4 f4 e4 p
    Music c8 c8 d4 c4 g4 f4 p
    Music c8 c8 > c4 <a4  f8 f8  e4 d4 p
    Music b-8 b-8 a4 f4 g4 f2
    UseCursor 0

EndProc

Cls
PlayHappyBirthday