Sub WriteList(Fiall As String)
Dim List1 As List
List1.Initialize
Dim Temp As String
For I = 0 To 80
List1.Add(l(I).Text)
Temp = sf.Left(l(I).Tag, 1)
List1.Add(Temp)
If Temp = "S" Then
l(I).Enabled = False
l(I).Color = Colors.Red
End If
Next
If File.Exists(File.DirInternal,"/BlankSodoku, " & Fiall &".txt") Then
File.WriteList(File.DirInternal,"/BlankSodoku, " & Fiall & ".txt", List1)
Else
If File.IsDirectory(File.DirInternal,"/BlankSodoku") = False Then File.MakeDir(File.DirInternal,"/BlankSodoku")
File.WriteList(File.DirInternal,"/BlankSodoku, " & Fiall & ".txt", List1)
File.WriteString(File.DirInternal,"/BlankSodoku, Config.txt", Fiall) 'The last puzzle we were compleating.
End If
End Sub