VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1 
   Caption         =   " Singlix FS1 Hard Disk Manager v1.0"
   ClientHeight    =   2925
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6405
   Icon            =   "frmDiskFSHD.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2925
   ScaleWidth      =   6405
   StartUpPosition =   1  'CenterOwner
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
   End
   Begin VB.CommandButton Command3 
      Caption         =   "File Info"
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   2280
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Exit"
      Height          =   375
      Left            =   4920
      TabIndex        =   2
      Top             =   2280
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "FS Info"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   2280
      Width           =   1335
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1695
      Left            =   120
      TabIndex        =   3
      Top             =   240
      Width           =   6255
   End
   Begin VB.Menu fsfdImage 
      Caption         =   "FS Drive"
      Begin VB.Menu fsfdNewImage 
         Caption         =   "New Singlix FS"
      End
      Begin VB.Menu fsfdSeparator 
         Caption         =   "-"
      End
      Begin VB.Menu fdfdExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu WinFile 
      Caption         =   "Windows File"
      Begin VB.Menu WinOpenFile 
         Caption         =   "Open Windows File"
      End
      Begin VB.Menu WinSaveFile 
         Caption         =   "Save as Windows File"
      End
   End
   Begin VB.Menu fsFile 
      Caption         =   "FS File"
      Begin VB.Menu fsOpenFile 
         Caption         =   "Open FS File"
      End
      Begin VB.Menu fsOpenNextFile 
         Caption         =   "Open Next FS File"
      End
      Begin VB.Menu fsSaveFile 
         Caption         =   "Save as FS File"
      End
      Begin VB.Menu fsSaveStartupFile 
         Caption         =   "Save as FS Startup File"
      End
      Begin VB.Menu fsDeleteFile 
         Caption         =   "Delete FS File"
      End
      Begin VB.Menu fsMoveFile 
         Caption         =   "Move FS File"
      End
      Begin VB.Menu fsRenameFile 
         Caption         =   "Rename FS File"
      End
      Begin VB.Menu fsStartupFileInfo 
         Caption         =   "FS Startup File Info"
      End
      Begin VB.Menu fsDeleteStartupFile 
         Caption         =   "Delete FS Startup File"
      End
   End
   Begin VB.Menu fsDir 
      Caption         =   "FS Directory"
      Begin VB.Menu fsCurDir 
         Caption         =   "Current FS Directory"
      End
      Begin VB.Menu fsChDir 
         Caption         =   "Change FS Directory"
      End
      Begin VB.Menu fsMkDir 
         Caption         =   "Make FS Directory"
      End
      Begin VB.Menu fsDirList 
         Caption         =   "Current FS Directory List"
      End
      Begin VB.Menu fsRmDir 
         Caption         =   "Delete FS Directory"
      End
      Begin VB.Menu fsMvDir 
         Caption         =   "Move FS Directory"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim X As Integer
Dim Y As Byte
Dim L As Integer
Dim VolumeName As String
Dim Satir As String
Dim BeginningSector As Double
Dim MAT_Location As Double
Dim S1 As Double
Dim S2 As Long
Dim S3 As Long
Dim S4 As Integer
Dim ReturnCode As Long
Dim RDT_Location As Double
Dim VolSerialNoStr As String
Dim Volume_Size As Double
Dim Free_Sectors As Double
Dim ImageFileNumber As Integer
Dim WinFileName As String
Dim WinFileSize As Double
Dim WinFileCDateTime As String
Dim FS_DirSerial1 As Long
Dim FS_DirSerial2 As Long
Dim DAT_Location As Double
Dim FreeSpace As Double
Dim RequiredSpace As Double
Dim FS_FileName As String
Dim FS_DirName As String
Dim SubDirName As String
Dim K As Double
Dim SectorCount As Double
Dim FDT_Location As Double
Dim FS_Second As Integer
Dim FS_Minute As Integer
Dim FS_Hour As Integer
Dim FS_Day As Integer
Dim FS_Month As Integer
Dim FS_Year As Integer
Dim FS_Century As Integer
Dim WinFileNumber As Integer
Dim R As Integer
Dim AttributeStr As String
Dim DDT_Location As Double
Dim DAT_SCount As Long
Dim DATSECTOR As Double

Private Sub Command1_Click()
MousePointer = 11
Call LoadFSImage
MousePointer = 0
End Sub

Private Sub Command3_Click()
If WinFileName <> "" Then
   WinFileSize = FileLen(WinFileName)
   WinFileCDateTime = FileDateTime(WinFileName)
   Label1.Caption = "Windows File Name : " + WinFileName + Chr$(13) + Chr$(10) + "Windows File Size : " + CStr(WinFileSize) + " bytes" + Chr$(13) + Chr$(10) + "File Date and Time : " + WinFileCDateTime
Else
   Label1.Caption = "Windows File : NONE"
End If
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub fdfdExit_Click()
End
End Sub

Private Sub Form_Activate()
Randomize Timer
End Sub

Private Sub Form_Load()
Call RDT_Reset
FS_CDIR = "/"
LoadFSImage
End Sub

Private Sub fsChDir_Click()
Rem Temporary !!!
Satir = InputBox("Directory Name", "Change FS Directory")
Satir = Trim$(Satir)
If Satir <> "" Then
   K = ChangeDirectory(0, Satir)
   If K > 0 Then
      MsgBox ("Current directory has been changed to '" + FS_CDIR + "' ..."), 0, " Change FS Directory"
      Label1.Caption = "FS Directory : " + FS_CDIR
   Else
      MsgBox ("Directory not found !")
   End If
End If
End Sub

Private Sub fsCurDir_Click()
If Trim$(FS_CDIR) <> "" Then
   Label1.Caption = "FS Directory : " + FS_CDIR
Else
   Label1.Caption = "FS Directory : NONE"
End If
End Sub

Private Sub fsDeleteFile_Click()
Satir = InputBox("FS File Name :", " Delete FS File")
Satir = Trim$(Satir)
L = Len(Satir)
If L < 1 Then Exit Sub
K = FindFirstFile(0, Satir)
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, FDT())
   If ReturnCode = 0 Then
      If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
         Call SetOpenFileStructure(FDT())
      Else
         MsgBox ("File could not be found!"), 0, " Delete FS File"
         Exit Sub
      End If
   End If
Else
   MsgBox ("File could not be found!"), 0, " Delete FS File"
   Exit Sub
End If
Rem If FD.SectorCount < 1 Then Exit Sub
FS_FileName = Trim$(FD.FileName)
If MsgBox("Do you want to delete file '" + FS_FileName + "' ?", 36, " Delete FS File") <> 6 Then Exit Sub
FS_DirNumber = FD.ParentDirNumber
FS_DirSerial1 = FD.ParentDirSerial1
FS_DirSerial2 = FD.ParentDirSerial2
Rem If FS_DirNumber < 1 Then Exit Sub
ANS:
Rem Erased/Deleted Sign
FDT(2) = AscB("E")
ReturnCode = WriteSector(DriveName, K, 1, FDT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing FDT Sector"
   Exit Sub
End If
FDT_Location = FD.FileNumber
SectorCount = FD.SectorCount
FreeSpace = Free_Sectors + SectorCount + 1
For K = FDT_Location To FDT_Location + SectorCount
    If SetDATCellValue(K, &H90) = 0 Then
       MsgBox ("Writing Error !"), 48, " Writing DAT Sector"
       Exit For
    End If
Next K
Free_Sectors = FreeSpace
ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
   Exit Sub
End If
Rem FreeSectors
K = FreeSpace
L = CInt(K Mod 256)
MAT(20) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(21) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(22) = CByte(L)
K = (K - L) / 256
MAT(23) = CByte(L)
Rem FirstFreeSector
S1 = CDbl(MAT(27))
S1 = 16777216 * S1
S2 = CLng(MAT(26))
S2 = 65536 * S2
S3 = CLng(MAT(25))
S3 = S3 * 256
S4 = CInt(MAT(24))
K = S1 + S2 + S3 + S4
If K > FDT_Location Then
   K = FDT_Location
   L = CInt(K Mod 256)
   MAT(24) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(25) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(26) = CByte(L)
   K = (K - L) / 256
   MAT(27) = CByte(K)
End If
ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
   Exit Sub
End If
SectorCount = SectorCount + FD.SectorCount + 1
K = FD.NextFDTNumber
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, FDT())
   If ReturnCode <> 0 Then Exit Sub
   If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
      Call SetOpenFileStructure(FDT())
   End If
   GoTo ANS
End If
Rem Deleting Entry On Directory Data Sector
Dim Z As Long
K = FS_DirNumber
BNS:
ReturnCode = ReadSector(DriveName, K, 1, DDT())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading DDT Sector"
   Exit Sub
End If
Call SetOpenDirStructure(DDT())
If DD.DDTSign <> "DDT" And DD.DDTSign <> "RDT" Then
   MsgBox ("Invalid Directory Descriptor Table !"), 48, " Reading DDT Sector"
   Exit Sub
End If
If DD.DirectorySerial1 <> FS_DirSerial1 Or DD.DirectorySerial2 <> FS_DirSerial2 Then
   MsgBox ("Wrong Directory Serial Number !"), 48, " Reading DDT Sector"
   Exit Sub
End If
K = DD.DirectoryNumber + 1
SectorCount = DD.SectorCount
Z = 1
CNS:
ReturnCode = ReadSector(DriveName, K, Z, SD_Data())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading Directory Data"
   Exit Sub
End If
For R = 0 To 511 Step 4
    S1 = CDbl(SD_Data(R + 3))
    S1 = 16777216 * S1
    S2 = CLng(SD_Data(R + 2))
    S2 = 65536 * S2
    S3 = CLng(SD_Data(R + 1))
    S3 = S3 * 256
    S4 = CInt(SD_Data(R))
    K = S1 + S2 + S3 + S4
    If FDT_Location = K Then
       Rem Deleting/Erasing Directory Entry
       SD_Data(R) = 255
       SD_Data(R + 1) = 255
       SD_Data(R + 2) = 255
       SD_Data(R + 3) = 255
       Exit For
    Else
       K = 0
    End If
Next R
If K > 0 Then
   K = DD.DirectoryNumber + 1
   ReturnCode = WriteSector(DriveName, K, Z, SD_Data())
   If ReturnCode <> 0 Then
      MsgBox ("Writing Error !"), 48, " Writing Directory Data"
   Else
      MsgBox ("'" + FS_FileName + "' has been deleted..."), 0, " Delete FS File"
      Call UpdateFSInfo
   End If
Else
   If Z < SectorCount Then
      Z = Z + 1
      GoTo CNS
   Else
      K = DD.NextDDTNumber
      If K > 0 Then
         GoTo BNS
      Else
         MsgBox ("Directory Entry could not be found !"), 48, " Delete FS File [ Error ]"
      End If
   End If
End If
End Sub

Private Sub fsDirList_Click()
If FS_CDIR = "/" Then
   ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, RD_Data())
Else
   ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, SD_Data())
End If
R = 0
If FS_CDIR = "/" Then
   For X = 0 To 511 Step 4
       S1 = CDbl(RD_Data(X + 3))
       S1 = 16777216 * S1
       S2 = CLng(RD_Data(X + 2))
       S2 = 65536 * S2
       S3 = CLng(RD_Data(X + 1))
       S3 = S3 * 256
       S4 = CInt(RD_Data(X))
       FDT_Location = S1 + S2 + S3 + S4
       If FDT_Location > 0 Then
          If FDT_Location < 4294967295# Then
             Call FillFlexGridCells
          End If
       Else
         Exit For
       End If
   Next X
Else
   For X = 0 To 511 Step 4
       S1 = CDbl(SD_Data(X + 3))
       S1 = 16777216 * S1
       S2 = CLng(SD_Data(X + 2))
       S2 = 65536 * S2
       S3 = CLng(SD_Data(X + 1))
       S3 = S3 * 256
       S4 = CInt(SD_Data(X))
       FDT_Location = S1 + S2 + S3 + S4
       If FDT_Location > 0 Then
          If FDT_Location < 4294967295# Then
             Call FillFlexGridCells
          End If
       Else
          Exit For
       End If
   Next X
End If
frmListe.Show
End Sub

