Data commit

Task/Handle-a-signal/Visual-FoxPro/handle-a-signal.fvp

@@ -0,0 +1,23 @@
+*!* 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