PROCEDURE busy_test
  LOCAL i%,time&
  @progress_open(TRUE)
  FOR i%=0 TO 25
    EXIT IF @progress_update(MUL(i%,4))
    PAUSE 10 // Rechne was
  NEXT i%
  @progress_close
RETURN