import GUI
var n2, n1, n3, n, nm, nm2, d1, d2 : int
n := 0
n2 := 0
n1 := 0
n3 := 0
nm := 0
nm2 := 0
d1 := 0
d2 := 0
proc reset
    n := 0
    n2 := 0
    n1 := 0
    n3 := 0
    nm := 0
    nm2 := 0
    d1 := 0
    d2 := 0
end reset
proc timer
    loop
        cls
        var res : int := GUI.CreateButtonFull (38, 300, 0, "Reset",
            reset, 0, '^R', true)
        put d2, d1, " : ", n, n1, " : ", nm2, nm, " : ", n2, n3
        put " d :  h :  m :  s"
        put " a :  r :  i :  e"
        put " y :  s :  n :  c"
        delay (1000)
        n3 := n3 + 1
        if n3 = 10 then
            n3 := 0
            n2 := n2 + 1
        else
        end if
        if n3 = 0 and n2 = 6 then
            n3 := 0
            n2 := 0
            nm := nm + 1
        else
        end if
        if nm = 10 then
            nm := 0
            nm2 := nm2 + 1
        else
        end if
        if nm = 0 and nm2 = 6 then
            nm := 0
            nm2 := 0
            n1 := n1 + 1
        else
        end if
        if n1 = 10 then
            n1 := 0
            n := n + 1
        else
        end if
        if n1 = 4 and n = 2 then
            n1 := 0
            n := 0
            d1 := 0
        else
        end if
        if d1 = 10 then
            d1 := 0
            d2 := d2 + 1
        else
        end if
    end loop
end timer
process btnact
    loop
        exit when GUI.ProcessEvent
    end loop
end btnact
fork btnact
timer