sleepTime = 50
for k=1 to 10000/m.sleepTime && 200 x 50ms sleep = 10s
   doevents
   Sleep(m.sleepTime)
endfor
* or
timeEnd = DATETIME()+10
DO WHILE DATETIME()<m.timeEnd
  doevents
  Sleep(100)
ENDDO