home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix CD 2.0
/
Phoenix_CD.cdr
/
15a
/
murutil.zip
/
ALERT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-03-01
|
805b
|
44 lines
PROGRAM ALERT;
{ This program sounds an alert tone until a key is pressed or until
fifteen minutes have passed.
Program by Harry M. Murphy, 1 March 1986. }
CONST
DUR = 50;
HI = 1056;
LO = 528;
MAX = 15;
VAR
I: INTEGER;
N: INTEGER;
M: INTEGER;
BEGIN
WRITELN('PRESS ANY KEY TO STOP THIS ALERT.');
LOWVIDEO;
M:=0;
REPEAT
N:=0;
REPEAT
FOR I:=1 TO 10 DO
BEGIN
SOUND(LO); DELAY(DUR);
SOUND(HI); DELAY(DUR)
END;
NOSOUND; DELAY(1000);
N:=N+1
UNTIL KEYPRESSED OR (N=5);
N:=0;
REPEAT
DELAY(500);
N:=N+1
UNTIL KEYPRESSED OR (N=100);
M:=M+1
UNTIL KEYPRESSED OR (M=MAX);
WRITELN('ALARM CANCELLED.');
SOUND(LO); DELAY(100); NOSOUND
END.