Private Sub LoadFSImage()
On Error Resume Next
   VolumeName = ""
   For X = 1 To 16
       Y = BS(47 + X)
       If Asc(Y) > 0 Then
          VolumeName = VolumeName + Chr$(Y)
       Else
          Exit For
       End If
   Next X
   Label1.Caption = "Operation System Name : " + VolumeName
   S1 = CDbl(BS(27))
   S1 = 16777216 * S1
   S2 = CLng(BS(26))
   S2 = 65536 * S2
   S3 = CLng(BS(25))
   S3 = S3 * 256
   S4 = CInt(BS(24))
   Rem Sector
   MAT_Location = S1 + S2 + S3 + S4
   ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
   If ReturnCode <> 0 Then
      MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
      Exit Sub
   End If
   S1 = CDbl(MAT(15))
   S1 = 16777216 * S1
   S2 = CLng(MAT(14))
   S2 = 65536 * S2
   S3 = CLng(MAT(13))
   S3 = S3 * 256
   S4 = CInt(MAT(12))
   Rem Sector
   DAT_Location = S1 + S2 + S3 + S4
   S1 = CDbl(MAT(19))
   S1 = 16777216 * S1
   S2 = CLng(MAT(18))
   S2 = 65536 * S2
   S3 = CLng(MAT(17))
   S3 = S3 * 256
   S4 = CInt(MAT(16))
   Rem Sector Count
   DAT_SCount = CLng(S1 + S2 + S3 + S4)
   Rem DATSECTOR=0
   ReturnCode = ReadSector(DriveName, DAT_Location, 1, DAT())
   If ReturnCode <> 0 Then
      MsgBox ("Reading Error !"), 48, " Reading DAT Sectors"
      Exit Sub
   End If
   S1 = CDbl(BS(31))
   S1 = 16777216 * S1
   S2 = CLng(BS(30))
   S2 = 65536 * S2
   S3 = CLng(BS(29))
   S3 = S3 * 256
   S4 = CInt(BS(28))
   Rem Sector
   RDT_Location = S1 + S2 + S3 + S4
   Rem CHDIR
   RDT(0) = 0
   RDT(1) = 0
   RDT(2) = 0
   ReturnCode = ReadSector(DriveName, RDT_Location, 1, RDT())
   If ReturnCode <> 0 Then
      MsgBox ("Reading Error !"), 48, " Reading RDT Sector"
      Exit Sub
   End If
   VolumeName = ""
   For X = 1 To 64
       Y = RDT(63 + X)
       If Asc(Y) > 0 Then
          VolumeName = VolumeName + Chr$(Y)
       Else
          Exit For
       End If
   Next X
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + "FS Volume Name : " + VolumeName
   VolSerialNoStr = ByteToHex(RDT(31)) + ByteToHex(RDT(30)) + "-" + ByteToHex(RDT(29)) + ByteToHex(RDT(28))
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Volume Serial No : " + VolSerialNoStr
   S1 = CDbl(MAT(7))
   S1 = 16777216 * S1
   S2 = CLng(MAT(6))
   S2 = 65536 * S2
   S3 = CLng(MAT(5))
   S3 = S3 * 256
   S4 = CInt(MAT(4))
   Volume_Size = S1 + S2 + S3 + S4
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + "Volume Size : " + CStr(Volume_Size) + " sectors  ( " + CStr(512 * Volume_Size) + " bytes )"
   S1 = CDbl(MAT(23))
   S1 = 16777216 * S1
   S2 = CLng(MAT(22))
   S2 = 65536 * S2
   S3 = CLng(MAT(21))
   S3 = S3 * 256
   S4 = CInt(MAT(20))
   Free_Sectors = S1 + S2 + S3 + S4
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Free Sectors : " + CStr(Free_Sectors) + "  ( " + CStr(512 * Free_Sectors) + " bytes )"
   FS_CDIR = "/"
   S1 = CDbl(RDT(11))
   S1 = 16777216 * S1
   S2 = CLng(RDT(10))
   S2 = 65536 * S2
   S3 = CLng(RDT(9))
   S3 = S3 * 256
   S4 = CInt(RDT(8))
   FS_DirNumber = S1 + S2 + S3 + S4
   S1 = CLng(RDT(31))
   S1 = CLng(256 * S1)
   S2 = CLng(RDT(30))
   S3 = CLng(RDT(29))
   S3 = CLng(S3 * 256)
   S4 = CInt(RDT(28))
   FS_DirSerial2 = S1 + S2
   FS_DirSerial1 = S3 + S4
   FS_VolSerialNo2 = FS_DirSerial2
   FS_VolSerialNo1 = FS_DirSerial1
   S1 = CDbl(BS(23))
   S1 = 16777216 * S1
   S2 = CLng(BS(22))
   S2 = 65536 * S2
   S3 = CLng(BS(21))
   S3 = S3 * 256
   S4 = CInt(BS(20))
   Rem 20-10-2008 StartupFile Procedures
   FS_StartupFileNumber = S1 + S2 + S3 + S4
   If DriveName = "PhysicalDrive0" Then
      Me.Caption = " Singlix FS Drive :  hd0 (C:)"
   Else
      Me.Caption = " Singlix FS Drive :  hd1 (D:)"
   End If
End Sub

Public Function ReadSector(DrvName As String, Sector As Double, SectorCount As Long, Buffer() As Byte) As Long
   Dim SB As Long
   SB = CDbl(SectorCount * BytesPerSector)
   ReadSector = DirectReadDriveNT(DrvName, CLng(Sector + PartitionStartSector), 0, abResult(), SB)
   If ReadSector > 0 Then
      CopyMemory Buffer(0), abResult(0), SB
      ReadSector = 0
   Else
      Rem If ReadSector = 0 Then
         ReadSector = -1
      Rem End If
   End If
End Function

Private Function ByteToHex(BinaryData As Byte) As String
ByteToHex = Hex(BinaryData)
If Len(ByteToHex) <> 2 Then
   ByteToHex = "0" + ByteToHex
End If
End Function

Private Sub fsMkDir_Click()
Label1.Caption = ""
SubDirName = ""
RepeatD1:
Label1.Caption = "FS Current Directory : " + FS_CDIR
SubDirName = InputBox("FS File Name :", " Make a Singlix FS Directory")
SubDirName = Trim$(SubDirName)
Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "FS New Sub Directory : " + FS_DirName
L = Len(SubDirName)
If L > 0 Then
   If L > 64 Then
      MsgBox ("FS Directory name must not be more then 64 bytes !"), 48, " Make FS Directory"
      GoTo RepeatD1
   Else
      For X = 1 To L
          Y = AscB(Mid$(SubDirName, X, 1))
          If Y = AscB("/") Or Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
             MsgBox ("Invalid directory name chars ('/','?','*',':','\') !..."), 48, " Make FS Directory"
             L = 0
             Exit For
          End If
      Next X
      If L < 1 Then GoTo RepeatD1
   End If
Else
   Exit Sub
End If
Free_Sectors = GetFreeSpace()
If Free_Sectors > 2 Then
   If Free_Sectors < 2880 Then
      SectorCount = 2
   Else
       If Free_Sectors < 65536 Then
          SectorCount = 3
       Else
          If Free_Sectors < 1048576 Then
             SectorCount = 5
          Else
             If Free_Sectors < (131072 * 65536) Then
                SectorCount = 9
             Else
                SectorCount = 17
             End If
          End If
       End If
   End If
Else
   MsgBox ("The is no enough free space to make a new sub directory on the Singlix File System!..." + Chr$(13) + Chr$(10) + "Free Sectors = " + CStr(Free_Sectors) + " sector(s)"), 48, " Make FS Directory"
   Exit Sub
End If
BeginningSector = GetFirstFreeSector()
MkDirGFFS:
DDT_Location = GetFirstFreeSection(BeginningSector, SectorCount)
If DDT_Location = 0 Then
   If SectorCount > 2 Then
      SectorCount = ((SectorCount - 1) / 2) + 1
      GoTo MkDirGFFS
   End If
   MsgBox ("Free consecutive sectors are not enough!..."), 48, " Make FS Directory"
Else
   Call ResetDDTBuffer
   DD.DDTSign = "DDT"
   DD.DDTVersion = 0
   DD.SectorSize = 512
   DD.DDTNumber = 0
   DD.DirectoryNumber = DDT_Location
   DD.NextDDTNumber = 0
   DD.SectorCount = SectorCount - 1
   DD.ParentDirNumber = FS_DirNumber
   DD.ParentDirSerial1 = FS_DirSerial1
   DD.ParentDirSerial2 = FS_DirSerial2
   FS_Second = Second(Now)
   FS_Minute = Minute(Now)
   FS_Hour = Hour(Now)
   FS_Day = Day(Now)
   FS_Month = Month(Now)
   FS_Year = Year(Now) - 2000
   S1 = CLng(FS_Day)
   S1 = CLng(256 * S1)
   S2 = CLng(FS_Minute)
   S3 = CLng(FS_Second)
   S3 = CLng(S3 * 256)
   S4 = Int(256 * Rnd)
   DD.DirectorySerial2 = S1 + S2
   DD.DirectorySerial1 = S3 + S4
   DD.EntrySize = &H4
   DD.Reserved = 0
   DD.DirectoryType = 0
   DD.CheckSum = 0
   DD.Attributes = 1
   DD.OwnerCode = 0
   DD.GroupCode = 0
   DD.Country = 90
   DD.TimeZone = 0
   DD.CreatingCentury = SetBCD(FS_Century)
   DD.CreatingYear = SetBCD(FS_Year)
   DD.CreatingMonth = SetBCD(FS_Month)
   DD.CreatingDay = SetBCD(FS_Day)
   DD.CreatingHour = SetBCD(FS_Hour)
   DD.CreatingMinute = SetBCD(FS_Minute)
   DD.CreatingSecond = SetBCD(FS_Second)
   DD.CTimeMode = 0
   DD.LastModifCentury = DD.CreatingCentury
   DD.LastModifYear = DD.CreatingYear
   DD.LastModifMonth = DD.CreatingMonth
   DD.LastModifDay = DD.CreatingDay
   DD.LastModifHour = DD.CreatingHour
   DD.LastModifMinute = DD.CreatingMinute
   DD.LastModifSecond = DD.CreatingSecond
   DD.LMTimeMode = 0
   DD.DirectoryName = SubDirName
   DD.DirectoryDescription = 0
   Call SetDDTBuffer
   If Chr$(DDT(0)) = "D" And Chr$(DDT(1)) = "D" And Chr$(DDT(2)) = "T" And DDT(3) = 0 And DDT(4) = 0 And DDT(5) = 2 Then
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing DDT Sector..."
      ReturnCode = WriteSector(DriveName, DDT_Location, 1, DDT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing DDT"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + " OK."
      Call SD_Data_Reset
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing File Data..."
      X = 0
      BeginningSector = DDT_Location
      For L = 1 To SectorCount
          BeginningSector = BeginningSector + 1
          ReturnCode = WriteSector(DriveName, BeginningSector, 1, SD_Data())
          If ReturnCode <> 0 Then
             MsgBox ("Writing Error !"), 48, " Writing Sub Directory Data"
             Exit For
          End If
      Next L
      If ReturnCode <> 0 Then Exit Sub
      Label1.Caption = Label1.Caption + " OK."
      If FS_CDIR = "/" Then
         ReturnCode = ReadSector(DriveName, FS_DirNumber, 1, RDT())
      Else
         ReturnCode = ReadSector(DriveName, FS_DirNumber, 1, DDT())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Descriptor Table Reading Error !"), 48, " Reading Directory Descriptor Table"
         Exit Sub
      End If
      FS_Second = Second(Now)
      FS_Minute = Minute(Now)
      FS_Hour = Hour(Now)
      FS_Day = Day(Now)
      FS_Month = Month(Now)
      FS_Year = Year(Now)
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Updating Parent Directory Data..."
      If FS_CDIR = "/" Then
         K = SetFSDate(FS_Year, FS_Month, FS_Day)
         L = CInt(K Mod 256)
         RDT(56) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         RDT(57) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         RDT(58) = CByte(L)
         K = (K - L) / 256
         RDT(59) = CByte(K)
         K = SetFSTime(FS_Hour, FS_Minute, FS_Second)
         L = CInt(K Mod 256)
         RDT(60) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         RDT(61) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         RDT(62) = CByte(L)
         RDT(63) = 0
      Else
         K = SetFSDate(FS_Year, FS_Month, FS_Day)
         L = CInt(K Mod 256)
         DDT(56) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         DDT(57) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         DDT(58) = CByte(L)
         K = (K - L) / 256
         DDT(59) = CByte(K)
         K = SetFSTime(FS_Hour, FS_Minute, FS_Second)
         L = CInt(K Mod 256)
         DDT(60) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         DDT(61) = CByte(L)
         K = (K - L) / 256
         L = K Mod 256
         DDT(62) = CByte(L)
         DDT(63) = 0
      End If
      If FS_CDIR = "/" Then
         ReturnCode = WriteSector(DriveName, FS_DirNumber, 1, RDT())
      Else
         ReturnCode = WriteSector(DriveName, FS_DirNumber, 1, DDT())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Descriptor Table Writing Error !"), 48, " Updating Parent Directory Data"
         Exit Sub
      End If
      If FS_CDIR = "/" Then
         ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, RD_Data())
      Else
         ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, SD_Data())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Data Reading Error !"), 48, " Updating Parent Directory Data"
         Exit Sub
      End If
      If FS_CDIR = "/" Then
         For X = 0 To 511 Step 4
             If (RD_Data(X) = 255 And RD_Data(X + 1) = 255 And RD_Data(X + 2) = 255 And RD_Data(X + 3) = 255) Or (RD_Data(X) = 0 And RD_Data(X + 1) = 0 And RD_Data(X + 2) = 0 And RD_Data(X + 3) = 0) Then
                K = DDT_Location
                L = CInt(K Mod 256)
                RD_Data(X) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                RD_Data(X + 1) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                RD_Data(X + 2) = CByte(L)
                K = (K - L) / 256
                RD_Data(X + 3) = CByte(K)
                Exit For
             End If
          Next X
      Else
         For X = 0 To 511 Step 4
             If (SD_Data(X) = 255 And SD_Data(X + 1) = 255 And SD_Data(X + 2) = 255 And SD_Data(X + 3) = 255) Or (SD_Data(X) = 0 And SD_Data(X + 1) = 0 And SD_Data(X + 2) = 0 And SD_Data(X + 3) = 0) Then
                K = DDT_Location
                L = CInt(K Mod 256)
                SD_Data(X) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                SD_Data(X + 1) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                SD_Data(X + 2) = CByte(L)
                K = (K - L) / 256
                SD_Data(X + 3) = CByte(K)
                Exit For
             End If
          Next X
      End If
      If FS_CDIR = "/" Then
         ReturnCode = WriteSector(DriveName, FS_DirNumber + 1, 1, RD_Data())
      Else
         ReturnCode = WriteSector(DriveName, FS_DirNumber + 1, 1, SD_Data())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Data Writing Error !"), 48, " Updating Parent Directory Data"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + " OK."
      ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
         Exit Sub
      End If
      Rem S1 = CDbl(MAT(15))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(14))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(13))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(12))
      Rem Sector
      Rem DAT_Location = S1 + S2 + S3 + S4
      Rem S1 = CDbl(MAT(19))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(18))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(17))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(16))
      Rem Sector Count
      Rem DAT_SCount = CLng(S1 + S2 + S3 + S4)
      S1 = GetFreeSpace()
      FreeSpace = S1 - SectorCount
      K = DDT_Location
      If SetDATCellValue(DDT_Location, &H6) = 0 Then
         MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
         Exit Sub
      Else
         For K = K + 1 To K + SectorCount - 1
             If SetDATCellValue(K, &HF0) = 0 Then
                MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
                Exit Sub
             End If
         Next K
      End If
      Free_Sectors = FreeSpace
      K = FreeSpace
      L = CInt(K Mod 256)
      MAT(20) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(21) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(22) = CByte(L)
      K = (K - L) / 256
      MAT(23) = CByte(K)
      S1 = CDbl(MAT(27))
      S1 = 16777216 * S1
      S2 = CLng(MAT(26))
      S2 = 65536 * S2
      S3 = CLng(MAT(25))
      S3 = S3 * 256
      S4 = CInt(MAT(24))
      BeginningSector = S1 + S2 + S3 + S4
      K = GetFirstFreeSection(BeginningSector, 1)
      L = CInt(K Mod 256)
      MAT(24) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(25) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(26) = CByte(L)
      K = (K - L) / 256
      MAT(27) = CByte(K)
      ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
         Exit Sub
      End If
      MsgBox ("Directory has been recorded on the Singlix FS '" + FS_CDIR + "' directory as '" + SubDirName + "'"), 0, " Make Singlix FS Sub Directory"
      Label1.Caption = "FS Parent Directory : " + FS_CDIR
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "FS Sub Directory : " + SubDirName
   End If
