int b = Open Katalog()+"am"+firma.code+"51pr.dat" for base "PR"
int err
int modyfZnaczniki
String Plik_w = KatalogFirmy() + "SpisRap.txt"
Int Numer_pliku = Open Plik_w For output

BaseError( b, 4)
SetKey(b, "id")
SetKeySeg(b, "id", 0)
GetRec(b, GE)
Print # Numer_pliku ; "id^flag^subtypi^typ^katalog^nazwa^skrot^idComp^dscname^rapflag^Znacznik";LF   

while !err
if GetField(b, "Znacznik") then
   modyfZnaczniki = 1
else
   modyfZnaczniki = 0
endif
Print # Numer_pliku ; GetField(b, "id");"^";GetField(b,"flag");"^";GetField(b,"subtypi");"^";GetField(b,"typ");"^";GetField(b,"katalog");"^";GetField(b, "nazwa");"^";GetField(b, "skrot");"^";GetField(b, "idComp");"^";GetField(b, "dscname");"^";GetField(b, "rap_flag");"^";modyfZnaczniki;"^";LF
Print # Numer_pliku ; GetField(b, "dane")

                 err = GetRec(b, NX)
         wend

Close Numer_pliku