Poruchy:
    jump.ifne         Pocet,0,PoruchyByly
    f.write           Poruchy: žádné.
    return.sub
PoruchyByly:
    f.write           ----------------------------------------------------------------------------------------------
    f.write           !                     Poru Číslo Služ   P  Trvání  Začátek  Komentář
    f.write           !Oprava    Vysílač     cha        ba    č hh mm ss 
    f.write           ----------------------------------------------------------------------------------------------
    startsql          !select * from poruchydisp where $(Podminka) order by zarizeni
LoopPoruchy:
    clear.pattern     Split.
    clear.more        PlusMinus,DatPl,Zarizeni,Typ,Drs,Pocet,Zacatek,Konec,Komentar,Odstranil,ZpusobOdstraneni
    ?getsql           EndLoopPoruchy
    set               !X,$(PlusMinus)$(DatPl)
    jump.ifeq         Odstranil,,Komentar
    jump.ifeq         Odstranil,-,Komentar
    context.set       !Komentar=$(Komentar) Odstranil: $(Odstranil) $(ZpusobOdstraneni)
Komentar:
    fold.split        Komentar,Split.,37
    difftime          Trvani,ZacatekUziv,KonecUziv
    jump.ifeq         Trvani,0,LoopPoruchy
    int.hhmmss        Trvani,Trvani
    hhmmss.hhmmsscz   ZacatekUziv,ZacatekCz,Trvani,TrvaniCz
    set               space,,
    f.write.more.v    X:9,Zarizeni:12,Typ:2,Cislo:6,Drs:5,Pocet:1,TrvaniCz:8,ZacatekCz:8,Split.1:0
    jump.ifeq         Split.2,,LoopPoruchy
    f.write.more.v    Space:58,Split.2:0
    jump.ifeq         Split.3,,LoopPoruchy
    f.write.more.v    Space:58,Split.3:0
    jump.ifeq         Split.4,,LoopPoruchy
    f.write.more.v    Space:58,Split.4:0
    jump.ifeq         Split.5,,LoopPoruchy
    f.write.more.v    Space:58,Split.5:0
    jump.ifeq         Split.6,,LoopPoruchy
    f.write.more.v    Space:58,Split.6:0
    jump              LoopPoruchy
EndLoopPoruchy:
    stopsql
    f.write           ----------------------------------------------------------------------------------------------
    return.sub    

OBloky:
    set               Pocet,0
    load.sql          !select count(*) as pocet from obloky where $(Podminka2) order by Zarizeni,uziv,kdyzapsal
    jump.ifne         Pocet,0,OBlokyByly
    f.write           Poznámky: žádné.
    return.sub
OBlokyByly:
    f.write           Poznámky:
    startsql          !select * from obloky where $(Podminka2) order by Zarizeni,uziv,kdyzapsal
LoopOBloky:
    clear.more        Zarizeni,Komentar
    ?getsql           EndLoopOBloky
    context.set       !X=$(Zarizeni): $(Komentar)
    fold.trim.2nd     X,X,76,4
    f.write           !$(X)
    jump              LoopOBloky
EndLoopOBloky:
    stopsql
    return.sub