3
{ Program to demonstrate the Alarm function. }
7
Procedure AlarmHandler(Sig : cint);cdecl;
10
Writeln ('Got to alarm handler');
14
Writeln('Setting alarm handler');
15
fpSignal(SIGALRM,SignalHandler(@AlarmHandler));
16
Writeln ('Scheduling Alarm in 10 seconds');
20
Writeln ('Pause returned');