{<<<< Beep >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 16.11 -- Last mod 2/1/86  }

PROCEDURE Beep;

VAR
  I : Integer;

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