------------------------SDT25EControl----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- Control--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------5--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! process Control)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][2w(! 6Xd! d!S)[8(! )!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1-------------------------------------------------2------------------------------------------------- 4!%&()LinkEndpoints--------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------8--------][}(!"!")[(! 6!Z)][3z(! 6R! d!S)[8(! idle)][(!"&?X?XX !"XX&)[(! 6X! d!S!)[8(! setAlarm)][@(!"XX!"X)[:(! 6!  Xd!S!)[8(!0 displayAlarm(AlarmHour,AlarmMinute) TO display)][=(!R!"R)[(! 6!Z)][37(! 6^! d! S)[8(! SettingAlarm)]]]]]]][(!"&??X!"X&)[(! 6~X! d!S!)[8(! setTime)][(! !")[(! 6! Xd!S!)[8(!- displayTime(TimeHour,TimeMinute) TO display)][(!R!"R)[(!  6!Z)][3(! 6~! d!S)[8(! SettingTime)]]]]]]]]]][9(! 62! !S)[8(! DCL alarmOnNow boolean, TimeHour integer := 0, TimeMinute integer :=0, AlarmHour integer:= 0, AlarmMinute integer:= 0, alarmIntensity integer, alarmType integer, alarmStatus integer; Timer timer_timeout; Timer timer_timeout2;)]][3(! 6! d!S)[8(! SettingTime)][((!2 L ee3r3rL!"rL L)[%(! 6L! d!S!)[8(! setTime)][.(!"rr!"r)[(! 6! Xd!S!)[8(!* StoreTime(TimeHour,TimeMinute) TO Memory)][(!2F__!"F)[+(! 6! Xd!S!)[8(!- displayTime(TimeHour,TimeMinute) TO display)][4(!:!":)[6(! 6:! d!S)[8(! SET(NOW +60, timer_timeout))][(!!")[(! 6!Z)][31(! 6! d!S)[8(! idle)]]]]]]]]]]][(!" L eXeX!"X L)[(! 6! ,d!S!)[8(! increaseHour)][(!XFXx!"XxXF)[ (! 6x! ,d!S)[8(! TimeHour = 23)][(!,,!",)[8(! 6! true!\)][6(! 6! d!S)[8(! TimeHour := 0)][(!",r,!",r)[(! 6!)][(! 6X! Xd!S!)[8(!- displayTime(TimeHour,TimeMinute) TO display)][(!:!":)[(! 6!Z)][3(! 6 ! d!S)[8(! SettingTime)]]]]]]][(!*!")[8(! 6 ! false!\)][6(! 6! d!S)[8(! TimeHour := TimeHour +1)][(!"r!"r)[(! 6!)][)()]]]]]]]][(!" L ee!" L)[(! 6! ,d!S!)[8(! increaseMinute)][(!"F__x!"xF)[ (! 6Lx! ,d!S)[8(! TimeMinute = 59)][(!L!"L)[8(! 6! true!\)][6(! 6! d!S)[8(! TimeMinute := 0)][(!"r!"r)[)()]]]][ (!*xxx!"xx)[8(! 6! false!\)][6 (! 6! d!S)[8(! TimeMinute := TimeMinute +1)]["(!"xrx!"xr)[(! 6!)][)()]]]]]]]]]]]}6!)][)()]]]]]]]]]]]}(! TimeMinute()[(! l! 22!(d)[O(! l)[R(! 6)[U(! 6d! )]][ X(! 6)][3(! 6! d!S)[8(! SettingAlarm)][(!"RR^!"^R)[(! 6^^! ,d!S!)[8(! increaseHour)][(!"!")[ v(! 6,! ,d!S)[8(! AlarmHour = 23)][(!,&&!",&)[8(! 6?! true!\)][6s (! 62! ,d!S)[8(! AlarmHour := 0)][(!"  R!" R)[(! 6X!)][p(! 6R! Xd!!S!)[8(!0 displayAlarm(AlarmHour,AlarmMinute) TO display)][(!  !"  )[(! 6 !Z)][3m(! 6! d!S)[8"(! SettingAlarm)]]]]]]][(!*X&q&qqXqX!"XX&)[8(! 6?! false!\)][6y(! 6! d!S)[8(! Alar#mHour := AlarmHour +1)][(!"XX  R!" RX)[(! 6 !)][)p()]]]]]]]][(!"RR~~^!"~^$R)[|(! 6^! ,d!S!)[8(! increaseMinute)][(!~~!"~~)[ g(! 6! ,d!S)[8(! AlarmM%inute = 59)][(!*&&qq!"&)[8(! 6?! true!\)][6d(! 6R! ,d!S)[8(! AlarmMinute := 0)][&(!"  R!" R)[)p()]]]][(!&x&x!"x&)[8(! 6?! false!\)][6j(! 6'! d!S)[8(! AlarmMinute := AlarmMinute +1)][(!"xx  R!" Rx)[(! 6!)][)p()]]]]]]]][(!"R(Rrr^!"r^R)[a(! 6^! d!S!)[8(! setAlarm)][(!"rr99R!"Rr)[ )(! 6~R! X!S!)[8(!- storeAlarm(AlarmHour,AlarmMinute) TO Memory)][(!!")[(! 6!Z)][3[(! 6F*! d!S)[8(! idle)]]]]]]]][3(! 6! d!S)[8(! idle)][(!RFRx!"RxRF)[(! 6x! ,d!S+!)[8(! timer_timeout)][(!RR!"RR)[ (! 6! ,d!S)[8(! TimeMinute = 59)][(!*@@,!"@)[8(! 63_! false!\)][6(! 6! d!S)[8(! TimeMinute := TimeMinute+1)][(!"''@!"-@)[6(! 6~@! ,d!S)[8(! SET(NOW +60, timer_timeout))][(!"!")[(! 6! . Xd!S!)[8(!* StoreTime(TimeHour,TimeMinute) TO Memory)][(!:l!"l:)[(! 6l! Xd!S!)[8(!- displayTime/(TimeHour,TimeMinute) TO display)][ (!2''!")[(! 6!Z)][3(! 6@! d!S)[8(! idle)]0]]]]]]]]]][(!*@&@&!"@)[8(! 6?! true!\)][6(! 6,! d!S)[8(! TimeMinute:= 0;)][1(!r!"r)[ (! 6! ,d!S)[8(! TimeHour = 23)][(!:!":)[8(! 62! true!\)][6(! 6d:! d!S)[8(! TimeHour :=0)][(!BkkLL''@!"@)[(! 63!)][)()]]]][(!&:!":&)[8(! 6! false!\)][6(! 6:! d!S)[8(! TimeHour := TimeHo6(!4!X!5!W!Y)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)]]]}------------------------------------------------------------------ := TimeMinute +1)]["(!"xrx!"xr)[(! 6!)][)()]]]]]]]]]]]}---------------------------------------------------------------------------------ur +1)][(!BkkLL''@!"@)[(! 6'!)][)()]]]]]]]]]]]]]]]}]]]]]]]]]]]]]]]}-----------------------------------------()[(! l! 22!(d)[!(! l)[$(! 6)['(! 6d! )]][ *(! 6)][3-(! 6 d! d!S)[8(! i92-------------------------------------------------3------------------------------------------------------------------------------------------------------------------------------------------------------- --------7----------------dle)][3(!!")[0(! 6&! d!S!)[8(!# alarmOn(alarmIntensity,alarmType))][9(!^!":^)[6B(! 6! ,d!S)[8(! alarmOnNow := true)][E(!&!"&)[6(! 6&&! d!S!)[8(!5; displayAlarmOn(alarmIntensity,alarmType) TO display)][?(!!")[(! 6!Z)][3<(! 6 ! d!S)[8(! idle)]]]]]]]]]][3<H(! 6 ! d!S)[8(! idle)][T(!"!")[Q(! 6! Xd!S!)[8(! alarmSnoozin=g(alarmStatus))][Z(!~!"~)[ W(! 6! d!S)[8(! alarmOnNow = true)][`(!RRF!"RF>)[8(! 6k! true!\)][6](! 6F! ,d!S)[8(! Set(NOW + 300, timer_timeout2))][l(!RR!"RR)[6o(! 6?! d!S)[8(!& alarmStatus:=0; alarmOnNow := false;)][r(!R@Rr!"RrR@)[i(! 6Xr! d!S!)[8(!! displayAlarmStatu@s(alarmStatus))][~(!RR!"RR)[(! 6R!Z)][3{(! 6! d!S)[8(! idle)]]]]]]]]][x(!A!")[8(! 6}! false!\)][(! 6!Z)][3u(! 62! d!S)[8(! idle)]]]]]]][(!"xBx!"x)[(! 6! d!S!)[8(! timer_timeout2)][(!x~x!"xx~)[6(! 6! ,Cd!S)[8(! alarmStatus := 1)][(!xxx!"xxx)[6(! 6x! ,d!S)[8(! alarmOnNow := true)][(!xx!"Dxx)[(! 6~! d!S!)[8(!! displayAlarmStatus(alarmStatus))][(!xrx!"xxr)[(! 6x!EZ)][3(! 6! d!S)[8(! idle)]]]]]]]]]]]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------_