Print "ATD" ; Phonebook_balans ; Chr(59)                  'Или  Print "ATD"; Chr(34); Phonebook_balans ; ";"
   Locate 1 , 1 : Lcd "ATD" ; Phonebook_balans ; Chr(59)
   Waitms 500
   Getline Sk                    'Ответ: OK
   Getline Sk                    'Ответ: +CUSD: 2,"Vash balans 130.50 rub. Bonus: 0.00 rub. Besplatnyh sekund: 0.0. Dopolnitel'nye balansy: #106#",15
   Otvet = Mid(sk , 16 , 16)                    'Left(sk , 25)         'берем только первые 25 символов из смс
   Locate 2 , 1 : Lcd Otvet
   Waitms 500
   Otvet = "GSM128" + Chr(10) + Otvet + Chr(10)

    Print "AT+CMGD=1"                    ' а то снова передаем!   'удаление смс
  '  Flushbuf

' CD_SDcard - Pin  => Pin 8 of MMC/SD
    Config Pinb.4 = Input

' WP_SDcard - Pin  => Pin 9 of MMC/SD
    Config Pinb.5 = Input

Cls
If Pinb.4 = 1 Then
       Lcd "SD/MMC - oБёІєa "
     Else
        If Pinb.5 = 1 Then
          Lcd "WR card - Error "
      End If
     End If
    Wait 3
    Locate 2 , 1
   Lcd " SD/MMC Ѕa№гeЅa "

   Wait 3

If Gbdriveerror = 0 Then
' Запускаем AVR-DOS конфигурацию и библиотеку

$include "Config_AVR-DOS.BAS"

   Btemp1 = Initfilesystem(1)                    ' Partition 1 use 0 for drive without Master boot record
   If Btemp1 <> 0 Then
      Locate 1 , 1
      Lcd "OБёІєa: " ; Btemp1 ; " FAT"                       'ошибка FAT системы
   Else
      Locate 2 , 1
      Lcd "               "
      Waitms 500
      Locate 2 , 1
      Lcd "AVR-DOS OK"
  End If
      Wait 2
                    'время и дата
    Open Sd_fail2 For Append As #10
       Print #10 , "<Start 128_GSM> " ; Hour ; ":" ; Mine ; " " ; Day ; "/" ; Dat ; "/" ; Month ; "/" ; Year
       Print #10 , "Ds18b20 = " ; T1str ; "C" ; "  Lm75 = " ; Out_temp ; "C  "
             While X_byte < 10000                    '10000 * 102 Byte / 100 = 10200 Byte
           Print #10 , Otvet
           X_byte = X_byte + 100
       Wend

    '   Print #10 , " " ; Otvet
       Print #10 , "*************************** "
    Close #10
' конец

    End If
  Cls
   Flushbuf