Příklady - Historie

 dim S     : String;
 dim Attr  : Word;
 dim FDate : Date;
 dim CDate : Date;
 -- Krokování historií dopředu od 01/01/1994. Položka je typu řetězec --
 FDate := _Date(01,01,1994);
 if _HstFirst(dbtO, 60, S, Attr, FDate, CDate, O[dbIdent]) then
   repeat
     _(FDate,"  ",CDate,"  ",S)
   until _LNot(_HstNext(dbtO, 60, S, Attr, FDate, CDate, O[dbIdent]));
 endif
 -- Krokování historií odzadu. Položka je typu řetězec --
 if _HstLast(dbtO, 60, S, Attr, FDate, CDate, O[dbIdent]) then
   repeat
     _(FDate,"  ",CDate,"  ",S)
   until _LNot(_HstPrev(dbtO, 60, S, Attr, FDate, CDate, O[dbIdent]));
 endif