progress.create Spooler 
    progress.begin  Hledám nové výsledky ...
    dump            odebrani_vysledku_start 
    call            setup.prg
    set             Cnt,0,_Undesired,:
Start:
    findfirst       !$(ImportDir),*.res,Fn
    if @Fn = void   then goto Quit
    ?g.open         !$(ImportDir)$(Fn),CannotOpen
    g.read2eof      Buffer
    g.close
    tr              Buffer,Ä˙ł,--|
    cz.xlate        Buffer,kw,Buffer
    push            Buffer
    _skip2          Buffer,
    item.pipe       _Skipped,1,Prijmeni
    item.pipe       _Skipped,2,Jmeno
    item.pipe       _Skipped,3,RC
    item.pipe       _Skipped,4,CentralId
    item.pipe       _Skipped,5,Material
    item.pipe       _Skipped,6,LabNo
    item.pipe       _Skipped,7,Datum
    item.pipe       _Skipped,8,Prijem
    item.pipe       _Skipped,9,ZdrZarizeni
    item.pipe       _Skipped,10,Oddeleni
    item.pipe       _Skipped,11,Lekar
    item.pipe       _Skipped,14,ICZ
    dd_mm_yy.yyyymmdd  Datum
    pop             Text
    set             DatumSpoolu,$(Today)
    set             NTisk,NULL,ZTisk,NULL
    insert.or.update      Vysledky
    _renamefile     !$(ImportDir)$(Fn),$(ImportDir)done/$(Fn)
    unlink          !$(ImportDir)$(Fn)
    inc             Cnt
    mod             Cnt,50,i
    if !@i = 1      then progress.tell Zpracováno $(Cnt) souborů
    goto            Start
CannotOpen:
    _quit           Nemohu otevrit soubor ...

Fuzzy:
    _fuzzy_find !Buffer,$(Var),$(Tag)
    _return

Quit:
    dump            odebrani_vysledku_stop
    progress.end    true
    progress.destroy true
    exit