' Timer
' Allan Crossman

' A demo of using the timer to record the passing of time.

disable done
textmode 0

cls
resize console 30, 60, 97, 89
set console title to ""
cls

starttime = timer

main:

time = timer - starttime

hours = int (time / 3600)
minutes = int ((time mod 3600) / 60)
seconds = int (time mod 60)

hours$ = str$(hours)
if hours < 10 then hours$ = "0" + hours$
minutes$ = str$(minutes)
if minutes < 10 then minutes$ = "0" + minutes$
seconds$ = str$(seconds)
if seconds < 10 then seconds$ = "0" + seconds$

time$ = hours$ + ":" + minutes$ + ":" + seconds$

text 10, 18, time$

if inkey$ = "q" or inkey$ = "Q" or inkey$ = chr$(27) then end
system time 20
goto main