{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program Exemple11 ;

Uses Crt ;

Var i, f : Integer ;

BEGIN
     For i := 1 To 20 Do
          Begin
               For f := 500 To 1000 Do Sound ( f ) ;
               Delay (10) ;
          End ;
     NoSound ;
END.