roboforum.ru

'проверяю диск
Lbyte1 = Drivecheck()
If Lbyte1 = 0 Then
Print "OK"
End If
Printdriveerror
'проверяю ф.с.
Lbyte1 = Initfilesystem(1)
If Lbyte1 <> 0 Then
Print "Error at file system init"
Else
Printfilesysteminfo
End If

'вывожу ошибку карты
Sub Printdriveerror()
   If Gbdriveerror > 0 Then
      Print "Drive Error: " ; Gbdriveerror
      Print "Drive Status:" ; Bin(gbdrivestatusreg)
      Print "Drive Debug: " ; Gbdrivedebug
   End If
End Sub
'вывожу информацию о системе
Sub Printfilesysteminfo()
   Print "File System:         " ; Gbfilesystem
   Print "File System Status:  " ; Gbfilesystemstatus
   Print "FAT first Sector:    " ; Glfatfirstsector
   Print "Number of FATs:      " ; Gbnumberoffats
   Print "Sectors per FAT:     " ; Glsectorsperfat
   Print "Root first Sector:   " ; Glrootfirstsector
   Print "Root Entries:        " ; Gwrootentries
   Print "Data first Sector:   " ; Gldatafirstsector
   Print "Sectors per Cluster: " ; Gbsectorspercluster
   Print "Highest Cluster#:    " ; Glmaxclusternumber
   Print "Start check Cluster# " ; Gllastsearchedcluster
End Sub