la codeteca
Compartir:

Hacer sonar un pitido

 
   function pitar;
    {emitira un pitido por el altavoz interno del ordenador}

    begin

        write(chr(7));       {Emite un pitido}

    end;