End If
End Sub

Private Sub fsOpenFile_Click()
Satir = InputBox("FS File (Directory) Name :", " Find First File (or Directory)")
Satir = Trim$(Satir)
L = Len(Satir)
If L < 1 Then Exit Sub
K = FindFirstFile(0, Satir)
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, FDT())
   If ReturnCode = 0 Then
      If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
         Call SetOpenFileStructure(FDT())
         FS_FileName = Trim$(FD.FileName)
         MsgBox ("FS File Name : " + FS_FileName), 0, " Find First File [ Found ]"
      Else
         If FDT(0) = AscB("D") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
            Call SetOpenDirStructure(FDT())
            FS_DirName = Trim$(DD.DirectoryName)
            MsgBox ("FS Directory Name : " + FS_DirName), 0, " Find First File [ Found ]"
         Else
            MsgBox ("File or Directory could not be found!"), 0, " Find First File [ Not Found ]"
         End If
      End If
   Else
      MsgBox ("File or Directory could not be found!"), 0, " Find First File [ Not Found ]"
   End If
Else
   MsgBox ("File or Directory could not be found!"), 0, " Find First File [ Not Found ]"
End If
End Sub

Private Sub fsOpenNextFile_Click()
Satir = InputBox("FS File (Directory) Name :", " Find Next File (or Directory)")
Satir = Trim$(Satir)
L = Len(Satir)
If L < 1 Then Exit Sub
K = FindFirstFile(0, Satir)
If K > 0 Then
   ReturnCode = ReadSector(FFF_DRV, K, 1, FDT())
   If ReturnCode = 0 Then
      If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
         Call SetOpenFileStructure(FDT())
         FS_FileName = Trim$(FD.FileName)
         MsgBox ("FS File Name : " + FS_FileName), 0, " Find Next File [ Found ]"
FNFRepeat1:
         K = FindNextFile()
         If K > 0 Then
            ReturnCode = ReadSector(FFF_DRV, K, 1, FDT())
            If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
               Call SetOpenFileStructure(FDT())
               FS_FileName = Trim$(FD.FileName)
               MsgBox ("FS Next File Name : " + FS_FileName), 0, " Find Next File [ Found ]"
               GoTo FNFRepeat1
            Else
               If FDT(0) = AscB("D") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
                  Call SetOpenDirStructure(FDT())
                  FS_DirName = Trim$(DD.DirectoryName)
                  MsgBox ("FS Next Directory Name : " + FS_DirName), 0, " Find Next File [ Found ]"
                  GoTo FNFRepeat1
               Else
                  Exit Sub
               End If
            End If
         End If
      Else
         If FDT(0) = AscB("D") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
            Call SetOpenDirStructure(FDT())
            FS_DirName = Trim$(DD.DirectoryName)
            MsgBox ("FS Directory Name : " + FS_DirName), 0, " Find Next File [ Found ]"
            GoTo FNFRepeat1
         Else
            MsgBox ("File or Directory could not be found!"), 0, " Find Next File [ Not Found ]"
         End If
      End If
   Else
      MsgBox ("File or Directory could not be found!"), 0, " Find Next File [ Not Found ]"
   End If
Else
   MsgBox ("File or Directory could not be found!"), 0, " Find Next File [ Not Found ]"
End If
End Sub

Private Sub fsRmDir_Click()
Satir = InputBox("FS Directory Name :", " Delete FS Directory")
Satir = Trim$(Satir)
L = Len(Satir)
If L < 1 Then
   Exit Sub
Else
   If L = 1 Then
      If Satir = "/" Then Exit Sub
   End If
End If
K = FindFirstFile(0, Satir)
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, DDT())
   If ReturnCode = 0 Then
      If FDT(0) = AscB("D") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
         Call SetOpenDirStructure(DDT())
      Else
         MsgBox ("Directory could not be found!"), 0, " Delete FS Directory"
         Exit Sub
      End If
   End If
Else
   MsgBox ("Directory could not be found!"), 0, " Delete FS Directory"
   Exit Sub
End If
If K = FS_DirNumber Then
   MsgBox ("Current directory can not be deleted !"), 0, " Delete FS Directory"
   Exit Sub
End If
FS_DirName = Trim$(DD.DirectoryName)
If MsgBox("Do you want to delete directory '" + FS_DirName + "' ?", 36, " Delete FS Directory") <> 6 Then Exit Sub
Dim Z As Long
Dim DirNotEmpty As Boolean
Rem DirNotEmpty = False
FS_DirNumber = DD.ParentDirNumber
FS_DirSerial1 = DD.ParentDirSerial1
FS_DirSerial2 = DD.ParentDirSerial2
Rem ***
REP0:
K = DD.DirectoryNumber
If DD.SectorCount < 1 Then GoTo PASS1
Rem Z = 0
REP1:
Z = Z + 1
ReturnCode = ReadSector(DriveName, K + Z, 1, SD_Data())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading Directory Data"
   Exit Sub
End If
For R = 0 To 511 Step 4
    S1 = CDbl(SD_Data(R + 3))
    S1 = 16777216 * S1
    S2 = CLng(SD_Data(R + 2))
    S2 = 65536 * S2
    S3 = CLng(SD_Data(R + 1))
    S3 = S3 * 256
    S4 = CInt(SD_Data(R))
    FDT_Location = S1 + S2 + S3 + S4
    If FDT_Location > 0 Then
       If FDT_Location < 4294967295# Then
          DirNotEmpty = True
          Exit For
       End If
    Else
       Exit For
    End If
Next R
If DirNotEmpty = False Then
   If FDT_Location = 0 Then GoTo PASS1
   If Z < DD.SectorCount Then
      GoTo REP1
   Else
      If DD.NextDDTNumber > 0 Then
         K = DD.NextDDTNumber
         ReturnCode = ReadSector(DriveName, K, 1, DDT())
         If ReturnCode = 0 Then
            If DDT(0) = AscB("D") And DDT(1) = AscB("D") And DDT(2) = AscB("T") Then
               Call SetOpenDirStructure(DDT())
               Z = 0
               GoTo REP0
            End If
         Else
            MsgBox ("Reading Error !"), 48, " Reading Directory Data"
            Exit Sub
         End If
      End If
   End If
Else
   MsgBox ("Directory is not empty!"), 0, " Delete FS Directory"
   Exit Sub
End If
PASS1:
Rem ***
Rem If FS_DirNumber < 1 Then Exit Sub
ANS:
Rem Erased/Deleted Sign
DDT(2) = AscB("E")
ReturnCode = WriteSector(DriveName, K, 1, DDT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing DDT Sector"
   Exit Sub
End If
FDT_Location = DD.DirectoryNumber
SectorCount = DD.SectorCount
FreeSpace = Free_Sectors + SectorCount + 1
For K = FDT_Location To FDT_Location + SectorCount
    Rem L = CInt(K)
    If SetDATCellValue(K, &H90) = 0 Then
       MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
       Exit Sub
    End If
Next K
Free_Sectors = FreeSpace
ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
   Exit Sub
End If
Rem FreeSectors
K = FreeSpace
L = CInt(K Mod 256)
MAT(20) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(21) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(22) = CByte(L)
K = (K - L) / 256
MAT(23) = CByte(K)
Rem FirstFreeSector
S1 = CDbl(MAT(27))
S1 = 16777216 * S1
S2 = CLng(MAT(26))
S2 = 65536 * S2
S3 = CLng(MAT(25))
S3 = S3 * 256
S4 = CInt(MAT(24))
K = S1 + S2 + S3 + S4
If K > FDT_Location Then
   K = FDT_Location
   L = CInt(K Mod 256)
   MAT(24) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(25) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(26) = CByte(L)
   K = (K - L) / 256
   MAT(27) = CByte(K)
End If
ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
   Exit Sub
End If
SectorCount = SectorCount + FD.SectorCount + 1
K = FD.NextFDTNumber
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, FDT())
   If ReturnCode <> 0 Then Exit Sub
   If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
      Call SetOpenFileStructure(FDT())
   End If
   GoTo ANS
End If
Rem Deleting Entry On Parent Directory Data Sector
K = FS_DirNumber
BNS:
ReturnCode = ReadSector(DriveName, K, 1, DDT())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading Parent DDT Sector"
   Exit Sub
End If
Call SetOpenDirStructure(DDT())
If DD.DDTSign <> "DDT" And DD.DDTSign <> "RDT" Then
   MsgBox ("Invalid Directory Descriptor Table !"), 48, " Reading Parent DDT Sector"
   Exit Sub
End If
If DD.DirectorySerial1 <> FS_DirSerial1 Or DD.DirectorySerial2 <> FS_DirSerial2 Then
   MsgBox ("Wrong Directory Serial Number !"), 48, " Reading Parent DDT Sector"
   Exit Sub
End If
K = DD.DirectoryNumber + 1
SectorCount = DD.SectorCount
Z = 1
CNS:
ReturnCode = ReadSector(DriveName, K, Z, SD_Data())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading Parent Directory Data"
   Exit Sub
End If
For R = 0 To 511 Step 4
    S1 = CDbl(SD_Data(R + 3))
    S1 = 16777216 * S1
    S2 = CLng(SD_Data(R + 2))
    S2 = 65536 * S2
    S3 = CLng(SD_Data(R + 1))
    S3 = S3 * 256
    S4 = CInt(SD_Data(R))
    K = S1 + S2 + S3 + S4
    If FDT_Location = K Then
       Rem Deleting/Erasing Directory Entry
       SD_Data(R) = 255
       SD_Data(R + 1) = 255
       SD_Data(R + 2) = 255
       SD_Data(R + 3) = 255
       Exit For
    Else
       K = 0
    End If
Next R
If K > 0 Then
   K = DD.DirectoryNumber + 1
   ReturnCode = WriteSector(DriveName, K, Z, SD_Data())
   If ReturnCode <> 0 Then
      MsgBox ("Writing Error !"), 48, " Writing Directory Data"
   Else
      MsgBox ("'" + FS_DirName + "' has been deleted..."), 0, " Delete FS Directory"
      Call UpdateFSInfo
   End If
Else
   If Z < SectorCount Then
      Z = Z + 1
      GoTo CNS
   Else
      K = DD.NextDDTNumber
      If K > 0 Then
         GoTo BNS
      Else
         MsgBox ("Directory Entry could not be found !"), 48, " Delete FS Directory [ Error ]"
      End If
   End If
End If

End Sub

Private Sub fsSaveFile_Click()
Label1.Caption = ""
If WinFileName = "" Then
   Label1.Caption = "Windows File : NONE"
   MsgBox ("There is not a loaded Windows file !"), 48, " Save as FS File"
   Label1.Caption = ""
   Exit Sub
