Работа с прерываниями.

[triest]

Нужно выполнять действие с определенным интервалом. Где ошибка? С прерываниями знаком .Язык Pascal.

uses dos   ;
 ihtr(c,r);
var
r:register  ;
i:integer    ;
oldvec:procedure;

procedure newvect; itterupt;
begin
i:=i+1;
if i>600 then begin
 i:=0   ;
 intr($60,r);
 oldvect
 end;
inline($9c);
oldvect
end;

Begin
setintvec ($60,orq);
getintvec($1c,oldvect);
setintvec($1C,newvect);
keep(0);
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.