home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / BEEP.SRC next >
Encoding:
Text File  |  1985-06-09  |  181 b   |  15 lines
  1. PROCEDURE BEEP;
  2.  
  3. VAR I : INTEGER;
  4.  
  5. BEGIN
  6.   FOR I := 1 TO 3 DO
  7.     BEGIN
  8.       SOUND(800);
  9.       DELAY(50);
  10.       SOUND(500);
  11.       DELAY(50)
  12.     END;
  13.   NOSOUND;
  14. END;
  15.