Afinar una rutina

Hola al grupo. Fijense que tengo una pequeña aplicacion que funciona muy
bien, pero tiene el pequeño problema de que al correrla no hay forma de
echarse atrás y cerrar el programa. Por fuerza hay que generar el
reporte. Como le habilito que con Escape abandone el programa, o que el
X de la esqueina-Caja de Diagolo permita cerrarlo.

*Imprime flujo de caja desde tablas Kristal Systems
*Temporales: cata2000.dbf > tca.dbf
*part2000.dbf > tpa.dbf

set safe off
set centu on
set date to DMY


clear
close all
fechai=date()
fechaf=date()
@4,6 say 'Fecha inicial' get fechai
@5,6 say 'Fecha final ' get fechaf
read

***** incorpora partidas
use tpa zap
set exclu off
appe from ..\part2000 for fecha>=fechai
delete for fecha>fechaf
set exclu on
pack
repla all abono with monto for tipo="H"
repla all monto with 0 for tipo="H"

***** arreglo catalogo
use cata2000
zap
set exclu off
appe from ..\cata2000
set exclu on
do tca.qpr
use tcax
zap
*solo lleva cuentas con saldo distinto a 0.00
appe from tca for exp_5<>0
repla all catego with "CAJAS CHICAS" for codmayor="100-01"
repla all catego with "CUENTAS CORRIENTES" for codmayor="100-02"
repla all catego with "CUENTAS DE AHORRO" for codmayor="100-03"
repla all catego with "CUENTAS EXTRANJERAS" for codmayor="100-04"
repla all catego with "DEPOSITOS A PLAZO" for codmayor="100-05"

do XRES.QPR

set print on
*???chr(15)
set print off
set cons on
set devi to printer
set printer font "Courier New", 8
repo form xres to printer
relea fechai
relea fechaf
close all
clear window

El codigo que expone el compañero parece de FoxPro DOS, por lo que no sé
si funcionará el DOEvents(), quizás sería mejor revisar el comando ON
ESCAPE (mas información de eso en la ayuda).