23 lines
447 B
Text
23 lines
447 B
Text
*!* In VFP, Ctrl+C is normally used to copy text to the clipboard.
|
|
*!* Esc is used to stop execution.
|
|
CLEAR
|
|
SET ESCAPE ON
|
|
ON ESCAPE DO StopLoop
|
|
CLEAR DLLS
|
|
DECLARE Sleep IN WIN32API INTEGER nMilliSeconds
|
|
lLoop = .T.
|
|
n = 0
|
|
? "Press Esc to Cancel..."
|
|
t1 = INT(SECONDS())
|
|
DO WHILE lLoop
|
|
n = n + 1
|
|
? n
|
|
Sleep(500)
|
|
ENDDO
|
|
? "Elapsed time:", TRANSFORM(INT(SECONDS()) - t1) + " secs."
|
|
CLEAR DLLS
|
|
RETURN TO MASTER
|
|
|
|
PROCEDURE StopLoop
|
|
lLoop = .F.
|
|
ENDPROC
|