CLEAR
RADEK = ""
ZNAK = ""
POZICE = 0
K = 0
POCET = 0
RETEZEC = ""

IF(FILE("C:\Documents and Settings\Slavoj Zappe\Plocha\PRV1\TEXT.TXT")==.T.)
  sou = FOPEN("C:\Documents and Settings\Slavoj Zappe\Plocha\PRV1\TEXT.TXT")
  K=1
ELSE
  ? "SOUBOR NENALEZEN"
ENDIF

IF (K=1)
ZAPIS = FCREATE("C:\Documents and Settings\Slavoj Zappe\Plocha\PRV1\ZAPIS.TXT")
DO WHILE(FEOF(SOU)<>.T.)
 RADEK = FGETS(SOU)
 IF ('k'$RADEK)
   FPUTS(ZAPIS,RADEK)
 ENDIF
ENDDO
ENDIF
FCLOSE(ZAPIS)

FSEEK(SOU,0,0)



DO WHILE (FEOF(SOU)<>.T.)
  POZICE = POZICE + 1
  ZNAK = FGETS(SOU,1)
   IF (ZNAK=="!")
      ? POZICE
   ENDIF
ENDDO

FSEEK(SOU,0,0)

DO WHILE(FEOF(SOU)<>.T.)
  RADEK = FGETS(SOU)
  RETEZEC = RETEZEC + RADEK
ENDDO
POCET = OCCURS("!",RETEZEC)
? POCET

FCLOSE(SOU)