End If
FS_FileName = WinFileName
Repeat_After_Removing_Path:
L = Len(FS_FileName)
If L > 1 Then
   For X = 1 To L - 1
       Y = AscB(Mid$(FS_FileName, X, 1))
          If Y = AscB("\") Then
             FS_FileName = Right$(FS_FileName, L - X)
             Exit For
          End If
   Next X
   X = Len(FS_FileName)
   If X <> L Then GoTo Repeat_After_Removing_Path
End If
Repeat1:
Label1.Caption = "FS Directory : " + FS_CDIR
FS_FileName = InputBox("FS File Name :", " Save as Singlix FS File", FS_FileName)
FS_FileName = Trim$(FS_FileName)
L = Len(FS_FileName)
If L > 0 Then
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "FS File : " + FS_FileName
   If L > 64 Then
      MsgBox ("FS File name must not be more then 64 bytes !"), 48, " Save as Singlix FS File"
      GoTo Repeat1
   Else
      For X = 1 To L
          Y = AscB(Mid$(FS_FileName, X, 1))
          If Y = AscB("/") Or Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
             MsgBox ("Invalid file name chars ('/','?','*',':','\') !..."), 48, " Save as Singlix FS File"
             L = 0
             Exit For
          End If
      Next X
      If L < 1 Then GoTo Repeat1
   End If
Else
   Exit Sub
End If
Free_Sectors = GetFreeSpace()
FreeSpace = 512 * Free_Sectors
RequiredSpace = WinFileSize + 512
If FreeSpace < RequiredSpace Then
   MsgBox ("The is no enough free space to save the file on the Singlix File System!..." + Chr$(13) + Chr$(10) + "Free Space = " + CStr(FreeSpace) + " bytes"), 48, " Save as FS File"
   Exit Sub
End If
Rem Sector
K = WinFileSize Mod 512
If K > 0 Then
   SectorCount = ((WinFileSize - K) / 512) + 1
Else
   SectorCount = (WinFileSize - K) / 512
End If
SectorCount = SectorCount + 1
BeginningSector = GetFirstFreeSector()
FDT_Location = GetFirstFreeSection(BeginningSector, SectorCount)
If FDT_Location = 0 Then
   Rem Allocation will be done later, as multi sections
   MsgBox ("Free consecutive sectors are not enough!..."), 48, " Save as FS File"
Else
   Call ResetFDTBuffer
   FD.FDTSign = "FDT"
   FD.FDTVersion = 0
   FD.SectorSize = 512
   FD.FDTNumber = 0
   FD.FileNumber = FDT_Location
   FD.NextFDTNumber = 0
   FD.SectorCount = SectorCount - 1
   FD.ParentDirNumber = FS_DirNumber
   FD.ParentDirSerial1 = FS_DirSerial1
   FD.ParentDirSerial2 = FS_DirSerial2
   FD.FileSize = WinFileSize
   FD.FileSizeHigh = 0
   FD.FileType = 0
   FD.CheckSum = 0
   FD.Attributes = 1
   FD.OwnerCode = 0
   FD.GroupCode = 0
   FD.Country = 90
   FD.TimeZone = 0
   FS_Second = Second(Now)
   FS_Minute = Minute(Now)
   FS_Hour = Hour(Now)
   FS_Day = Day(Now)
   FS_Month = Month(Now)
   FS_Year = Year(Now) - 2000
   FS_Century = 20
   FD.CreatingCentury = SetBCD(FS_Century)
   FD.CreatingYear = SetBCD(FS_Year)
   FD.CreatingMonth = SetBCD(FS_Month)
   FD.CreatingDay = SetBCD(FS_Day)
   FD.CreatingHour = SetBCD(FS_Hour)
   FD.CreatingMinute = SetBCD(FS_Minute)
   FD.CreatingSecond = SetBCD(FS_Second)
   FD.CTimeMode = 0
   FD.LastModifCentury = FD.CreatingCentury
   FD.LastModifYear = FD.CreatingYear
   FD.LastModifMonth = FD.CreatingMonth
   FD.LastModifDay = FD.CreatingDay
   FD.LastModifHour = FD.CreatingHour
   FD.LastModifMinute = FD.CreatingMinute
   FD.LastModifSecond = FD.CreatingSecond
   FD.LMTimeMode = 0
   FD.FileName = FS_FileName
   FD.FileDescription = 0
   Call SetFDTBuffer
   If Chr$(FDT(0)) = "F" And Chr$(FDT(1)) = "D" And Chr$(FDT(2)) = "T" And FDT(3) = 0 And FDT(4) = 0 And FDT(5) = 2 Then
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing FDT Sector..."
      ReturnCode = WriteSector(DriveName, FDT_Location, 1, FDT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing FDT"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + " OK."
      WinFileNumber = FreeFile
      Open WinFileName For Binary As WinFileNumber Len = 1
      If FileLen(WinFileName) <> WinFileSize Then
         MsgBox ("File Error !"), 48, " Writing File Data"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing File Data..."
      X = 0
      BeginningSector = FDT_Location
      For S1 = 1 To WinFileSize
          Get WinFileNumber, S1, Y
          File_Data(X) = Y
          X = X + 1
          If X = 512 Then
             BeginningSector = BeginningSector + 1
             ReturnCode = WriteSector(DriveName, BeginningSector, 1, File_Data())
             If ReturnCode <> 0 Then
                MsgBox ("Writing Error !"), 48, " Writing File Data"
                Exit For
             End If
             X = 0
          End If
      Next S1
      If ReturnCode <> 0 Then Exit Sub
      If X > 0 And X < 512 Then
         For X = X To 511
             File_Data(X) = 0
         Next X
         BeginningSector = BeginningSector + 1
         ReturnCode = WriteSector(DriveName, BeginningSector, 1, File_Data())
         If ReturnCode <> 0 Then
            MsgBox ("Writing Error !"), 48, " Writing File Data"
            Exit Sub
         End If
      End If
      Label1.Caption = Label1.Caption + " OK."
      
      If FS_CDIR = "/" Then
         ReturnCode = ReadSector(DriveName, FS_DirNumber, 1, RDT())
      Else
         ReturnCode = ReadSector(DriveName, FS_DirNumber, 1, DDT())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Descriptor Table Reading Error !"), 48, " Reading Directory Descriptor Table"
         Exit Sub
      End If
      FS_Second = Second(Now)
      FS_Minute = Minute(Now)
      FS_Hour = Hour(Now)
      FS_Day = Day(Now)
      FS_Month = Month(Now)
      FS_Year = Year(Now) - 2000
      FS_Century = 20
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Updating Directory Data..."
      If FS_CDIR = "/" Then
         RDT(56) = SetBCD(FS_Century)
         RDT(57) = SetBCD(FS_Year)
         RDT(58) = SetBCD(FS_Month)
         RDT(59) = SetBCD(FS_Day)
         RDT(60) = SetBCD(FS_Hour)
         RDT(61) = SetBCD(FS_Minute)
         RDT(62) = SetBCD(FS_Second)
         RDT(63) = 0
      Else
         DDT(56) = SetBCD(FS_Century)
         DDT(57) = SetBCD(FS_Year)
         DDT(58) = SetBCD(FS_Month)
         DDT(59) = SetBCD(FS_Day)
         DDT(60) = SetBCD(FS_Hour)
         DDT(61) = SetBCD(FS_Minute)
         DDT(62) = SetBCD(FS_Second)
         DDT(63) = 0
      End If
      If FS_CDIR = "/" Then
         ReturnCode = WriteSector(DriveName, FS_DirNumber, 1, RDT())
      Else
         ReturnCode = WriteSector(DriveName, FS_DirNumber, 1, DDT())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Descriptor Table Writing Error !"), 48, " Updating Directory Data"
         Exit Sub
      End If
      If FS_CDIR = "/" Then
         ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, RD_Data())
      Else
         ReturnCode = ReadSector(DriveName, FS_DirNumber + 1, 1, SD_Data())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Data Reading Error !"), 48, " Updating Directory Data"
         Exit Sub
      End If
      If FS_CDIR = "/" Then
         For X = 0 To 511 Step 4
             If (RD_Data(X) = 255 And RD_Data(X + 1) = 255 And RD_Data(X + 2) = 255 And RD_Data(X + 3) = 255) Or (RD_Data(X) = 0 And RD_Data(X + 1) = 0 And RD_Data(X + 2) = 0 And RD_Data(X + 3) = 0) Then
                K = FDT_Location
                L = CInt(K Mod 256)
                RD_Data(X) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                RD_Data(X + 1) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                RD_Data(X + 2) = CByte(L)
                K = (K - L) / 256
                RD_Data(X + 3) = CByte(K)
                Exit For
             End If
          Next X
      Else
         For X = 0 To 511 Step 4
             If (SD_Data(X) = 255 And SD_Data(X + 1) = 255 And SD_Data(X + 2) = 255 And SD_Data(X + 3) = 255) Or (SD_Data(X) = 0 And SD_Data(X + 1) = 0 And SD_Data(X + 2) = 0 And SD_Data(X + 3) = 0) Then
                K = FDT_Location
                L = CInt(K Mod 256)
                SD_Data(X) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                SD_Data(X + 1) = CByte(L)
                K = (K - L) / 256
                L = K Mod 256
                SD_Data(X + 2) = CByte(L)
                K = (K - L) / 256
                SD_Data(X + 3) = CByte(K)
                Exit For
             End If
          Next X
      End If
      If FS_CDIR = "/" Then
         ReturnCode = WriteSector(DriveName, FS_DirNumber + 1, 1, RD_Data())
      Else
         ReturnCode = WriteSector(DriveName, FS_DirNumber + 1, 1, SD_Data())
      End If
      If ReturnCode <> 0 Then
         MsgBox ("Directory Data Writing Error !"), 48, " Updating Directory Data"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + " OK."
      ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
         Exit Sub
      End If
      Rem S1 = CDbl(MAT(15))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(14))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(13))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(12))
      Rem Sector
      Rem DAT_Location = S1 + S2 + S3 + S4
      Rem S1 = CDbl(MAT(19))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(18))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(17))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(16))
      Rem Sector Count
      Rem DAT_SCount = CLng(S1 + S2 + S3 + S4)
      L = WinFileSize Mod 512
      If L > 0 Then
         K = ((WinFileSize - L) / 512) + 1
      Else
         K = (WinFileSize / 512) + 1
      End If
      S1 = GetFreeSpace()
      FreeSpace = S1 - (K + 1)
      If SetDATCellValue(FDT_Location, &HF) = 0 Then
         MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
         Exit Sub
      End If
      For K = FDT_Location + 1 To FDT_Location + K
          If SetDATCellValue(K, &HF0) = 0 Then
             MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
             Exit Sub
          End If
      Next K
      Free_Sectors = FreeSpace
      K = FreeSpace
      L = CInt(K Mod 256)
      MAT(20) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(21) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(22) = CByte(L)
      K = (K - L) / 256
      MAT(23) = CByte(K)
      S1 = CDbl(MAT(27))
      S1 = 16777216 * S1
      S2 = CLng(MAT(26))
      S2 = 65536 * S2
      S3 = CLng(MAT(25))
      S3 = S3 * 256
      S4 = CInt(MAT(24))
      BeginningSector = S1 + S2 + S3 + S4
      K = GetFirstFreeSection(BeginningSector, 1)
      L = CInt(K Mod 256)
      MAT(24) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(25) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(26) = CByte(L)
      K = (K - L) / 256
      MAT(27) = CByte(K)
      ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
         Exit Sub
      End If
      MsgBox ("File has been recorded on the Singlix FS '" + FS_CDIR + "' directory as '" + FS_FileName + "'"), 0, " Save Open/Windows File as Singlix FS File"
      Label1.Caption = "FS Directory : " + FS_CDIR
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "FS File : " + FS_FileName
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "File Size: " + CStr(WinFileSize) + " bytes."
   End If
End If
End Sub

Private Sub WinOpenFile_Click()
CommonDialog1.DialogTitle = "OPEN FILE"
CommonDialog1.FileName = Chr(0)
Rem CommonDialog1.Filter = "All files (*.*)|*.*|EXE files (*.exe)|*.exe|COM files (*.com)|*.com|BIN files (*.bin)|*.bin |SYS files (*.sys)|*.sys|DLL files (*.dll)|*.dll|HEX files (*.hex) IMPORT|*.hex"
CommonDialog1.Flags = OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or OFN_EXPLORER
On Error Resume Next
CommonDialog1.ShowOpen
If Err = 0 Then
   WinFileName = CommonDialog1.FileName
   WinFileSize = FileLen(WinFileName)
   If WinFileSize < 1 Then
      WinFileName = ""
   End If
Else
   If Err <> 32755 Then
      WinFileName = ""
      GoTo ErrMsg
   Else
      Exit Sub
   End If
End If
If WinFileName <> "" Then
   WinFileSize = FileLen(WinFileName)
   WinFileCDateTime = FileDateTime(WinFileName)
   Label1.Caption = "Windows File Name : " + WinFileName + Chr$(13) + Chr$(10) + "Windows File Size : " + CStr(WinFileSize) + " bytes" + Chr$(13) + Chr$(10) + "File Date and Time : " + WinFileCDateTime
Else
   Label1.Caption = "Open Windows File : NONE"
End If
Exit Sub
ErrMsg:
Beep
MsgBox ("File could not open!..." + Chr$(13) + Chr$(13) + "Error Number: " + Str$(Err)), 48, "! ERROR !"
End Sub

Private Function GetFreeSpace() As Double
   S1 = CDbl(MAT(23))
   S1 = 16777216 * S1
   S2 = CLng(MAT(22))
   S2 = 65536 * S2
   S3 = CLng(MAT(21))
   S3 = S3 * 256
   S4 = CInt(MAT(20))
   GetFreeSpace = S1 + S2 + S3 + S4
End Function

Private Function GetFirstFreeSector() As Double
   S1 = CDbl(MAT(27))
   S1 = 16777216 * S1
   S2 = CLng(MAT(26))
   S2 = 65536 * S2
   S3 = CLng(MAT(25))
   S3 = S3 * 256
   S4 = CInt(MAT(24))
   GetFirstFreeSector = S1 + S2 + S3 + S4
End Function

Private Function GetFirstFreeSection(BSect As Double, SCount As Double) As Double
Dim C As Integer
Dim B As Double
If BSect > Volume_Size - 1 Then
   GetFirstFreeSection = 0
   Exit Function
Else
   If SCount < 1 Or SCount > Volume_Size - 1 Then
      GetFirstFreeSection = 0
      Exit Function
   End If
End If
C = 0
GetFirstFreeSection = 0
For B = BSect To Volume_Size - 1
    If GetDATCellValue(B) = &H90 Then
       If C < SCount Then
          C = C + 1
       Else
          GetFirstFreeSection = B - C
          Exit For
       End If
    Else
       If C > 0 Then C = 0
    End If
Next B
End Function

Private Function ResetFDTBuffer()
For X = 0 To 511
    FDT(X) = 0
Next X
End Function

