to pause (loop) until any key is pressed

to make a pause in FoxBase programming would look something like this:   x= 0 do until keypressed    x = x + 1 enddo   this loop will disengage when any key is pressed   HOW DO YOU WRITE THI...