Carl,

Actually INKEY() will also allow the use to exit the process with a keystroke, so this should work for you;

PRIVATE llGoOn

* Do some code

* Then 

loTimer = CreateObject("MyTimer")
llGonOn = .F.
loTimer.Interval = 30000
loTimer.Enabled = .T.
DO WHILE NOT llGoOn
   INKEY(.5)
ENDDO
RELEASE loTimer
* Do your other code

RETURN

DEFINE CLASS MyTimer AS Timer
PROCEDURE Timer
   llGoOn = .T.
ENDPROC
ENDDEFINE