$include "Config_MMCSD_HC.bas"
$include "Config_AVR-DOS.BAS"



   If Mmcsd_cardtype = 0 Then                               ' SD-карта читается?
      Oshibka = 1                                           ' Нет SD-карты!
      Goto Problema                                         ' Уйти в обработчик ошибок
   End If

   Temp = Initfilesystem(1)                                 ' Partition 1, use 0 for drive without Master boot record
   If Temp <> 0 Then                                        ' Файловая система в норме?
      Oshibka = 2                                           ' Ошибка файловой системы
      Goto Problema                                         ' Уйти в обработчик ошибок
   End If


   Open Rabochij_fail$ For Input As #3

   Do
      Lineinput #3 , File_line_str$                         ' читаю строку

   Temp2_w = Lof(#3)                                        ' Размер файла

   If Temp2_w < 10 Then
      Oshibka = 3                                           ' Файл txt не найден или мал
      Goto Problema                                         ' Уйти в обработчик ошибок
   End If



   Loop Until Eof(#3) <> 0
   Close #3

---

   Temp = Initfilesystem(1)

   Kill "feeders.ini"                                   

   Open "feeders.ini" For Output As #9              
   Write #9 , Fid_1_x , Fid_1_y , Fid_1_z , Fid_1_h_detali , Fid_1_mezhdu_kompon
   Write #9 , Fid_2_x , Fid_2_y , Fid_2_z , Fid_2_h_detali , Fid_2_mezhdu_kompon
   Write #9 , Fid_3_x , Fid_3_y , Fid_3_z , Fid_3_h_detali , Fid_3_mezhdu_kompon
   Write #9 , Fid_4_x , Fid_4_y , Fid_4_z , Fid_4_h_detali , Fid_4_mezhdu_kompon
   Flush #9                                                 ' flush to disk
   Close #9