Handle a signal: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring, marked p2js incompatible) |
(Handle a signal en FreeBASIC) |
||
| Line 571: | Line 571: | ||
main bye</lang> |
main bye</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>Dim Shared As Double start |
|||
start = Timer |
|||
Dim As Integer n = 1 |
|||
Dim As String s |
|||
Do |
|||
Print n |
|||
s = Inkey |
|||
If s = Chr(255) + "k" Then |
|||
Dim As Double elapsed = Timer- start + n * 0.5 |
|||
Print Using "Program has run for & seconds."; elapsed |
|||
End |
|||
Else |
|||
Sleep 500, 1 |
|||
n += 1 |
|||
End If |
|||
Loop |
|||
</lang> |
|||
=={{header|Gambas}}== |
=={{header|Gambas}}== |
||