Program Click1;
Uses Dos,FolioCrt;

Begin
     Clrscr;
     Writeln(' Jetzt kommt der T O N  ! ! ! ');
     Writeln;
     Writeln(' Ende mit jeder beliebigen Taste...');
     Repeat
           Soundgeneration(0);
           Delay(500);
     until keypressed;
End.