>---------------------------------------------- >USE J:\DATA\ORDLOG >GO BOTT >lDone = .F. >DO WHILE ! lDone > ? RECNO(),compname > SKIP > IF EOF() > nReccount = RECCOUNT() > GO BOTT > nCount = 0 > lBailOut = .F. > DO WHILE nReccount = RECCOUNT() AND ! lBailOut > nCount = nCount + 1 > WAIT WINDOW "IDLE... " + ALLTRIM( STR( nCount ) ) NOWAIT NOCLEAR > DOEVENTS > INKEY(1) > IF LASTKEY() = 27 > lBailOut = .T. > ENDIF > ENDDO > SELECT ORDLOG > SKIP > ENDIF > IF LASTKEY() = 27 > lDone = .T. > ENDIF >ENDDO >Larry,