I think that this is what you want. I've only tested the hundredths, seconds and minutes. You'll need to test the hours
global StartTime as integer
sync on
sync rate 0
StartTime = timer()
do
cls
print GameTime()
sync
loop
function GameTime()
local ElapsedTime as integer
local TextTime as string
ElapsedTime=timer() - StartTime
` Hundredths
ElapsedTime = ElapsedTime / 10
TextTime=PadNumber( ElapsedTime mod 100 , 2)
` Seconds
ElapsedTime = ElapsedTime / 100
TextTime=PadNumber( ElapsedTime mod 60, 2) + ":" + TextTime
` Minutes
ElapsedTime = ElapsedTime / 60
TextTime=PadNumber( ElapsedTime mod 60, 2) + ":" + TextTime
` Hours
ElapsedTime = ElapsedTime / 60
TextTime=PadNumber( ElapsedTime mod 60, 2) + ":" + TextTime
endfunction TextTime
function PadNumber(n as integer, Size as integer)
local PaddedNumber as string
PaddedNumber=str$(n)
while len(PaddedNumber) < Size
PaddedNumber = "0" + PaddedNumber
endwhile
endfunction PaddedNumber