BOOL _blnHistory ; variable that specifies whether the History mode is or is not activated
TIME _historyTime ; current history time, if exists
ENTRY OnHistoryTime(IN TIME _newTime)
IF _newTime\VLD THEN
IF ! _blnHistory THEN
; activating the History mode
_blnHistory := @TRUE
ENDIF
; history time
_historyTime := _newTime
ELSE ; deactivating the History mode
_blnHistory := @FALSE
ENDIF
END OnHistoryTime
BEGIN
_blnHistory := @FALSE
ENDIF
Pridať komentár