Es wird zuerst die Music-Variante gespielt und dann, im Vergleich dazu, die Play-Variante.
'Auch, wenn es komplizierter Play statt Music zu verwenden,
'das Ergebnis klingt auch wesentlich besser.
'Gespielt wird "Leise ein Windhauch", ein altes slowakisches Wiegenlied.
'Hier der deutsche Text:
'1. Leise ein Windhauch die Blätter wiegt.
' Lauscht, ob das Kind schon in Träumen liegt.
' |: Still und sacht kommt die Nacht,
' Will, dass kein Müder mehr sorgt und wacht. :|
'2. Fernher tönt deutlich der Turmuhr Schlag.
' Schlafe, mein Kind, bald ist wieder Tag.
' |: Sternenschein hüllt dich ein.
' Schlafe, denn früh willst du munter sein. :|
'3. Gehst du zur Schule im Morgenlicht,
' Schau allen fröhlich ins Angesicht.
' |: Ferienzeit ist nicht weit,
' hält so viel Schönes für dich bereit. :|
'Definition der einzelnen Töne - so kann man leichter
'die Übersicht bewahren
Def %C0 25
Def %D0 27
Def %E0 29
Def %F0 30
Def %G0 32
Def %A0 34
Def %H0 36
Def %C1 37
Def %Cis1 38
Def %D1 39
Def %E1 41
Def %F1 42
Def %G1 44
Def %A1 46
Def %B1 47
Def %H1 48
Def %C2 49
Def %D2 51
Def %E2 53
Def %F2 54
Def %G2 56
Def %A2 58
Def %B2 59
Def %C3 61
Def %P 325'Dauer einer Achtelnote
Def %Instrument 1'Nummer des Instruments; Standard-Klavier (Acustic Grand Piano) = 0
cls
'Hier ist die Music-Variante; nur ein Kanal kann abgespielt werden.
Music "I" + str$(%Instrument) + " O4 A B-8 A8 G A8 G8 F E D P A B-8 A8 G A8 G8 F E D P F G A2 > C < B- A2 A B-8 A8 G A8 G8 F E D P "
'Alle benötigten Kanäle werden mit dem gewählten Instrument belegt
Play %Instrument;%Instrument;%Instrument;0;%Instrument;%Instrument;%Instrument;%Instrument; \
%Instrument;%Instrument;%Instrument;%Instrument ,-1,0
'Nun wird das Lied mit Begleitung gespielt.
'Takt 1
Play %A2; %D0; 0;0; 0 ,0,0 : Sleep %P
Play 0;-%D0; %D1;0; 0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 2
Play -%A2; %G2;-%A1;0; %G0 ,0,0 : Sleep %P
Play 0; 0; %D1;0;-%G0 ,0,0 : Sleep %P
Play %A2;-%G2;-%D1;0; %G1 ,0,0 : Sleep %P
Play -%A2; %G2; %B1;0;-%G1 ,0,0 : Sleep %P
'Takt 3
Play %F2;-%G2;-%B1;0; %D0 ,0,0 : Sleep %P
Play -%F2; %D1; 0;0;-%D0 ,0,0 : Sleep %P
Play %E2;-%D1; %A0;0; 0 ,0,0 : Sleep %P
Play -%E2; %Cis1;-%A0;0; 0 ,0,0 : Sleep %P
'Takt 4
Play %D2;-%Cis1; %D0;0; 0 ,0,0 : Sleep %P
Play 0; %D1;-%D0;0; 0 ,0,0 : Sleep %P
Play -%D2;-%D1; %F1;0; 0 ,0,0 : Sleep %P
Play 0; 0;-%F1;0; %A1 ,0,0 : Sleep %P
'Takt 5
Play %A2; %D0; 0;0;-%A1 ,0,0 : Sleep %P
Play 0;-%D0; %D1;0; 0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 6
Play -%A2; %G2;-%A1;0; %G0 ,0,0 : Sleep %P
Play 0; 0; %D1;0;-%G0 ,0,0 : Sleep %P
Play %A2;-%G2;-%D1;0; %G1 ,0,0 : Sleep %P
Play -%A2; %G2; %B1;0;-%G1 ,0,0 : Sleep %P
'Takt 7
Play %F2;-%G2;-%B1;0; %D0 ,0,0 : Sleep %P
Play -%F2; %D1; 0;0;-%D0 ,0,0 : Sleep %P
Play %E2;-%D1; %A0;0; 0 ,0,0 : Sleep %P
Play -%E2; %Cis1;-%A0;0; 0 ,0,0 : Sleep %P
'Takt 8
Play %D2;-%Cis1; %D0;0; 0 ,0,0 : Sleep %P
Play 0; %D1;-%D0;0; 0 ,0,0 : Sleep %P
Play -%D2;-%D1; %F1;0; 0 ,0,0 : Sleep %P
Play 0; 0;-%F1;0; %A1 ,0,0 : Sleep %P
'Takt 9
Play %F2; %D0; %D1;0;-%A1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2;-%D0;-%D1;0; %G2;-%F1;-%A1; %C0; %C1; %E1; %G1 ,0,0 : Sleep 2 * %P
Play %A2; %F0; %C1;0;-%G2; %F1; %A1;-%C0;-%C1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 10
Play -%A2;-%F0;-%C1;0; %C3;-%F1;-%A1; %D0; %D1; %F1; %C3 ,0,0 : Sleep 2 * %P
Play %B2; %C0; %C1;0;-%C3; %E1; %G1;-%D0;-%D1;-%F1;-%C3 ,0,0 : Sleep 2 * %P
Play -%B2;-%C0;-%C1;0; %A2;-%E1;-%G1; %F0; %C1; %F1; %A1 ,0,0 : Sleep 4 * %P
'Takt 11
Play %A2; %D0; 0;0;-%A2; 0; 0;-%F0;-%C1;-%F1;-%A1 ,0,0 : Sleep %P
Play 0;-%D0; %D1;0; 0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 12
Play -%A2; %G2;-%A1;0; %C0 ,0,0 : Sleep %P
Play 0; 0; %C1;0;-%C0 ,0,0 : Sleep %P
Play %A2;-%G2;-%C1;0; %E1 ,0,0 : Sleep %P
Play -%A2; %G2; %G1;0;-%E1 ,0,0 : Sleep %P
'Takt 13
Play %F2;-%G2;-%G1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2; %E2; %A0;0;-%D0;-%D1;-%F1;-%A1; %Cis1; %E1; %G1 ,0,0 : Sleep 2 * %P
'Takt 14
Play %D2;-%E2;-%A0;0; %D0; %D1; %F1; %A1;-%Cis1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 15
Play -%D2; %F2; %D1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play %G2;-%F2;-%D1;0;-%D0;-%D1;-%F1;-%A1; %C0; %C1; %E1; %G1 ,0,0 : Sleep 2 * %P
Play -%G2; %A2; %F0;0; %C1; %F1; %A1; 0;-%C0;-%C1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 16
Play %C3;-%A2;-%F0;0;-%C1;-%F1;-%A1; %D0; %D1; %F1; %C3 ,0,0 : Sleep 2 * %P
Play -%C3; %B2; %C0;0; %C1; %E1; %G1;-%D0;-%D1;-%F1;-%C3 ,0,0 : Sleep 2 * %P
Play %A2;-%B2;-%C0;0;-%C1;-%E1;-%G1; %F0; %C1; %F1; %A1 ,0,0 : Sleep 4 * %P
'Takt 17
Play %A2; %D0; 0;0; 0; 0; 0;-%F0;-%C1;-%F1;-%A1 ,0,0 : Sleep %P
Play 0;-%D0; %D1;0; 0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 18
Play -%A2; %G2;-%A1;0; %C0 ,0,0 : Sleep %P
Play 0; 0; %C1;0;-%C0 ,0,0 : Sleep %P
Play %A2;-%G2;-%C1;0; %E1 ,0,0 : Sleep %P
Play -%A2; %G2; %G1;0;-%E1 ,0,0 : Sleep %P
'Takt 19
Play %F2;-%G2;-%G1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2; %E2; %A0;0;-%D0;-%D1;-%F1;-%A1; %Cis1; %E1; %G1 ,0,0 : Sleep 2 * %P
'Takt 20
Play %D2;-%E2;-%A0;0; %D0; %D1; %F1; %A1;-%Cis1;-%E1;-%G1 ,0,0 : Sleep 8 * %P
Play -%D2; 0; 0;0;-%D0;-%D1;-%F1;-%A1 ,0,0
Sleep 500
end
