Handle a signal: Difference between revisions

no edit summary
(→‎{{header|Perl}}: sample output)
No edit summary
Line 203:
threadDelay 500000 {- µs -}
loop (i + 1)</lang>
 
=={{header|HicEst}}==
Subroutines "F2" to "F9" can be called any time by the F2...F9 keys or by a mouse click on the toolbar buttons "F2" to "F9". These buttons appear as soon as a SUBROUTINE "F2" to "F9" statement is compiled:
<lang HicEst>seconds = TIME()
 
DO i = 1, 1E100 ! "forever"
SYSTEM(WAIT = 500) ! milli seconds
WRITE(Name) i
ENDDO
 
SUBROUTINE F2 ! call by either the F2 key, or by a toolbar-F2 click
seconds = TIME() - seconds
WRITE(Messagebox, Name) seconds
ALARM(999) ! quit immediately
END</lang>
 
=={{header|OCaml}}==
Anonymous user