Резидент

[lilufonel]

Добрый день! Помогите, пожалуйста сделать программу резидентной, чтобы она сама запускалась каждые n секунд.

Uses crt,dos;
var
R: Registers;
Procedure BegStr(y: Integer;str: String;speed,col: Integer);
Var
strok : String;
a, k, sec : Integer;
counter: word;
Begin
TextColor(5);
str:=' '+str;
k:=80-length(str);
for a:=1 to k-1 do
str:=str+' ';
repeat
delete(str,1,1);
gotoxy(1,y);
delay(speed);
delline;
write(str);
strok:=copy(str,1,1);
str:=str+strok;
intr($33,r);
r.ax:=$3;
intr($33,r);
until keypressed or(r.bx<>0) ;
intr($33,r);
End;



begin
clrscr;
BegStr(10,'=) =) =)',90,14);
clrscr;
end.