kod_p_cz$=''
miasto_cz$=''
gmina_cz$=''
ulica_cz$=''
dom_cz$=''
lokal_cz$=''
tel_cz$=''
fax_cz$=''
//
nazwisko_cz$=''
imie1_cz$=''
pesel_cz$=''
nip_cz$=''
data_ur_cz$=''
rodz_dok_cz=0
nr_dok_cz$=''
dok_cz$=''
kod_pokr$=''
utrzym$=''
wsp_gosp$=''
//
adres$=''
nok=0
//
if Stan rodzinny (Wyrejestrowanie)
   st_rodz$='2'
else
   st_rodz$='1'
end

kod_pokr$=PobierzKodSˆownika(Kod pokrewieästwa, Stan rodzinny (Pokrewieästwo))
kod_pokr$='<p10>' & kod_pokr$ & '</p10>'

//if Stan rodzinny (Utrzymanie)
//   utrzym$='X'
//else
//   utrzym$=''
//end
if Stan rodzinny (Gospodarstwo)
   //wsp_gosp$='X'
   wsp_gosp$='<p11>true</p11>'
else
   wsp_gosp$=''
end
//
Pobierz dane identyfikacyjne czˆonka rodziny ubezp (data, typ$, rodz_dok_cz, nr_dok_cz$)

if Stan rodzinny (Pesel)<>'' and Stan rodzinny (Nip)<>''
   dok_cz$=''
  else
   dok_cz$='<p5>' & Format(rodz_dok_cz, '@n1B') & '</p5>'
   nr_dok_cz$=Funkcja usuwaj¥ca znaki przestankowe (nr_dok_cz$)
   dok_cz$=dok_cz$ & '<p6>' & SubString(nr_dok_cz$,1,9) & '</p6>'
end
//
if Stan rodzinny (Pesel) <>''
   pesel_cz$='<p3>' & Stan rodzinny (Pesel) & '</p3>'
end
if Stan rodzinny (Nip) <>''
   nip_cz$=Funkcja usuwaj¥ca znaki przestankowe (Stan rodzinny (Nip))
   nip_cz$='<p4>' & nip_cz$ & '</p4>'
end
nazwisko_cz$=SubString(Stan rodzinny (Nazwisko),1,31)
nazwisko_cz$=Kodowanie UNICODE zus (nazwisko_cz$)
nazwisko_cz$='<p7>'& nazwisko_cz$ & '</p7>'
imie1_cz$=SubString(Stan rodzinny (Imi©),1,22)
imie1_cz$=Kodowanie UNICODE zus (imie1_cz$)
imie1_cz$='<p8>' & imie1_cz$ & '</p8>'
if Stan rodzinny (Data urodzenia) >0
   data_ur_cz$='<p9>' & Format(Stan rodzinny (Data urodzenia), '@d10-') & '</p9>'
end
//
// adres zamieszkania
adres$=Stan rodzinny (Miejscowo˜†) & Stan rodzinny (Ulica) & Stan rodzinny (Numer domu)
if adres$<>''
   kod_p_cz$=Funkcja usuwaj¥ca znaki przestankowe (Stan rodzinny (Kod pocztowy))
   if kod_p_cz$<>''
      kod_p_cz$='<p1>' & kod_p_cz$ & '</p1>'
   end
   miasto_cz$=SubString(Stan rodzinny (Miejscowo˜†),1,26)
   miasto_cz$=Kodowanie UNICODE zus (miasto_cz$)
   miasto_cz$='<p2>' & miasto_cz$ & '</p2>'
   gmina_cz$=SubString(Stan rodzinny (Gmina),1,26)
   gmina_cz$=Kodowanie UNICODE zus (gmina_cz$)
   gmina_cz$='<p3>' & gmina_cz$ & '</p3>'
   if Stan rodzinny (Ulica) <>''
      ulica_cz$=SubString(Stan rodzinny (Ulica),1,30)
      ulica_cz$=Kodowanie UNICODE zus (ulica_cz$)
      ulica_cz$= '<p4>' & ulica_cz$ & '</p4>'
   end
   if Stan rodzinny (Numer lokalu) <>''
      lokal_cz$='<p6>' & Stan rodzinny (Numer lokalu) & '</p6>'
   end
   dom_cz$='<p5>' & Stan rodzinny (Numer domu) & '</p5>'

   if Stan rodzinny (Telefon)<>''
      tel_cz$=Funkcja usuwaj¥ca znaki przestankowe (Stan rodzinny (Telefon))
      tel_cz$='<p7>' & tel_cz$ & '</p7>'
   end
   if Stan rodzinny (Faks) <>''
      //fax_cz$=Funkcja usuwaj¥ca znaki przestankowe (Stan rodzinny (Faks))
      // teraz tu adres zagraniczny
      // dwu literowy symbol paästwa & '-' & zagraniczny kod pocztowy
      fax_cz$=Stan rodzinny (Faks)
      fax_cz$='<p8>' & SubString(fax_cz$,1,12) & '</p8>'
   end
end