ENTRY OnHistoryTime(IN TIME _newTime)
 ; akcie
 END OnHistoryTime 

 BOOL _blnHistory  ; premenná, ktorá určuje, či je schéma v režime História
 TIME _historyTime ; aktuálne zobrazený čas histórie, ak existuje
 
 ENTRY OnHistoryTime(IN TIME _newTime)
   IF _newTime\VLD THEN
     IF ! _blnHistory THEN
       ; prepnutie schémy do režimu História
       _blnHistory := @TRUE
     ENDIF
     ; čas v histórii
     _historyTime := _newTime
   ELSE   ; ukončenie režimu História
   _blnHistory := @FALSE
   ENDIF
 END OnHistoryTime
 
 
 BEGIN
   _blnHistory := @FALSE
 ENDIF