Handle a signal: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: sample output) |
No edit summary |
||
Line 203: | Line 203: | ||
threadDelay 500000 {- µs -} |
threadDelay 500000 {- µs -} |
||
loop (i + 1)</lang> |
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}}== |
=={{header|OCaml}}== |