program musik;
uses crt;


PROCEDURE Testen;
          BEGIN
      Sound(500); Delay(1000); NoSound;
      Sound(520); Delay(1000); NoSound;
      Sound(540); Delay(1000); NoSound;
      Sound(560); Delay(1000); NoSound;
      Sound(580); Delay(1000); NoSound;
      Sound(600); Delay(1000); NoSound;
      Sound(620); Delay(1000); NoSound;
      END;

PROCEDURE Mats;
          BEGIN
               nosound;  {Delay 400 pro Viertel }           write('1. Mats,');
               sound(440);delay(0400);nosound;              write(' Mats,');
               sound(368);delay(0400);nosound;              write(' Mats,');writeln;
               sound(295);delay(0400);nosound;delay(0400);  write(' Mats,');
               sound(295);delay(0200);nosound;              write(' wo,');
               sound(368);delay(0200);nosound;              write(' bist');
               sound(440);delay(0200);nosound;              write(' du');
               sound(368);delay(0200);nosound;              write(' nur.');writeln;
               sound(392);delay(0700);nosound;delay(100);   write(' Mats,');
               sound(392);delay(0400);nosound;              write(' Mats,');
               sound(329);delay(0400);nosound;              write(' Mats,');writeln;
               sound(279);delay(0400);nosound;delay(0200);  write(' wir');
               sound(279);delay(0200);nosound;              write(' fin');
               sound(279);delay(0200);nosound;              write('den');
               sound(329);delay(0200);nosound;              write(' kei');
               sound(392);delay(0200);nosound;              write('ne');
               sound(329);delay(0200);nosound;              write(' Spur.');
               sound(368);delay(0700);nosound;delay(0100);
               {jetzt: 3. + 4. Zeile }
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(368);delay(0200);nosound;
               sound(392);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(368);delay(0400);nosound;
               sound(392);delay(0400);nosound;
               sound(440);delay(0700);nosound;delay(0100);
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(368);delay(0200);nosound;
               sound(392);delay(0200);nosound;
               sound(329);delay(0200);nosound;
               sound(368);delay(0400);nosound;
               sound(392);delay(0400);nosound;
               sound(440);delay(0700);nosound;delay(0100);
          end;

PROCEDURE Alt_wie_ein_Baum;
          BEGIN
               nosound;
               write('Alt');    sound(263);delay(0500);nosound;
               write(' wie');   sound(263);delay(0250);nosound;
               write(' ein');   sound(329);delay(0250);nosound;
               write(' Baum');  sound(392);delay(0500);nosound;delay(500);
               write(' m�ch');  sound(440);delay(0500);nosound;
               write('te');     sound(440);delay(0250);nosound;
               write(' ich');   sound(496);delay(0250);nosound;
               write(' wer');   sound(526);delay(0500);nosound;
               write('den,');   sound(496);delay(0250);nosound;
               write(' ge');    sound(440);delay(0250);nosound;
               write('nau,');   sound(392);delay(0500);nosound;
               write(' wie');   sound(392);delay(0350);nosound;delay(25);
               write(' der');   sound(392);delay(0125);nosound;
               write(' Dich');  sound(440);delay(0250);nosound;
               write('ter');    sound(392);delay(0250);nosound;
               write(' es');    sound(348);delay(0250);nosound;
               write(' be');    sound(329);delay(0250);nosound;
               writeln('schreibt.');sound(295);delay(1000);nosound;delay(1000);
               write('Alt');    sound(263);delay(0500);nosound;
               write(' wie');   sound(263);delay(0250);nosound;
               write(' ein');   sound(329);delay(0250);nosound;
               write(' Baum,'); sound(392);delay(0500);nosound;delay(500);
               write(' mit');   sound(440);delay(0500);nosound;
               write(' ei');    sound(440);delay(0125);nosound;
               write('ner');    sound(496);delay(0325);nosound;
               write(' Kro');   sound(348);delay(0500);nosound;
               write('ne,');    sound(392);delay(0125);nosound;
               write(' die');   sound(440);delay(0325);nosound;
               write(' weit,'); sound(263);delay(1000);nosound;
               write(' weit,'); sound(295);delay(1000);nosound;
               write(' weit,'); sound(329);delay(1000);nosound;
               write(' weit,'); sound(348);delay(0500);nosound;
               write(' die');   sound(392);delay(0250);nosound;writeln;
               write('       ');sound(440);delay(0250);nosound;
               write(' weit');  sound(392);delay(0500);nosound;
               write(' �');     sound(348);delay(0250);nosound;
               write('ber');    sound(329);delay(0250);nosound;
               write(' Fel');   sound(295);delay(0500);nosound;
               write('der');    sound(263);delay(0250);nosound;
               write('');       sound(248);delay(0250);nosound;
               write(' zeigt.'); sound(263);delay(1000);nosound;delay(1000);


          END;

BEGIN
textbackground(red);textcolor(yellow);clrscr;writeln;
{Mats;}
Alt_wie_ein_Baum;
END.
{    526  496  467  440  392  368  348  329  311  295  279  263
      C    H   A #   A    G   F #   F    E   D #   D   C #   C
}

{
496 - H
467 - A #
440 - A
392 - G
368 - F #
348 - F
329 - E
311 - D #
295 - D
279 - C #
263 - C