Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
23
Task/Handle-a-signal/Visual-FoxPro/handle-a-signal.visual
Normal file
23
Task/Handle-a-signal/Visual-FoxPro/handle-a-signal.visual
Normal file
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue