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