'Преременные AVR-DOS для SD/MMC карты.
Dim Btemp1 As Byte                    'Переменная портишина
Dim Sd_fail As String * 8                    'Название файла 8 символов
Dim Sd_fail0 As String * 5                    'Расширение файла 5 символов
Dim Sd_fail1 As String * 5                    'Расширение файла 5 символов
Dim Sd_fail2 As String * 12                    'Сформированый фал "GSM_128.LOG" 12 символов
Dim Sd_fail3 As String * 12                    'Сформированый фал "GSM_128.TXT" 12 символов
Sd_fail = "GSM_128"
Sd_fail0 = ".TXT"
Sd_fail1 = ".LOG"
   Sd_fail2 = Sd_fail + Sd_fail1                             'Формирование имени файла "GSM_128.LOG"
   Sd_fail3 = Sd_fail + Sd_fail0                             'Формирование имени файла "GSM_128.TXT"

' *** MMC/SD кард определяем наличие ***
' 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 "
   Gosub Time_date
   Wait 3

If Gbdriveerror = 0 Then
   Btemp1 = Initfilesystem(1)                    ' Partition 1 use 0 for drive without Master boot record
   If Btemp1 <> 0 Then
      Lcd "OБёІєa: " ; Btemp1 ; " FAT"                       'ошибка FAT системы
   Else
      Lcd "AVR-DOS OK"
  End If

                    'время и дата
    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  "
    Close #10
' конец
    End If
  Cls

  Wait 4