------------------------SDT25TimeUpdater----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- TimeUpdater---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 5--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! process TimeUpdater)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][2t(! 6X2! d!S)[8(! )!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1-------------------------------------------------2------------------------------------------------- !%&()LinkEndpoints--------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------!--------][(!!")[6z(! 6X! d!S)[8(! Hour:=0)][(!,^!"^,)[6}(! 6X^ ! d!S)[8(! Minute:=0)][(!!")[6(! 6&! ,d!S)[8(! Delay:=60)][(!X!" X)[(! 6! d!S!)[8(! iTimeToShow(Hour,Minute))][(! !" )[6(! 6 ! Xd!S )[8(! SET(NOW+Delay,waitMinuteTimer))][(!!")[(! 6!Z)][3(! 6! d!S)[8(! WaitForTimeUpdate)] [(!L!"L)[(! 6L! d!S!)[8(! waitMinuteTimer)][(!!")[6 (! 6&! ,d!S)[8(! Minute:=Minute+1)][(!Fx!"xF)[ (! 6Xx! d!S)[8(! Minute>59)][(!* !" )[8(! 6! True!\)][6(! 6L! ,d!S)[8(! Hour:=Hour+1; Minute:=0; )][(!"'(!4!X!5!W!Y)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)[!(! 4!!3)]]]]}----------------------'!")[ (! 6L! d!S)[8(! Hour>23)][(!*rr!"r)[8(! 6! True!\)][6(! 6! d!S)[8(! Hour:=0;)][(!"r@rYY!"r@)[(! 6Y!)][6(! 6! d!S)[8(! SET(NOW+Delay,waitMinuteTimer))][(!:l!"l:)[(! 6l! d!S!)[8(! iTimeToAlarm(Hour,Minute))][(!!")[ (! 6! d!S!)[8(! iTimeToShow(Hour,Minute))][(!2f!"f)[(! 6!Z)][3(! 6! ,d!S)[8(! WaitForTimeUpdate)]]]]]]]]]]][(!*L!"()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6)][3(! 6&! ,d!S)[8(! WL)[8(! 6L! False!\)][(! 6!)][)()]]]]]][(!"!")[8(! 6q! False!\)][)()]]]]]]]]]]]]]]]]]]]]][9w(! 6d! !S)[8(!J TIMER waitMinuteTimer; DCL Hour Integer, Minute Integer, Delay DURATION;)]]]]}-----------------------------------------------------aitForTimeUpdate)][:(!^!"^)[(! 6^! d!S!)[8(! bMin10ButtonPressed)][=(!!")[6"(! 6! d!S)[8(!, RESET(waitMinuteTimer); Minute:=Minute+10;)][@(!X!"X)[ %(! 6! !S)[8(! Minute>59)][C(! R!"R )[8(! 69! True!\)][6((! 6R! d!S)[8(!" Minute:=Minute-60; Hour:=Hour+1;)][F(!!")[ +(! 6! !S)[8(! Hour>23)][I(!~!"~)[8(! 6! True!\)][6.(! 6! d!S)[8(! Hour:=0;)][L(!"-X-X!"X)[61(! 6^! d!S)[8(!! SET(NOW+Delay,waitMinuteTimer);)][(!X@Xr!"XrX@)[(! 6^r! d!S!)[8(! iTimeToAlarm(Hour,Minute))][(!XX!"XX)[(! 6^! d!S!)[8(! iTimeToShow(Hour,Minute))][(!XlX!"XXl)[(! 6X!Z)][3(! 6! ,d!S)[8(! WaitForTimeUpdate)]]]]]]]]]]][R(!2~XX!"X~)[8(! 6! False!\1()[(! l! 22!(d)[U(! l)[X(! 6)[[(! 6d! )]][ ^(! 6)][3y(! 6X! ,d!S)[8(! W"2-------------------------------------------------3-------------------------------------------------4---------------------------------------------------------------------------------------------------- ---- *--------aitForTimeUpdate)][(!^!"^)[v(! 6&^! d!S!)[8(! bMinButtonPressed)][(!!"#)[6s(! 6&! d!S)[8(!+ RESET(waitMinuteTimer); Minute:=Minute+1;)][(!X!"X)[ p(! 6&! !S)[8$(! Minute>59)][(! R!"R )[8(! 69! True!\)][6m(! 6&R! d!S)[8(!" Minute:=Minute-60; Hour:=Hour+1;)][%(!!")[ j(! 6&! !S)[8(! Hour>23)][(!~!"~)[8(! 6! &True!\)][6g(! 6&! d!S)[8(! Hour:=0;)][(!"--!")[6d(! 6! d!S)[8(!! 'SET(NOW+Delay,waitMinuteTimer);)][(!@r!"r@)[(! 6r! d!S!)[8(! iTimeToAlarm(Hour,Minute))][(!!"()[(! 6! d!S!)[8(! iTimeToShow(Hour,Minute))][(!l!"l)[(! 6!Z)])[3(! 6! ,d!S)[8(! WaitForTimeUpdate)]]]]]]]]]]][(!2~  !"~)[8(! 6?! False!\)3()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6)][3(! 6X! ,d!S)[8(! W+aitForTimeUpdate)][(!^!"^)[(! 6&^! d!S!)[8(! bHourButtonPressed)][(!!",)[6(! 6&! d!S)[8(!' RESET(waitMinuteTimer); Hour:=Hour+1;)][(!X!"X)[ (! 6&! !S)[8-(! Hour>23)][(!R!"R)[8(! 6k! True!\)][6(! 6&! d!S)[8(! Hour:=0;)][(!".!")[6(! 6! d!S)[8(!! SET(NOW+Delay,waitMinuteTimer);)][(!F!"F)[ (! 6/F! d!S!)[8(! iTimeToAlarm(Hour,Minute))][(!!")[ (! 6! d!S!)[8(! iTimeToShow(Hour0,Minute))][(!@r!"r@)[(! 6r!Z)][3(! 6r! ,d!S)[8(! WaitForTimeUpdate)]]]]]]]]]]][(!2Rk5)][(! 6!)][)1()]]]]]][O(!2 99XX!"X )[8(! 6R! False!\)][(! 6X!2)][)1()]]]]]]]]]]]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------][(! 6 !)][)d()]]]]]][(!2 9 9 !" )[8(! 6?R! False!\)][(! 6!4)][)d()]]]]]]]]]]]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ k !"R)[8(! 6?! False!\)][(! 6!)][)()]]]]]]]]]]]}-----------------------------------------------------------------