While (input #f, sLinia) //!= 0
   buf=sLinia
   while delete regular ":b++" //kasowanie wielu spacji
      insert " "            //i wstawianie jednej spacji
      move 1
   wend
//   sLinia=buf
   move to 1
   
   sZnal=find regular (using "{*}%s{*}", "Zam. nabywcy")
   if sZnal then
         sKasuj=Delete "Zam. nabywcy :"
      sZMWNr= trim(buf)
      goto nast2 //spr. nast. linii
      endif
....