Private Function SetFDTBuffer()
Dim L As Double
   For X = 0 To 2
       FDT(X) = AscB(Mid$(FD.FDTSign, X + 1, 1))
   Next X
   FDT(3) = FD.FDTVersion
   L = FD.SectorSize Mod 256
   FDT(4) = CByte(L)
   L = FD.SectorSize - L
   L = L / 256
   FDT(5) = CByte(L)
   L = FD.FDTNumber Mod 256
   FDT(6) = CByte(L)
   L = FD.FDTNumber - L
   L = L / 256
   FDT(7) = CByte(L)
   K = FD.FileNumber
   L = CInt(K Mod 256)
   FDT(8) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(9) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(10) = CByte(L)
   K = (K - L) / 256
   FDT(11) = CByte(K)
   K = FD.NextFDTNumber
   L = CInt(K Mod 256)
   FDT(12) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(13) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(14) = CByte(L)
   K = (K - L) / 256
   FDT(15) = CByte(K)
   K = FD.SectorCount
   L = CInt(K Mod 256)
   FDT(16) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(17) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(18) = CByte(L)
   K = (K - L) / 256
   FDT(19) = CByte(K)
   K = FD.ParentDirNumber
   L = CInt(K Mod 256)
   FDT(20) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(21) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(22) = CByte(L)
   K = (K - L) / 256
   FDT(23) = CByte(K)
   K = FD.ParentDirSerial1
   L = K Mod 256
   FDT(24) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(25) = CByte(L)
   K = FD.ParentDirSerial2
   L = K Mod 256
   FDT(26) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(27) = CByte(L)
   K = FD.FileSize
   L = CInt(K Mod 256)
   FDT(28) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(29) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   FDT(30) = CByte(L)
   K = (K - L) / 256
   FDT(31) = CByte(K)
   L = CInt(FD.FileSizeHigh Mod 256)
   FDT(32) = CByte(L)
   L = FD.FileSizeHigh - L
   L = L / 256
   FDT(33) = CByte(L)
   L = CInt(FD.FileType Mod 256)
   FDT(34) = CByte(L)
   L = FD.FileType - L
   L = L / 256
   FDT(35) = CByte(L)
   FDT(36) = FD.CheckSum
   FDT(37) = FD.Attributes
   For X = 38 To 45
       Rem Reserved for TR-Multix, not in use
       FDT(X) = 0
   Next X
   FDT(46) = FD.Country
   FDT(47) = FD.TimeZone
   FDT(48) = FD.CreatingCentury
   FDT(49) = FD.CreatingYear
   FDT(50) = FD.CreatingMonth
   FDT(51) = FD.CreatingDay
   FDT(52) = FD.CreatingHour
   FDT(53) = FD.CreatingMinute
   FDT(54) = FD.CreatingSecond
   FDT(55) = FD.CTimeMode
   FDT(56) = FD.LastModifCentury
   FDT(57) = FD.LastModifYear
   FDT(58) = FD.LastModifMonth
   FDT(59) = FD.LastModifDay
   FDT(60) = FD.LastModifHour
   FDT(61) = FD.LastModifMinute
   FDT(62) = FD.LastModifSecond
   FDT(63) = FD.LMTimeMode
   Satir = Trim$(FD.FileName)
   L = Len(Satir)
   If L > 0 Then
      For X = 1 To L
          FDT(63 + X) = AscB(Mid$(Satir, X, 1))
      Next X
   End If
   If L < 64 Then
      For X = L + 1 To 64
          FDT(63 + X) = 0
      Next X
   End If
   Satir = Trim$(FD.FileDescription)
   L = Len(Satir)
   If L > 0 Then
      For X = 1 To L
          FDT(127 + X) = AscB(Mid$(Satir, X, 1))
      Next X
   End If
   If L < 128 Then
      For X = L + 1 To 128
          FDT(127 + X) = 0
      Next X
   End If
End Function

Private Function SetFSDate(Y As Integer, M As Integer, D As Integer) As Double
If Y > 2020 Or Y < 2008 Then
   Y = Year(Now)
End If
If M > 12 Or M < 1 Then
   M = Month(Now)
End If
If D > 31 Or D < 1 Then
   D = Day(Now)
End If
SetFSDate = Y * 65536
SetFSDate = (M * 256) + SetFSDate
SetFSDate = D + SetFSDate
End Function

Private Function SetFSTime(H As Integer, M As Integer, S As Integer) As Double
If H > 24 Or H < 0 Then
   H = Hour(Now)
End If
If M > 59 Or M < 0 Then
   M = Minute(Now)
End If
If S > 59 Or S < 0 Then
   S = Second(Now)
End If
SetFSTime = H * 65536
SetFSTime = (M * 256) + SetFSTime
SetFSTime = S + SetFSTime
End Function

Private Function WriteSector(DrvName As String, Sector As Double, SectorCount As Long, Buffer() As Byte) As Long
   Dim SB As Long
   SB = CLng(SectorCount * BytesPerSector)
   WriteSector = DirectWriteDriveNT(DrvName, CLng(Sector + PartitionStartSector), 0, Buffer(), SB)
   If WriteSector > 0 Then
      WriteSector = 0
   Else
      WriteSector = -1
   End If
End Function

Public Function OpenFile(DrvName As String, FileNumber As Double) As Integer
Dim LL As Long
ReturnCode = ReadSector(DrvName, FileNumber, 1, FDT())
If ReturnCode <> 0 Then
OF_FDT_ReadError:
   MsgBox ("File Descriptor Table Reading Error !"), 48, " Reading File Descriptor Table"
   OpenFile = 0
   Exit Function
Else
   If Chr$(FDT(0)) <> "F" Or Chr$(FDT(1)) <> "D" Or Chr$(FDT(2)) <> "T" Or FDT(3) <> 0 Or FDT(4) <> 0 Or FDT(5) <> 2 Then
      GoTo OF_FDT_ReadError
   End If
   Call SetOpenFileStructure(FDT())
   OpenFile = FreeFile
   FS_FileName = Trim$(FD.FileName)
   If Dir(FS_FileName) = FS_FileName Then
      Kill FS_FileName
   End If
   Open FS_FileName For Binary As OpenFile Len = 1
   Rem MultiSection reading is not ready yet !
   SectorCount = FD.SectorCount
   Rem LL = 0
   For K = 1 To SectorCount
       ReturnCode = ReadSector(DriveName, FileNumber + K, 1, File_Data())
       If ReturnCode <> 0 Then Exit For
       If FD.FileSize > LL + 512 Then
          For X = 0 To 511
              LL = LL + 1
              Y = File_Data(X)
              Put OpenFile, LL, Y
          Next X
       Else
          If FD.FileSize > LL Then
             For X = 0 To (FD.FileSize - LL) - 1
                 LL = LL + 1
                 Y = File_Data(X)
                 Put OpenFile, LL, Y
             Next X
          End If
          Exit For
       End If
   Next K
   If ReturnCode <> 0 Then
OF_File_ReadError:
          MsgBox ("File Reading Error !"), 48, " Reading File Data"
          Close OpenFile
          Kill FS_FileName
          OpenFile = 0
   Else
       Close OpenFile
       If FileLen(FS_FileName) <> FD.FileSize Then
          MsgBox ("File Size Error !"), 48, " Reading File Data"
          Kill FS_FileName
          OpenFile = 0
       Else
          Form1.Label1.Caption = "Open FS File : " + FS_FileName
       End If
   End If
End If
End Function

Private Sub SetOpenFileStructure(Buffer() As Byte)
   FD.FDTSign = Chr(Buffer(0)) + Chr(Buffer(1)) + Chr(Buffer(2))
   FD.FDTVersion = Buffer(3)
   FD.SectorSize = Buffer(5) * 256 + Buffer(4)
   S2 = CLng(Buffer(7))
   S2 = 256 * S2
   S3 = CInt(Buffer(6))
   FD.FDTNumber = S2 + S3
   S1 = CDbl(Buffer(11))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(10))
   S2 = 65536 * S2
   S3 = CLng(Buffer(9))
   S3 = S3 * 256
   S4 = CInt(Buffer(8))
   FD.FileNumber = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(15))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(14))
   S2 = 65536 * S2
   S3 = CLng(Buffer(13))
   S3 = S3 * 256
   S4 = CInt(Buffer(12))
   FD.NextFDTNumber = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(19))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(18))
   S2 = 65536 * S2
   S3 = CLng(Buffer(17))
   S3 = S3 * 256
   S4 = CInt(Buffer(16))
   FD.SectorCount = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(23))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(22))
   S2 = 65536 * S2
   S3 = CLng(Buffer(21))
   S3 = S3 * 256
   S4 = CInt(Buffer(20))
   FD.ParentDirNumber = S1 + S2 + S3 + S4
   S1 = CLng(Buffer(27))
   S1 = CLng(256 * S1)
   S2 = CLng(Buffer(26))
   S3 = CLng(Buffer(25))
   S3 = CLng(S3 * 256)
   S4 = CInt(Buffer(24))
   FD.ParentDirSerial2 = S1 + S2
   FD.ParentDirSerial1 = S3 + S4
   S1 = CDbl(Buffer(31))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(30))
   S2 = 65536 * S2
   S3 = CLng(Buffer(29))
   S3 = S3 * 256
   S4 = CInt(Buffer(28))
   FD.FileSize = S1 + S2 + S3 + S4
   FD.FileSizeHigh = Buffer(33) * 256 + Buffer(32)
   FD.FileType = Buffer(35) * 256 + Buffer(34)
   FD.CheckSum = Buffer(36)
   FD.Attributes = Buffer(37)
   FD.OwnerCode = 0
   FD.GroupCode = 0
   FD.Country = Buffer(46)
   FD.TimeZone = Buffer(47)
   FD.CreatingCentury = Buffer(48)
   FD.CreatingYear = Buffer(49)
   FD.CreatingMonth = Buffer(50)
   FD.CreatingDay = Buffer(51)
   FD.CreatingHour = Buffer(52)
   FD.CreatingMinute = Buffer(53)
   FD.CreatingSecond = Buffer(54)
   FD.CTimeMode = Buffer(55)
   FD.LastModifCentury = Buffer(56)
   FD.LastModifYear = Buffer(57)
   FD.LastModifMonth = Buffer(58)
   FD.LastModifDay = Buffer(59)
   FD.LastModifHour = Buffer(60)
   FD.LastModifMinute = Buffer(61)
   FD.LastModifSecond = Buffer(62)
   FD.LMTimeMode = Buffer(63)
   Satir = ""
   For X = 1 To 64
       Y = Buffer(63 + X)
       If Y > 0 Then
          Satir = Satir + Chr(Y)
       Else
          Exit For
       End If
   Next X
   FD.FileName = Satir
   Satir = ""
   For X = 1 To 128
       Y = Buffer(127 + X)
       If Y > 0 Then
          Satir = Satir + Chr(Y)
       Else
          Exit For
       End If
   Next X
   FD.FileDescription = Satir
End Sub

Private Sub ResetDDTBuffer()
For X = 0 To 511
    DDT(X) = 0
Next X
End Sub

Private Function SetDDTBuffer()
For X = 0 To 2
    DDT(X) = AscB(Mid$(DD.DDTSign, X + 1, 1))
Next X
DDT(3) = DD.DDTVersion
L = DD.SectorSize Mod 256
DDT(4) = CByte(L)
L = DD.SectorSize - L
L = L / 256
DDT(5) = CByte(L)
L = DD.DDTNumber Mod 256
DDT(6) = CByte(L)
L = DD.DDTNumber - L
L = L / 256
DDT(7) = CByte(L)
K = DD.DirectoryNumber
L = CInt(K Mod 256)
DDT(8) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(9) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(10) = CByte(L)
K = (K - L) / 256
DDT(11) = CByte(K)
K = DD.NextDDTNumber
L = CInt(K Mod 256)
DDT(12) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(13) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(14) = CByte(L)
K = (K - L) / 256
DDT(15) = CByte(K)
K = DD.SectorCount
L = CInt(K Mod 256)
DDT(16) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(17) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(18) = CByte(L)
K = (K - L) / 256
DDT(19) = CByte(K)
K = DD.ParentDirNumber
L = CInt(K Mod 256)
DDT(20) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(21) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(22) = CByte(L)
K = (K - L) / 256
DDT(23) = CByte(K)
K = DD.ParentDirSerial1
L = K Mod 256
DDT(24) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(25) = CByte(L)
K = DD.ParentDirSerial2
L = K Mod 256
DDT(26) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(27) = CByte(L)
K = DD.DirectorySerial1
L = K Mod 256
DDT(28) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(29) = CByte(L)
K = DD.DirectorySerial2
L = K Mod 256
DDT(30) = CByte(L)
K = (K - L) / 256
L = K Mod 256
DDT(31) = CByte(L)
DDT(32) = &H4
Rem Sub Directory Level (Must Be Modified Later)
DDT(33) = 0
L = CInt(DD.DirectoryType Mod 256)
DDT(34) = CByte(L)
L = DD.DirectoryType - L
L = L / 256
DDT(35) = CByte(L)
DDT(36) = DD.CheckSum
DDT(37) = DD.Attributes
For X = 38 To 45
DDT(X) = 0
Next X
DDT(46) = DD.Country
DDT(47) = DD.TimeZone
DDT(48) = DD.CreatingCentury
DDT(49) = DD.CreatingYear
DDT(50) = DD.CreatingMonth
DDT(51) = DD.CreatingDay
DDT(52) = DD.CreatingHour
DDT(53) = DD.CreatingMinute
DDT(54) = DD.CreatingSecond
DDT(55) = DD.CTimeMode
DDT(56) = DD.LastModifCentury
DDT(57) = DD.LastModifYear
DDT(58) = DD.LastModifMonth
DDT(59) = DD.LastModifDay
DDT(60) = DD.LastModifHour
DDT(61) = DD.LastModifMinute
DDT(62) = DD.LastModifSecond
DDT(63) = DD.LMTimeMode
Satir = Trim$(DD.DirectoryName)
L = Len(Satir)
If L > 0 Then
   For X = 1 To L
       DDT(63 + X) = AscB(Mid$(Satir, X, 1))
   Next X
End If
If L < 64 Then
   For X = L + 1 To 64
       DDT(63 + X) = 0
   Next X
End If
Satir = Trim$(DD.DirectoryDescription)
L = Len(Satir)
If L > 0 Then
   For X = 1 To L
       DDT(127 + X) = AscB(Mid$(Satir, X, 1))
   Next X
End If
If L < 128 Then
   For X = L + 1 To 128
       DDT(127 + X) = 0
   Next X
End If
End Function

Private Function FindFirstFile(Drive As Integer, File As String) As Double
Rem Found First File - Drive Number
FFF_DRV = 0
Rem Found First File - File Name
FFF_FNAME = ""
Rem Found First File - Directory Descriptor Table Location
FFF_DDT = 0
Rem Found First File - Directory Data Sector
FFF_DSEC = 0
Rem Found First File - Directory Entry Number
FFF_DENUM = 0
Rem Above parameters are for FindNextFile Procedures
Rem They will be assigned/valid if the first proper file wiil be found.
Call ParseFileName(Drive, File, DirNameBuffer())
FindFirstFile = 0
If PName <> "" And FName <> "" Then
   DDT_Location = LocateOnDirectory(0, PName)
   If DDT_Location = 0 Then
      Exit Function
   Else
      If PName = "/" Then
         ReturnCode = ReadSector(DriveName, DDT_Location, 1, RDT())
         If ReturnCode <> 0 Then
            Exit Function
         End If
         Call SetOpenDirStructure(RDT())
      Else
         Call SetOpenDirStructure(DDT())
      End If
   End If
