KF> procedure Wait (WaitMs : real); var start, now : real; hour, minute,
 dr> procedure Wait (ms: LongInt);
...
procedure rtc_delay(ms:word); assembler; {cpu independant delay)
asm
  mov ax,1000
  mul ms
  mov cx,dx
  mov dx,ax
  mov ah,86h
  int 15h
end;
 
btw.. rtc stands for "realtime clock"
--- FMail 1.22
---------------