local llHalt, lcOnEscape, lcSetEscape, lcSetTalk lcSetTalk=set('talk') llHalt=.f. lcSetEscape=set('escape') lcOnEscape=on('escape') set escape on on escape llHalt=.t. && This would allow to stop SQL by pressing ESC set talk on && to show progressbar set talk window select *.... if lcSetTalk="OFF" set talk off endif if lcSetEscape="OFF" set escape off endif on escape &lcOldEscapeBTW, the idea of termination SQL by pressing ESC belongs to Mike Asherman (if, of course, he didn't inherit it :))