Repeat1:
   Rem If DD.SectorCount < 1 Then
      Rem FindFirstFile = 0
      Rem Exit Function
   Rem End If
   For K = 1 To DD.SectorCount
       ReturnCode = ReadSector(DriveName, DDT_Location + K, 1, SD_Data())
       If ReturnCode <> 0 Then
          Exit Function
       End If
       For R = 0 To 511 Step 4
           File = ""
           S1 = CDbl(SD_Data(R + 3))
           S1 = 16777216 * S1
           S2 = CLng(SD_Data(R + 2))
           S2 = 65536 * S2
           S3 = CLng(SD_Data(R + 1))
           S3 = S3 * 256
           S4 = CInt(SD_Data(R))
           FDT_Location = S1 + S2 + S3 + S4
           If FDT_Location < 1 Then Exit For
           If FDT_Location < 4294967295# Then
              ReturnCode = ReadSector(DriveName, FDT_Location, 1, FDT())
              If ReturnCode <> 0 Then
                 FDT_Location = 0
                 Exit For
              End If
              For X = 1 To 64
                  Y = FDT(63 + X)
                  If Y = 0 Then Exit For
                  File = File + Chr(Y)
              Next X
              If NameCmp(FName, File) <> False Then
                 FFF_DRV = Drive
                 FFF_FNAME = FName
                 FFF_DDT = DDT_Location
                 FFF_DSEC = CLng(K)
                 FFF_DENUM = R / 4
                 Exit For
              End If
           End If
       Next R
       If FDT_Location < 1 Then Exit For
   Next K
   If FDT_Location < 1 Then Exit Function
   If File = "" Then
      K = DD.NextDDTNumber
      If K > 0 Then
         ReturnCode = ReadSector(DriveName, K, 1, DDT())
         If ReturnCode = 0 Then
            Call SetOpenDirStructure(DDT())
            If DD.DDTSign = "DDT" Or DD.DDTSign = "RDT" Then
               DDT_Location = K
               GoTo Repeat1
            End If
         End If
      End If
   Else
      FindFirstFile = FDT_Location
   End If
End If
End Function

Private Function ParseFileName(Drive As Integer, File As String, NBuffer() As Byte) As Integer
Dim CDir As String
Dim C As Integer
Dim S As Integer
Dim T As Integer
Dim P As Integer
PName = ""
FName = ""
ParseFileName = 0
File = Trim$(File)
L = Len(File)
If L < 1 Then Exit Function
For X = 1 To L
    Y = AscB(Mid$(File, X, 1))
    If Y = AscB("/") Then
       S = X
    End If
Next X
If S < L Then
   FName = Right$(File, L - S)
End If
If S > 0 Then
   PName = Left$(File, S)
End If
L = Len(PName)
If L > 0 Then
   For X = 1 To L
       Y = AscB(Mid$(PName, X, 1))
       If Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
          L = -1
          Exit For
       End If
   Next X
End If
If L < 0 Then Exit Function
L = Len(FName)
If L > 0 Then
   For X = 1 To L
       Y = AscB(Mid$(FName, X, 1))
       If Y = AscB("/") Or Y = AscB(":") Or Y = AscB("\") Then
          L = -1
          Exit For
       End If
   Next X
End If
If L < 0 Then Exit Function
If FS_DirName = "" Then FS_DirName = "/"
If PName <> "" Then
   If Left$(PName, 1) <> "/" Then
      If Right$(FS_DirName, 1) <> "/" Then
         FS_DirName = FS_DirName + "/"
      End If
      PName = FS_DirName + PName
   End If
Else
   Rem Current Directory, no path
   Rem !!! NOTE Here !!! Remove That Later !!! PName Must Be Empty !
   PName = FS_DirName
End If
L = Len(PName)
If L > 512 Then
   L = 512
   S = 0
   For X = 1 To L
       Y = AscB(Mid$(PName, X, 1))
       If Y = AscB("/") Then
          S = X
       End If
   Next X
   PName = Left$(PName, S)
End If
End Function

Private Function LocateOnDirectory(Drive As Integer, Directory As String) As Double
Dim LDir As String
Dim C As String * 1
Dim S As Integer
Dim D As Double
L = Len(Directory)
If L > 1 Then
   If Left$(Directory, 1) = "/" Then
      LocateOnDirectory = RDT_Location
      S = 2
   Else
      LocateOnDirectory = DDT_Location
      S = 1
   End If
Else
   If Directory = "/" Then
      LocateOnDirectory = RDT_Location
      S = 2
   Else
      LocateOnDirectory = DDT_Location
      S = 1
   End If
End If
If S > L Or LocateOnDirectory < 1 Then Exit Function
X = S
S = 0
For X = X To L
    C = Mid$(Directory, X, 1)
    If C <> "/" Then
       LDir = LDir + C
    Else
       S = X
       Exit For
    End If
Next X
If S = 0 Then S = L
LODRepeat:
If LDir = "" Then
   LocateOnDirectory = 0
   Exit Function
End If
ReturnCode = ReadSector(DriveName, LocateOnDirectory, 1, DDT())
If ReturnCode <> 0 Then
   LocateOnDirectory = 0
   Exit Function
Else
   Call SetOpenDirStructure(DDT())
End If
If (DD.DDTSign <> "DDT" And DD.DDTSign <> "RDT") Or DD.DDTVersion <> 0 Or DD.SectorSize <> 512 Or DD.SectorCount < 1 Then
   LocateOnDirectory = 0
   Exit Function
End If
For K = 1 To DD.SectorCount
    ReturnCode = ReadSector(DriveName, LocateOnDirectory + K, 1, SD_Data())
    If ReturnCode <> 0 Then
       LocateOnDirectory = 0
       Exit For
    Else
       For D = 0 To 511 Step 4
           S1 = CDbl(SD_Data(D + 3))
           S1 = 16777216 * S1
           S2 = CLng(SD_Data(D + 2))
           S2 = 65536 * S2
           S3 = CLng(SD_Data(D + 1))
           S3 = S3 * 256
           S4 = CInt(SD_Data(D))
           DDT_Location = S1 + S2 + S3 + S4
           If DDT_Location = 0 Then
              LocateOnDirectory = 0
              Exit For
           End If
           If DDT_Location < 4294967295# Then
              ReturnCode = ReadSector(DriveName, DDT_Location, 1, DDT())
              FS_DirName = ""
              If ReturnCode = 0 Then
                 If DDT(0) = AscB("D") And DDT(1) = AscB("D") And DDT(2) = AscB("T") Then
                    For X = 1 To 64
                        Y = DDT(63 + X)
                        If Y > 0 Then
                           FS_DirName = FS_DirName + Chr$(Y)
                        Else
                           Exit For
                        End If
                    Next X
                 End If
                 If FS_DirName <> "" Then
                    If Trim$(FS_DirName) = LDir Then
                       LocateOnDirectory = DDT_Location
                       Exit For
                    End If
                 End If
              Else
                 LocateOnDirectory = 0
                 Exit For
              End If
           End If
       Next D
    End If
Next K
If LocateOnDirectory = 0 Then Exit Function
If S < L Then
   LDir = ""
   For X = S + 1 To L
       C = Mid$(Directory, X, 1)
       If C <> "/" Then
          S = S + 1
          LDir = LDir + C
       Else
          S = X
          Exit For
       End If
   Next X
   GoTo LODRepeat
End If
End Function

Private Sub SetOpenDirStructure(Buffer() As Byte)
   DD.DDTSign = Chr(Buffer(0)) + Chr(Buffer(1)) + Chr(Buffer(2))
   DD.DDTVersion = Buffer(3)
   DD.SectorSize = Buffer(5) * 256 + Buffer(4)
   S2 = CLng(Buffer(7))
   S2 = 256 * S2
   S3 = CInt(Buffer(6))
   DD.DDTNumber = S2 + S3
   S1 = CDbl(Buffer(11))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(10))
   S2 = 65536 * S2
   S3 = CLng(Buffer(9))
   S3 = S3 * 256
   S4 = CInt(Buffer(8))
   DD.DirectoryNumber = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(15))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(14))
   S2 = 65536 * S2
   S3 = CLng(Buffer(13))
   S3 = S3 * 256
   S4 = CInt(Buffer(12))
   DD.NextDDTNumber = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(19))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(18))
   S2 = 65536 * S2
   S3 = CLng(Buffer(17))
   S3 = S3 * 256
   S4 = CInt(Buffer(16))
   DD.SectorCount = S1 + S2 + S3 + S4
   S1 = CDbl(Buffer(23))
   S1 = 16777216 * S1
   S2 = CLng(Buffer(22))
   S2 = 65536 * S2
   S3 = CLng(Buffer(21))
   S3 = S3 * 256
   S4 = CInt(Buffer(20))
   DD.ParentDirNumber = S1 + S2 + S3 + S4
   S1 = CLng(Buffer(27))
   S1 = CLng(256 * S1)
   S2 = CLng(Buffer(26))
   S3 = CLng(Buffer(25))
   S3 = CLng(S3 * 256)
   S4 = CInt(Buffer(24))
   DD.ParentDirSerial2 = S1 + S2
   DD.ParentDirSerial1 = S3 + S4
   S1 = CLng(Buffer(31))
   S1 = CLng(256 * S1)
   S2 = CLng(Buffer(30))
   S3 = CLng(Buffer(29))
   S3 = CLng(S3 * 256)
   S4 = CInt(Buffer(28))
   DD.DirectorySerial2 = S1 + S2
   DD.DirectorySerial1 = S3 + S4
   DD.EntrySize = Buffer(33) * 256 + Buffer(32)
   DD.DirectoryType = Buffer(35) * 256 + Buffer(34)
   DD.CheckSum = Buffer(36)
   DD.Attributes = Buffer(37)
   DD.OwnerCode = 0
   DD.GroupCode = 0
   DD.Country = Buffer(46)
   DD.TimeZone = Buffer(47)
   DD.CreatingCentury = Buffer(48)
   DD.CreatingYear = Buffer(49)
   DD.CreatingMonth = Buffer(50)
   DD.CreatingDay = Buffer(51)
   DD.CreatingHour = Buffer(52)
   DD.CreatingMinute = Buffer(53)
   DD.CreatingSecond = Buffer(54)
   DD.CTimeMode = Buffer(55)
   DD.LastModifCentury = Buffer(56)
   DD.LastModifYear = Buffer(57)
   DD.LastModifMonth = Buffer(58)
   DD.LastModifDay = Buffer(59)
   DD.LastModifHour = Buffer(60)
   DD.LastModifMinute = Buffer(61)
   DD.LastModifSecond = Buffer(62)
   DD.LMTimeMode = Buffer(63)
   Satir = ""
   For X = 1 To 64
       Y = Buffer(63 + X)
       If Y > 0 Then
          Satir = Satir + Chr(Y)
       Else
          Exit For
       End If
   Next X
   DD.DirectoryName = Satir
   Satir = ""
   For X = 1 To 128
       Y = Buffer(127 + X)
       If Y > 0 Then
          Satir = Satir + Chr(Y)
       Else
          Exit For
       End If
   Next X
   DD.DirectoryDescription = Satir
End Sub

Public Function ChangeDirectory(Drive As Integer, Directory As String) As Double
Call ParseFileName(Drive, Directory, DirNameBuffer())
Rem If PName <> "" And FName <> "" Then
If PName <> "" Then
   If FName <> "" Then
      If PName = "/" Then
         SubDirName = "/" + FName
      Else
         If Right$(PName, 1) <> "/" Then
            SubDirName = PName + "/" + FName
         Else
            SubDirName = PName + FName
         End If
      End If
   Else
      SubDirName = PName
   End If
   ChangeDirectory = LocateOnDirectory(0, SubDirName)
Else
   If FName <> "" Then
      SubDirName = FName
      ChangeDirectory = LocateOnDirectory(0, SubDirName)
   Else
      ChangeDirectory = 0
   End If
End If
If ChangeDirectory > 0 Then
   FS_CDIR = SubDirName
   FS_DirNumber = ChangeDirectory
End If
End Function

Private Sub FillFlexGridCells()
ReturnCode = ReadSector(DriveName, FDT_Location, 1, FDT())
If ReturnCode = 0 Then
   FS_FileName = ""
   For S4 = 1 To 64
       Y = FDT(63 + S4)
       If Asc(Y) > 0 Then
          FS_FileName = FS_FileName + Chr$(Y)
       Else
          Exit For
       End If
   Next S4
   R = R + 1
   frmListe.MSFlexGrid1.Rows = R + 1
   frmListe.MSFlexGrid1.Row = R
   frmListe.MSFlexGrid1.Col = 0
   frmListe.MSFlexGrid1.Text = CStr(FDT_Location)
   frmListe.MSFlexGrid1.Col = 1
   frmListe.MSFlexGrid1.Text = FS_FileName
   frmListe.MSFlexGrid1.Col = 2
   If Chr(FDT(0)) = "F" And Chr(FDT(1)) = "D" And Chr(FDT(2)) = "T" Then
      frmListe.MSFlexGrid1.Text = "File"
   Else
      If Chr(FDT(0)) = "D" And Chr(FDT(1)) = "D" And Chr(FDT(2)) = "T" Then
         frmListe.MSFlexGrid1.Text = "DIR"
      Else
         frmListe.MSFlexGrid1.Text = "-"
      End If
   End If
   AttributeStr = "r"
   S4 = CInt(FDT(37))
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "r"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "r"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   frmListe.MSFlexGrid1.Col = 3
   frmListe.MSFlexGrid1.Text = AttributeStr
   frmListe.MSFlexGrid1.Col = 4
   If Chr(FDT(0)) = "F" And Chr(FDT(1)) = "D" And Chr(FDT(2)) = "T" Then
      S1 = CDbl(FDT(31))
      S1 = 16777216 * S1
      S2 = CLng(FDT(30))
      S2 = 65536 * S2
      S3 = CLng(FDT(29))
      S3 = S3 * 256
      S4 = CInt(FDT(28))
      K = S1 + S2 + S3 + S4
      frmListe.MSFlexGrid1.Text = CStr(K) + " bytes "
   Else
      frmListe.MSFlexGrid1.Text = ""
   End If
   frmListe.MSFlexGrid1.Col = 5
   frmListe.MSFlexGrid1.Text = ByteToHex(FDT(59)) + "/" + ByteToHex(FDT(58)) + "/" + ByteToHex(FDT(56)) + ByteToHex(FDT(57))
   frmListe.MSFlexGrid1.Col = 6
   frmListe.MSFlexGrid1.Text = ByteToHex(FDT(60)) + ":" + ByteToHex(FDT(61)) + ":" + ByteToHex(FDT(62))
