17 lines
330 B
Text
17 lines
330 B
Text
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
|