Update a timer while wait_event is waiting?

Graphics 640,480,0,0


While Not KeyDown(KEY_ESCAPE)
Cls

Local Time:TList = SplitString(CurrentTime(), ":")

Local hours:Int = String(Time.ValueAtIndex(0)).ToInt()
Local minutes:Int = String(Time.ValueAtIndex(1)).ToInt()
Local seconds:Int = String(Time.ValueAtIndex(2)).ToInt()

DrawText(hours+" : " + minutes + " : " + seconds, 10, 10)

Flip

Wend


Function SplitString:TList(inString:String, Delim:String)
	Local tempList : TList = New TList
	Local currentChar : String = ""
	Local count : Int = 0
	Local TokenStart : Int = 0
	
	If Len(Delim)<>1 Then Return Null
	
	inString = Trim(inString)
	
	For count = 0 Until Len(inString)
		If inString[count..count+1] = delim Then
			tempList.AddLast(inString[TokenStart..Count])
			TokenStart = count + 1
		End If
	Next
	tempList.AddLast(inString[TokenStart..Count])	
	Return tempList
End Function