do clos_data
crea table (m.gcpri_path + "soubory") FREE (kas_path C(30), soubor C(12), velikost N(8), komentar C(30))

sele 0
use (m.fn_food_dat) Alias fd noupdate
scan for inlist(pgm, "KAS", "K32") .and. ("MASTER" $ pgm_param)
  kas_path = allt(dat_path)
  IF m.slovenskaverzia
	  pocet = adir(ssss, m.kas_path + "zu??????.txt")
	  for iiii = 1 to m.pocet
	  	IF LEN(ssss(m.iiii,1)) = 12
	    	insert into (m.gcpri_path + "soubory") (kas_path, soubor, velikost) ;
	   	                              values (m.kas_path, ssss(m.iiii,1), ssss(m.iiii,2))
	   	ENDIF
	  endfor
  ELSE
	  pocet = adir(ssss, m.kas_path + "zu??.txt")
	  for iiii = 1 to m.pocet
    	insert into (m.gcpri_path + "soubory") (kas_path, soubor, velikost) ;
                                  values (m.kas_path, ssss(m.iiii,1), ssss(m.iiii,2))
	  ENDFOR 
  ENDIF
ENDSCAN 

SELECT soubory
defi popup soubory prompt field kas_path + "  " + soubor + str(velikost, 12)
on Selection Popup soubory do ukazsoubor
acti popup soubory
rele popup soubory
do clos_data

*************************************************************************
proc ukazsoubor
soubor = (allt(soubory.kas_path) + allt(soubory.soubor))
hndl = fopen(m.soubor)
pocetprazdnejch = 0
if m.hndl > 0
  had = createobject("had")
  had.show()
  velikostsouboru = FSEEK(hndl, 0, 2)
  = FSEEK(hndl, 0)

  crea table (m.gcpri_path + "txt_dbf") (txt C(80))
  do while ! feof(m.hndl)
    jedenradek = fget(m.hndl)
    txt = ""
    pocetznaku = 0
    for ii = 1 to len(jedenradek)
      jedenznak = subst(m.jedenradek, m.ii, 1)
      if jedenznak >= " "
        txt = m.txt + m.jedenznak
        pocetznaku = m.pocetznaku + 1
      endif
    endfor
    if pocetznaku > 9
      insert into (m.gcpri_path + "txt_dbf") (txt) values (m.jedenradek)
      pocetprazdnejch = 0
      had.set_had( FSEEK(hndl, 0, 1) / velikostsouboru * 100)
    else
      pocetprazdnejch = pocetprazdnejch +1
      if pocetprazdnejch = 1
        insert into (m.gcpri_path + "txt_dbf") (txt) values (" ")
      endif
    endif
  enddo
  = fclose(m.hndl)
  had.release()
  do pr_report with "zurnal"
else
  wait jaz("prg_soubor")+" " + m.soubor + jaz("prg_nelze_otevrit") wind time 2
endif
sele soubory


