Mirage Source

Sub LoadClasses()
Dim FileName As String
Dim i As Long
Dim nFileNum As Integer

    Call CheckClasses
   
    FileName = App.Path & "/classes.fcl"
   
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum
   
    Get #nFileNum, , Max_Classes
   
    ReDim Class(0 To Max_Classes) As ClassRec
   
    Call ClearClasses
   
    For i = 0 To Max_Classes
        Get #nFileNum, , Class(i)
        If (i Mod 5) = 0 Then DoEvents
    Next i
   
    Close #nFileNum

End Sub

Sub SaveClasses()
Dim FileName As String
Dim i As Long
Dim nFileNum As Integer

    FileName = App.Path & "\classes.fcl"
   
    nFileNum = FreeFile
    If FileExist(FileName, True) Then Kill FileName
    Open FileName For Binary As #nFileNum
   
    Put #nFileNum, , Max_Classes
   
    For i = 0 To Max_Classes
        Put #nFileNum, , Class(i)
    Next i
   
    Close #nFileNum

End Sub

Sub CheckClasses()
    If Not FileExist("\classes.fcl") Then
        Call ClearClasses
        Call SaveClasses
    End If
End Sub

Function FileExist(ByVal FileName As String) As Boolean
    If Dir(App.Path & "\" & FileName) = "" Then
        FileExist = False
    Else
        FileExist = True
    End If
End Function