PROCEDURE busy_test
  LOCAL i%,time&
  LET time&=@busy_open(TRUE) // TRUE = Abbruch-Button
  FOR i%=0 TO 25             // FALSE = Kein  "
    EXIT IF @busy_update(time&) // Abbr.-But. gedrckt?
    PAUSE 10 // Rechne was
  NEXT i%
  @busy_close
RETURN