$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100

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

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Cursor Off
Cls

Config Serialin = Buffered , Size = 20
Config Clock = Soft
Enable Interrupts
Config Date = Dmy , Separator = .

  Dim Имя_файла_str As String * 12
  Dim Имя_директории_str As String * 12
  Dim Счетчик_файлов As Word
  Dim Количество_найденных_файлов As Word
  Dim Количество_найденных_директорий As Word

Lcd "Test_Dos_Drive " ; Version()

Wait 1
Cls
'Dim Btemp1 As Byte
Lcd "Wait for Drive"
Wait 1
Cls
If Gbdriveerror = 0 Then
  ' Include AVR-DOS Configuration and library

Lcd "Init File System ... ";
Wait 1
Cls
  Btemp1 = Initfilesystem(1)                    ' Partition 1
                    ' use 0 for drive without Master boot record
  If Btemp1 <> 0 Then
Lcd "Error: " ; Btemp1 ; " at Init file system"
Wait 2
Cls

Else
Lcd " OK!"
Wait 1
Cls
End If
Else
   Lcd "Error during Drive Init: " ;
   Lowerline
   Lcd Gbdriveerror
   Wait 2
Cls
End If
Do
Имя_директории_str = Dir( "*.")                             ' Выбираем имя первого файла в каталоге
While Len(имя_директории_str) > 0                           ' Пока длина названия папки больше 0
' Выводим: имя файла
Lcd "Name Dir" ; " " ; Имя_директории_str
Waitms 2000
Cls
Имя_директории_str = Dir()                    ' Ищем дальше
Wend

Loop
End