全体の構造が見えてないので、組み込めるかどうか分かりませんが、一般的に、一定時間(例として1秒)置きに、何かするのであればメインループから、60カウント毎に、サブルーチンに飛ばす、と言う方法が有ります。
IF !(T MOD 60) THEN GOSUB@TEKI
@TEKI
HP=HP-5 (みたいにここで何かする)
RETURN
(Tはメインループ中で1ループ毎に1増やす、1ループ1/60として60カウントでおよそ1秒)
(但し、Tはそのままだと、無制限に数字が大きくなるので、適当なところでリセットするなり、加算を止める必要が有ります。)(他にも方法は、いろいろ有りますが)