% Timer
% Created by: John Baker
% Created on: November 5th, 2003
% This program is a timer that counts seconds, minutes, and hours

var seconds, minutes, hours : int := 0

    loop

        put "Time " : 5, hours : 2, ":", minutes : 2, ":", seconds : 2

        delay (1000)

        seconds := seconds + 1

        if seconds = 60 then

            seconds := 0

            minutes := minutes + 1

        elsif minutes = 60 then

            minutes := 0

            hours := hours + 1

        end if

        cls

    end loop

var startTime:int:=Time.Sec
var endTime:int:= 120 %put time in secondes to run
var curent:int

loop
    curent := Time.Sec  - startTime
   
    exit when curent >= endTime
end loop