set AtbList,AMP|GEN|STR|VAN
  set MikrobList,EKFE|EKFC
  f.append c:/tmp/vypocet.txt
  f.write =============================================
  f.write !$(KODODD) $(DATUMOD)-$(DATUMDO) EKFE,EKFC
  f.write ---------------------------------------------
  f.write !Mikrob     AMP       GEN       STR       VAN
  f.write ---------------------------------------------
  thru Mikrob,MyList,@MikrobList
    _call Cycle
  endthru
  f.write !---------------------------------------------\n
  f.close
  return

Cycle:
  arglist change,commas,AtbList,List,suffix,.t,List,List_T,suffix,.r,List,List_R,suffix,_i,List,List_I,set,0,List_T,set,0,List_R
  progress.tell !$(KodOdd) $(Mikrob) ...
  list.construct !CentralId,Datum;select CentralId,min(DatumOdberu) as Datum from statistikamikrobu where datumodberu<='$(DatumDo)' and datumodberu>='$(DatumOd)' and kododd='$(kodOdd)' and mikrob='$(Mikrob)' and MEMOD not like 'XXX=%' group by CentralId
  repeat
    _list.get.to Line,break
    uncsv Line,CentralId,Datum
    arglist set,,List_I
    load.sql !select labno,atb,$(List_I) from rezistence_all where kododd='$(kododd)' and datumodberu='$(datum)' and centralid='$(centralid)' and mikrob='$(mikrob)'
    setv Buffer,AtbList
    repeat
      getatom.loop Buffer,c,|,
      if @c = void then break
      if !@$(c)_i = R then inc $(c).r
      inc !$(c).t
    until false
  until false
  f.write.nl !$(Mikrob)
  setv Buffer,AtbList
  repeat
    getatom.loop Buffer,c,|,
    if @c = void then break
    default !$(c).r,0,$(c).t,0
    setv !a,$(c).r,b,$(c).t
    set !now,$(a):$(b)
    _fv.nolf now:-9
  until false
  f.write
  _return