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