End If
End Sub

Private Function NameCmp(Name1 As String, Name2 As String) As Boolean
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim H1 As String * 1
Dim H2 As String * 1
Dim Star As Boolean
NameCmp = False
A = Len(Name1)
B = Len(Name2)
If A = 0 Or B = 0 Then Exit Function
If A = 1 Then
   If Name1 = "*" Then
      NameCmp = True
      Exit Function
   Else
      If Name1 = "?" And B = 1 Then
         NameCmp = True
         Exit Function
      Else
         If Name1 = Name2 Then
            NameCmp = True
         End If
      End If
   End If
Else
   E = 1
   Rem F = 0
   For C = 1 To A
       F = F + 1
       H1 = Mid$(Name1, F, 1)
       If H1 = "*" Then
          Star = True
R1:
          If F = A Then
             NameCmp = True
             Exit For
          End If
          F = F + 1
          H1 = Mid$(Name1, F, 1)
          If H1 = "*" Then GoTo R1
          For D = E To B
              H2 = Mid$(Name2, D, 1)
              If H2 = H1 Then
                 If D < B Then
                    E = D + 1
                 End If
                 D = 0
                 Exit For
              End If
          Next D
          If D <> 0 Then Exit For
       Else
          If H1 <> "?" Then
             For D = E To B
                 H2 = Mid$(Name2, D, 1)
                 If H2 = H1 Then
                    If D = B Then
                       E = B
                       NameCmp = True
                    End If
                    E = E + 1
                    Exit For
                 Else
                    If Star = True Then
                       E = E + 1
                    Else
                       E = B + 1
                       Exit For
                    End If
                 End If
             Next D
             If E > B Then
                Exit For
             End If
          Else
             If E = B Then
                NameCmp = True
                Exit For
             Else
                E = E + 1
             End If
          End If
       End If
   Next C
End If
End Function

Private Sub UpdateFSInfo()
   Label1.Caption = "FS Volume Name : " + VolumeName
   K = FS_VolSerialNo1
   L = CInt(K Mod 256)
   VolSerialNoStr = ByteToHex(CByte(L))
   K = (K - L) / 256
   VolSerialNoStr = ByteToHex(CByte(K)) + VolSerialNoStr
   K = FS_VolSerialNo2
   L = CInt(K Mod 256)
   K = (K - L) / 256
   VolSerialNoStr = ByteToHex(CByte(K)) + ByteToHex(CByte(L)) + "-" + VolSerialNoStr
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Volume Serial No : " + VolSerialNoStr
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + "Volume Size : " + CStr(Volume_Size) + " sectors  ( " + CStr(512 * Volume_Size) + " bytes )"
   Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Free Sectors : " + CStr(Free_Sectors) + "  ( " + CStr(512 * Free_Sectors) + " bytes )"
End Sub

Private Function FindNextFile() As Double
FindNextFile = 0
DDT_Location = FFF_DDT
Rem ReturnCode = ReadSector(FFF_DRV, FFF_DDT, 1, DDT())
Rem If ReturnCode<=0 Then
   Rem Exit Function
Rem Else
   Rem Call SetOpenDirStructure(DDT())
Rem End If
If FFF_DENUM > 126 Then
   If FFF_DSEC < DD.SectorCount Then
      FFF_DSEC = FFF_DSEC + 1
      FFF_DENUM = 0
   Else
      If DD.NextDDTNumber > 0 Then
         FFF_DDT = DD.NextDDTNumber
         FFF_DSEC = 1
         FFF_DENUM = 0
         DDT_Location = FFF_DDT
      Else
         Exit Function
      End If
   End If
Else
   FFF_DENUM = FFF_DENUM + 1
End If
If FFF_DSEC > 0 And FFF_DSEC <= DD.SectorCount Then
NRepeat1:
Rem If DD.SectorCount < 1 Then
    Rem FindNextFile = 0
    Rem Exit Function
Rem End If
   For K = FFF_DSEC To DD.SectorCount
       ReturnCode = ReadSector(FFF_DRV, DDT_Location + K, 1, SD_Data())
       If ReturnCode <> 0 Then
          Exit Function
       End If
       For R = (4 * FFF_DENUM) To 511 Step 4
           Satir = ""
           S1 = CDbl(SD_Data(R + 3))
           S1 = 16777216 * S1
           S2 = CLng(SD_Data(R + 2))
           S2 = 65536 * S2
           S3 = CLng(SD_Data(R + 1))
           S3 = S3 * 256
           S4 = CInt(SD_Data(R))
           FDT_Location = S1 + S2 + S3 + S4
           If FDT_Location < 1 Then Exit For
           If FDT_Location < 4294967295# Then
              ReturnCode = ReadSector(FFF_DRV, FDT_Location, 1, FDT())
              If ReturnCode <> 0 Then
                 FDT_Location = 0
                 Exit For
              End If
              For X = 1 To 64
                  Y = FDT(63 + X)
                  If Y = 0 Then Exit For
                  Satir = Satir + Chr(Y)
              Next X
              If NameCmp(FFF_FNAME, Satir) <> False Then
                 FFF_DDT = DDT_Location
                 FFF_DSEC = CLng(K)
                 FFF_DENUM = R / 4
                 Exit For
              End If
           End If
       Next R
       If FDT_Location < 1 Then Exit For
   Next K
   If FDT_Location < 1 Then Exit Function
   If Satir = "" Then
      K = DD.NextDDTNumber
      If K > 0 Then
         ReturnCode = ReadSector(FFF_DRV, K, 1, DDT())
         If ReturnCode = 0 Then
            Call SetOpenDirStructure(DDT())
            If DD.DDTSign = "DDT" Or DD.DDTSign = "RDT" Then
               DDT_Location = K
               FFF_DSEC = 1
               FFF_DENUM = 0
               GoTo NRepeat1
            End If
         End If
      End If
   Else
      FindNextFile = FDT_Location
   End If
End If
End Function

Private Sub fsStartupFileInfo_Click()
If FS_StartupFileNumber = 0 Then
   MsgBox ("FS Startup File is not configured yet!"), 48, " FS Startup File Information"
   Exit Sub
End If
ReturnCode = ReadSector(DriveName, FS_StartupFileNumber, 1, FDT())
If ReturnCode <> 0 Then
OSF_FDT_ReadError:
   MsgBox ("File Descriptor Table Reading Error !"), 48, " Reading File Descriptor Table"
   Exit Sub
Else
   If Chr$(FDT(0)) <> "F" Or Chr$(FDT(1)) <> "D" Or Chr$(FDT(2)) <> "T" Or FDT(3) <> 0 Or FDT(4) <> 0 Or FDT(5) <> 2 Then
      GoTo OSF_FDT_ReadError
   End If
   FS_FileName = ""
   For S4 = 1 To 64
       Y = FDT(63 + S4)
       If Asc(Chr$(Y)) > 0 Then
          FS_FileName = FS_FileName + Chr$(Y)
       Else
          Exit For
       End If
   Next S4
   Label1.Caption = "FS Startup File Name : " + Trim$(FS_FileName) + Chr$(13) + Chr$(10)
   AttributeStr = "r"
   S4 = CInt(FDT(37))
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "r"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "r"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "w"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   S4 = (S4 - L) / 2
   L = S4 Mod 2
   If L > 0 Then
      AttributeStr = AttributeStr + "x"
   Else
      AttributeStr = AttributeStr + "-"
   End If
   Label1.Caption = Label1.Caption + "Attributes : " + AttributeStr + Chr$(13) + Chr$(10)
   S1 = CDbl(FDT(31))
   S1 = 16777216 * S1
   S2 = CLng(FDT(30))
   S2 = 65536 * S2
   S3 = CLng(FDT(29))
   S3 = S3 * 256
   S4 = CInt(FDT(28))
   K = S1 + S2 + S3 + S4
   Label1.Caption = Label1.Caption + "File Size : " + CStr(K) + " bytes" + Chr$(13) + Chr$(10)
   Label1.Caption = Label1.Caption + "Last Modification Date : " + ByteToHex(FDT(59)) + "/" + ByteToHex(FDT(58)) + "/" + ByteToHex(FDT(56)) + ByteToHex(FDT(57)) + Chr$(13) + Chr$(10)
   Label1.Caption = Label1.Caption + "Last Modification Time : " + ByteToHex(FDT(60)) + ":" + ByteToHex(FDT(61)) + ":" + ByteToHex(FDT(62)) + Chr$(13) + Chr$(10)
   Label1.Caption = Label1.Caption + "File FDT Address : " + CStr(FS_StartupFileNumber)

End If
End Sub

Private Sub fsDeleteStartupFile_Click()
If FS_StartupFileNumber = 0 Then
   MsgBox ("FS Startup File is not configured !"), 0, " Delete FS Startup File"
   Exit Sub
End If
ReturnCode = ReadSector(DriveName, FS_StartupFileNumber, 1, FDT())
If ReturnCode = 0 Then
   If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
      Call SetOpenFileStructure(FDT())
   Else
      MsgBox ("File could not be found!"), 0, " Delete FS Startup File"
      Exit Sub
   End If
Else
   MsgBox ("File could not be found!"), 0, " Delete FS Startup File"
   Exit Sub
