blob: 8843092642b68652e4c4717c06adfc7ffb45453d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Program Example59;
{ Program to demonstrate the Alarm function. }
Uses oldlinux;
Procedure AlarmHandler(Sig : longint);cdecl;
begin
Writeln ('Got to alarm handler');
end;
begin
Writeln('Setting alarm handler');
Signal(SIGALRM,@AlarmHandler);
Writeln ('Scheduling Alarm in 10 seconds');
Alarm(10);
Writeln ('Pausing');
Pause;
Writeln ('Pause returned');
end.
|
