program Szamitogeplassito;

{$M $800,0,0 }
uses Crt, Dos;
var
KbdIntVec : Procedure;
WaitPeriod : Word;
ErrorPos : integer;

{$F+}
procedure DelayRoutine; interrupt;
begin
asm cli end;
delay(WaitPeriod);
asm sti end;
asm PUSHF end;
KbdIntVec;
end;
{$F-}
begin
If ParamCount = 1 Then
Begin
Val (ParamStr(1),WaitPeriod,ErrorPos);
If ErrorPos = 0 Then
Begin
GetIntVec($8,@KbdIntVec);
SetIntVec($8,Addr(DelayRoutine));
Writeln;
Writeln('DELAY installed !');
Writeln;
Keep(0);
End;
End
Else
Begin
Writeln;
Writeln('DELAY <Number of millisecs to slow computer by> ');
Writeln;
End;
end.