End If
Rem If FD.SectorCount < 1 Then Exit Sub
FS_FileName = Trim$(FD.FileName)
If MsgBox("Do you want to delete startup file '" + FS_FileName + "' ?", 36, " Delete FS Startup File") <> 6 Then Exit Sub
Label1.Caption = "FS Startup File FDT : " + CStr(FS_StartupFileNumber)
DNS:
Rem Erased/Deleted Sign
FDT(2) = AscB("E")
ReturnCode = WriteSector(DriveName, FS_StartupFileNumber, 1, FDT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing FDT Sector"
   Exit Sub
End If
FDT_Location = FD.FileNumber
SectorCount = FD.SectorCount
FreeSpace = Free_Sectors + SectorCount + 1
For K = FDT_Location To FDT_Location + SectorCount
    If SetDATCellValue(K, &H90) = 0 Then
       MsgBox ("Writing Error !"), 48, " Writing DAT Sector"
       Exit For
    End If
Next K
Free_Sectors = FreeSpace
ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
   Exit Sub
End If
Rem FreeSectors
K = FreeSpace
L = CInt(K Mod 256)
MAT(20) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(21) = CByte(L)
K = (K - L) / 256
L = K Mod 256
MAT(22) = CByte(L)
K = (K - L) / 256
MAT(23) = CByte(K)
Rem FirstFreeSector
S1 = CDbl(MAT(27))
S1 = 16777216 * S1
S2 = CLng(MAT(26))
S2 = 65536 * S2
S3 = CLng(MAT(25))
S3 = S3 * 256
S4 = CInt(MAT(24))
K = S1 + S2 + S3 + S4
If K > FDT_Location Then
   K = FDT_Location
   L = CInt(K Mod 256)
   MAT(24) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(25) = CByte(L)
   K = (K - L) / 256
   L = K Mod 256
   MAT(26) = CByte(L)
   K = (K - L) / 256
   MAT(27) = CByte(K)
End If
ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
   Exit Sub
End If
SectorCount = SectorCount + FD.SectorCount + 1
K = FD.NextFDTNumber
If K > 0 Then
   ReturnCode = ReadSector(DriveName, K, 1, FDT())
   If ReturnCode <> 0 Then Exit Sub
   If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
      Call SetOpenFileStructure(FDT())
   End If
   GoTo DNS
End If
Rem Deleting Startup File FDT Number on the Boot Sector
ReturnCode = ReadSector(DriveName, 0, 1, BS())
If ReturnCode <> 0 Then
   MsgBox ("Reading Error !"), 48, " Reading Boot Sector"
   Exit Sub
End If
BS(20) = 0
BS(21) = 0
BS(22) = 0
BS(23) = 0
ReturnCode = WriteSector(DriveName, 0, 1, BS())
If ReturnCode <> 0 Then
   MsgBox ("Writing Error !"), 48, " Writing Boot Sector"
Else
   FS_StartupFileNumber = 0
   MsgBox ("FS Startup File '" + FS_FileName + "' has been deleted..."), 0, " Delete FS Startup File"
   Call UpdateFSInfo
End If
End Sub

Private Sub fsRenameFile_Click()
Dim FS_FileNumber As Double
Dim NewFileName As String
Repeat1:
Satir = InputBox("FS File Name :", " Rename FS File")
Satir = Trim$(Satir)
L = Len(Satir)
If L > 0 Then
   If L > 64 Then
      MsgBox ("FS File name must not be more then 64 bytes !"), 48, " Rename FS File"
      GoTo Repeat1
   Else
      For X = 1 To L
          Y = AscB(Mid$(Satir, X, 1))
          If Y = AscB("/") Or Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
             MsgBox ("Invalid file name chars ('/','?','*',':','\') !..."), 48, " Rename FS File"
             L = 0
             Exit For
          End If
      Next X
      If L < 1 Then GoTo Repeat1
   End If
Else
   Exit Sub
End If
FS_FileNumber = FindFirstFile(0, Satir)
If FS_FileNumber > 0 Then
   ReturnCode = ReadSector(DriveName, FS_FileNumber, 1, FDT())
   If ReturnCode = 0 Then
      If FDT(0) = AscB("F") And FDT(1) = AscB("D") And FDT(2) = AscB("T") Then
         Call SetOpenFileStructure(FDT())
      Else
         MsgBox ("File could not be found!"), 0, " Rename FS File"
         Exit Sub
      End If
   End If
Else
   MsgBox ("File could not be found!"), 0, " Rename FS File"
   Exit Sub
End If
Rem If FD.SectorCount < 1 Then Exit Sub
FS_FileName = Trim$(FD.FileName)
FS_DirNumber = FD.ParentDirNumber
FS_DirSerial1 = FD.ParentDirSerial1
FS_DirSerial2 = FD.ParentDirSerial2
Repeat2:
Satir = InputBox("New FS File Name :", " Rename FS File", FS_FileName)
Satir = Trim$(Satir)
L = Len(Satir)
If L > 0 Then
   If L > 64 Then
      MsgBox ("FS File name must not be more then 64 bytes !"), 48, " Rename FS File"
      GoTo Repeat2
   Else
      For X = 1 To L
          Y = AscB(Mid$(Satir, X, 1))
          If Y = AscB("/") Or Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
             MsgBox ("Invalid file name chars ('/','?','*',':','\') !..."), 48, " Rename FS File"
             L = 0
             Exit For
          End If
      Next X
      If L < 1 Then GoTo Repeat2
   End If
Else
   Exit Sub
End If
If Satir = FS_FileName Then Exit Sub
NewFileName = Satir
K = FindFirstFile(0, Satir)
If K > 0 Then
   MsgBox ("File name '" + NewFileName + "' exists!"), 0, " Rename FS File"
   Exit Sub
End If
If MsgBox("Do you want to rename '" + FS_FileName + "' file as '" + NewFileName + "' ?", 36, " Rename FS File") <> 6 Then Exit Sub
Rem If FS_DirNumber <> FD.ParentDirNumber Or FS_DirSerial <> FD.ParentDirSerial Then
   Rem MsgBox ("Directory/Path name can not be different for renaming a file !"), 0, " Rename FS File"
   Rem Exit Sub
Rem End If
ReturnCode = ReadSector(DriveName, FS_FileNumber, 1, FDT())
If ReturnCode = 0 Then
   L = Len(NewFileName)
   For X = 1 To L
       FDT(63 + X) = AscB(Mid$(NewFileName, X, 1))
   Next X
   If L < 64 Then
      For X = L + 1 To 64
          FDT(63 + X) = 0
      Next X
   End If
   ReturnCode = WriteSector(DriveName, FS_FileNumber, 1, FDT())
   If ReturnCode <> 0 Then
      MsgBox ("Writing Error !"), 48, " Writing FDT Sector"
   Else
      MsgBox ("'" + FS_FileName + "' has been renamed as '" + NewFileName + " ..."), 0, " Rename FS File"
   End If
Else
   MsgBox ("Reading Error !"), 48, " Reading FDT Sector"
End If
End Sub

Private Sub fsSaveStartupFile_Click()
Rem 20-10-2008 StartupFile Procedures
Label1.Caption = ""
If WinFileName = "" Then
   Label1.Caption = "Windows File : NONE"
   MsgBox ("There is not a loaded Windows file !"), 48, " Save as FS Startup File"
   Label1.Caption = ""
   Exit Sub
Else
   Label1.Caption = "FS StartupFile FDT : " + CStr(FS_StartupFileNumber)
   If FS_StartupFileNumber > 0 Then
      MsgBox ("FS Startup File is configured before !" + Chr$(13) + Chr$(10) + "If you want to configure new one, you must delete current Startup File ... "), 48, " Save as FS Startup File"
      Exit Sub
   End If
End If
FS_FileName = WinFileName
Repeat_After_Removing_Path:
L = Len(FS_FileName)
If L > 1 Then
   For X = 1 To L - 1
       Y = AscB(Mid$(FS_FileName, X, 1))
          If Y = AscB("\") Then
             FS_FileName = Right$(FS_FileName, L - X)
             Exit For
          End If
   Next X
   X = Len(FS_FileName)
   If X <> L Then GoTo Repeat_After_Removing_Path
End If
Repeat1:
Label1.Caption = "FS Startup File : "
FS_FileName = InputBox("FS Startup File Name :", " Save as Singlix FS Startup File", FS_FileName)
FS_FileName = Trim$(FS_FileName)
L = Len(FS_FileName)
If L > 0 Then
   Label1.Caption = Label1.Caption + FS_FileName
   If L > 64 Then
      MsgBox ("FS Startup File name must not be more then 64 bytes !"), 48, " Save as Singlix FS Startup File"
      GoTo Repeat1
   Else
      For X = 1 To L
          Y = AscB(Mid$(FS_FileName, X, 1))
          If Y = AscB("/") Or Y = AscB("?") Or Y = AscB("*") Or Y = AscB(":") Or Y = AscB("\") Then
             MsgBox ("Invalid file name chars ('/','?','*',':','\') !..."), 48, " Save as Singlix FS Startup File"
             L = 0
             Exit For
          End If
      Next X
      If L < 1 Then GoTo Repeat1
   End If
Else
   Exit Sub
End If
Free_Sectors = GetFreeSpace()
FreeSpace = 512 * Free_Sectors
RequiredSpace = WinFileSize + 512
If FreeSpace < RequiredSpace Then
   MsgBox ("The is no enough free space to save the file on the Singlix File System!..." + Chr$(13) + Chr$(10) + "Free Space = " + CStr(FreeSpace) + " bytes"), 48, " Save as FS Startup File"
   Exit Sub
End If
Rem Sector
K = WinFileSize Mod 512
If K > 0 Then
   SectorCount = ((WinFileSize - K) / 512) + 1
Else
   SectorCount = (WinFileSize - K) / 512
End If
SectorCount = SectorCount + 1
BeginningSector = GetFirstFreeSector()
FDT_Location = GetFirstFreeSection(BeginningSector, SectorCount)
If FDT_Location = 0 Then
   Rem Allocation will be done later, as multi sections
   MsgBox ("Free consecutive sectors are not enough!..."), 48, " Save as FS Startup File"
Else
   Call ResetFDTBuffer
   FD.FDTSign = "FDT"
   FD.FDTVersion = 0
   FD.SectorSize = 512
   FD.FDTNumber = 0
   FD.FileNumber = FDT_Location
   FD.NextFDTNumber = 0
   FD.SectorCount = SectorCount - 1
   FD.ParentDirNumber = 0
   FD.ParentDirSerial1 = 0
   FD.ParentDirSerial2 = 0
   FD.FileSize = WinFileSize
   FD.FileSizeHigh = 0
   FD.FileType = 0
   FD.CheckSum = 0
   FD.Attributes = 1
   FD.OwnerCode = 0
   FD.GroupCode = 0
   FD.Country = 90
   FD.TimeZone = 0
   FS_Second = Second(Now)
   FS_Minute = Minute(Now)
   FS_Hour = Hour(Now)
   FS_Day = Day(Now)
   FS_Month = Month(Now)
   FS_Year = Year(Now) - 2000
   FS_Century = 20
   FD.CreatingCentury = SetBCD(FS_Century)
   FD.CreatingYear = SetBCD(FS_Year)
   FD.CreatingMonth = SetBCD(FS_Month)
   FD.CreatingDay = SetBCD(FS_Day)
   FD.CreatingHour = SetBCD(FS_Hour)
   FD.CreatingMinute = SetBCD(FS_Minute)
   FD.CreatingSecond = SetBCD(FS_Second)
   FD.CTimeMode = 0
   FD.LastModifCentury = FD.CreatingCentury
   FD.LastModifYear = FD.CreatingYear
   FD.LastModifMonth = FD.CreatingMonth
   FD.LastModifDay = FD.CreatingDay
   FD.LastModifHour = FD.CreatingHour
   FD.LastModifMinute = FD.CreatingMinute
   FD.LastModifSecond = FD.CreatingSecond
   FD.LMTimeMode = 0
   FD.FileName = FS_FileName
   FD.FileDescription = 0
   Call SetFDTBuffer
   If Chr$(FDT(0)) = "F" And Chr$(FDT(1)) = "D" And Chr$(FDT(2)) = "T" And FDT(3) = 0 And FDT(4) = 0 And FDT(5) = 2 Then
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing FDT Sector..."
      ReturnCode = WriteSector(DriveName, FDT_Location, 1, FDT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing FDT"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + " OK."
      WinFileNumber = FreeFile
      Open WinFileName For Binary As WinFileNumber Len = 1
      If FileLen(WinFileName) <> WinFileSize Then
         MsgBox ("File Error !"), 48, " Writing File Data"
         Exit Sub
      End If
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "Writing File Data..."
      X = 0
      BeginningSector = FDT_Location
      For S1 = 1 To WinFileSize
          Get WinFileNumber, S1, Y
          File_Data(X) = Y
          X = X + 1
          If X = 512 Then
             BeginningSector = BeginningSector + 1
             ReturnCode = WriteSector(DriveName, BeginningSector, 1, File_Data())
             If ReturnCode <> 0 Then
                MsgBox ("Writing Error !"), 48, " Writing File Data"
                Exit For
             End If
             X = 0
          End If
      Next S1
      If ReturnCode <> 0 Then Exit Sub
      If X > 0 And X < 512 Then
         For X = X To 511
             File_Data(X) = 0
         Next X
         BeginningSector = BeginningSector + 1
         ReturnCode = WriteSector(DriveName, BeginningSector, 1, File_Data())
         If ReturnCode <> 0 Then
            MsgBox ("Writing Error !"), 48, " Writing File Data"
            Exit Sub
         End If
      End If
      Label1.Caption = Label1.Caption + " OK."
      
      ReturnCode = ReadSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Reading Error !"), 48, " Reading MAT Sector"
         Exit Sub
      End If
      Rem S1 = CDbl(MAT(15))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(14))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(13))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(12))
      Rem Sector
      Rem DAT_Location = S1 + S2 + S3 + S4
      Rem S1 = CDbl(MAT(19))
      Rem S1 = 16777216 * S1
      Rem S2 = CLng(MAT(18))
      Rem S2 = 65536 * S2
      Rem S3 = CLng(MAT(17))
      Rem S3 = S3 * 256
      Rem S4 = CInt(MAT(16))
      Rem Sector Count
      Rem DAT_SCount = CLng(S1 + S2 + S3 + S4)
      L = WinFileSize Mod 512
      If L > 0 Then
         K = ((WinFileSize - L) / 512) + 1
      Else
         K = (WinFileSize / 512) + 1
      End If
      S1 = GetFreeSpace()
      FreeSpace = S1 - (K + 1)
      ReturnCode = ReadSector(DriveName, DAT_Location, DAT_SCount, DAT())
      If ReturnCode <> 0 Then
         MsgBox ("Reading Error !"), 48, " Reading DAT Sectors"
         Exit Sub
      End If
      L = CInt(FDT_Location)
      If SetDATCellValue(FDT_Location, &H5) = 0 Then
         MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
         Exit Sub
      End If
      For K = L + 1 To L + K
          Rem L = CInt(K)
          If SetDATCellValue(K, &HF0) = 0 Then
             MsgBox ("Writing Error !"), 48, " Writing DAT Sectors"
             Exit Sub
          End If
      Next K
      Free_Sectors = FreeSpace
      K = FreeSpace
      L = CInt(K Mod 256)
      MAT(20) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(21) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(22) = CByte(L)
      K = (K - L) / 256
      MAT(23) = CByte(K)
      S1 = CDbl(MAT(27))
      S1 = 16777216 * S1
      S2 = CLng(MAT(26))
      S2 = 65536 * S2
      S3 = CLng(MAT(25))
      S3 = S3 * 256
      S4 = CInt(MAT(24))
      BeginningSector = S1 + S2 + S3 + S4
      K = GetFirstFreeSection(BeginningSector, 1)
      L = CInt(K Mod 256)
      MAT(24) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(25) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      MAT(26) = CByte(L)
      K = (K - L) / 256
      MAT(27) = CByte(K)
      ReturnCode = WriteSector(DriveName, MAT_Location, 1, MAT())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing MAT Sector"
         Exit Sub
      End If
      
      ReturnCode = ReadSector(DriveName, 0, 1, BS())
      If ReturnCode <> 0 Then
         MsgBox ("Reading Error !"), 48, " Reading Boot Sector"
         Exit Sub
      End If
            
      L = CInt(FDT_Location Mod 256)
      BS(20) = CByte(L)
      K = (FDT_Location - L) / 256
      L = K Mod 256
      BS(21) = CByte(L)
      K = (K - L) / 256
      L = K Mod 256
      BS(22) = CByte(L)
      K = (K - L) / 256
      BS(23) = CByte(K)
      
      ReturnCode = WriteSector(DriveName, 0, 1, BS())
      If ReturnCode <> 0 Then
         MsgBox ("Writing Error !"), 48, " Writing Boot Sector"
         Exit Sub
      End If
      
      FS_StartupFileNumber = FDT_Location
      
      MsgBox ("File '" + FS_FileName + "' has been recorded as Singlix FS Startup File"), 0, " Save Open/Windows File as Singlix FS File"
      Label1.Caption = "FS Startup File : " + FS_FileName
      Label1.Caption = Label1.Caption + Chr$(13) + Chr$(10) + "File Size: " + CStr(WinFileSize) + " bytes."
   End If
End If
End Sub

Private Function GetDATCellValue(Sayi As Double) As Byte
Dim N As Double
Dim O As Double
O = Sayi Mod 512
N = (Sayi - O) / 512
If N < DAT_SCount Then
   If N <> DATSECTOR Then
      ReturnCode = ReadSector(DriveName, DAT_Location + N, 1, DAT())
      DATSECTOR = N
   Else
      ReturnCode = 0
   End If
If ReturnCode <> 0 Then
   GetDATCellValue = 0
   Exit Function
Else
   GetDATCellValue = DAT(O)
End If
Else
   GetDATCellValue = 0
End If
End Function

Private Function SetDATCellValue(Sayi As Double, Tip As Byte) As Byte
Dim N As Double
Dim O As Double
O = Sayi Mod 512
N = (Sayi - O) / 512
If N < DAT_SCount Then
   If N <> DATSECTOR Then
      ReturnCode = ReadSector(DriveName, DAT_Location + DATSECTOR, 1, DAT())
      DATSECTOR = N
   Else
      ReturnCode = 0
   End If
If ReturnCode = 0 Then
   DAT(O) = Tip
   ReturnCode = WriteSector(DriveName, DAT_Location + N, 1, DAT())
   If ReturnCode = 0 Then
      SetDATCellValue = DAT(O)
   Else
      SetDATCellValue = 0
   End If
Else
   SetDATCellValue = 0
End If
Else
   SetDATCellValue = 0
End If
End Function