{->>>>Deedle<<<<-----------------------------------------------}
{                                                              }
{ Filename: DEEDLE.SRC -- Last Modified 10/20/85               }
{                                                              }
{ This routine makes a sound not unlike certain electronic     }
{ telephone ringers you hear in lawyers' offices.  The number  }
{ of "deedles" is given by the value passed in Deedles.        }
{--------------------------------------------------------------}

PROCEDURE Deedle(Deedles : Integer);

VAR I : Integer;

BEGIN
  FOR I := 1 TO Deedles DO
    BEGIN
      Sound(800); Delay(50); Sound(500); Delay(50)
    END;
  NoSound
END;