home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / games / warrisk / beep.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-10-18  |  174 b   |  13 lines
  1. PROCEDURE beep(n:integer);
  2. { emits n beep sounds }
  3.  
  4. var i : integer;
  5. BEGIN
  6.   for i := 1 to n do
  7.   begin
  8.     sound(440);
  9.     delay(250);
  10.     nosound;
  11.   end;
  12. END;
  13.