home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / MURUTIL.ZIP / ALERT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-01  |  805 b   |  44 lines
  1. PROGRAM ALERT;
  2.  
  3. {  This program sounds an alert tone until a key is pressed or until
  4.    fifteen minutes have passed.
  5.  
  6.    Program by Harry M. Murphy,  1 March 1986.  }
  7.  
  8. CONST
  9.   DUR = 50;
  10.   HI  = 1056;
  11.   LO  = 528;
  12.   MAX = 15;
  13.  
  14. VAR
  15.   I: INTEGER;
  16.   N: INTEGER;
  17.   M: INTEGER;
  18.  
  19. BEGIN
  20.   WRITELN('PRESS ANY KEY TO STOP THIS ALERT.');
  21.   LOWVIDEO;
  22.   M:=0;
  23.   REPEAT
  24.     N:=0;
  25.     REPEAT
  26.       FOR I:=1 TO 10 DO
  27.         BEGIN
  28.           SOUND(LO); DELAY(DUR);
  29.           SOUND(HI); DELAY(DUR)
  30.         END;
  31.       NOSOUND; DELAY(1000);
  32.       N:=N+1
  33.     UNTIL KEYPRESSED OR (N=5);
  34.     N:=0;
  35.     REPEAT
  36.       DELAY(500);
  37.       N:=N+1
  38.     UNTIL KEYPRESSED OR (N=100);
  39.     M:=M+1
  40.   UNTIL KEYPRESSED OR (M=MAX);
  41.   WRITELN('ALARM CANCELLED.');
  42.   SOUND(LO); DELAY(100); NOSOUND
  43. END.
  44.