lIsRun = .T. DO WHILE lIsRun IF INKEY() = 27 <strong>EXIT</strong> ENDIF SCAN IF INKEY() = 27 lIsRun = .F. <strong>EXIT</strong> ENDIF ... my main code is here ENDSCAN ENDDO