Handle a signal: Difference between revisions
Handle a signal en FreeBASIC
m (→{{header|Phix}}: added syntax colouring, marked p2js incompatible) |
(Handle a signal en FreeBASIC) |
||
Line 571:
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}}==
|