Sub HandleClassesData(ByVal Index As Long, ByRef data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim I As Long
    Dim z As Long, X As Long
    Dim Buffer As buffer_t

    Call init_buf(Buffer)
   write_bytes Buffer, data()
    n = 1
    n = n + 1

    For I = 1 To MAX_CLASSES

        If read_str(Buffer, Class(I).Name) < 0 Then Exit Sub
        If read_long(Buffer, Class(I).Vital(Vitals.HP)) < 0 Then Exit Sub
        If read_long(Buffer, Class(I).Vital(Vitals.MP)) < 0 Then Exit Sub

            ' get array size
            If read_long(Buffer, z) < 0 Then Exit Sub
            ' redim array
            ReDim Class(I).MaleSprite(0 To z)
            ' loop-receive data
            For X = 0 To z
                If read_long(Buffer, Class(I).MaleSprite(X)) < 0 Then Exit Sub
            Next

            ' get array size
            If read_long(Buffer, z) < 0 Then Exit Sub
            ' redim array
            ReDim Class(I).FemaleSprite(0 To X)
            ' loop-receive data
            For X = 0 To z
                If read_long(Buffer, Class(I).FemaleSprite(X)) < 0 Then Exit Sub
            Next

            For X = 1 To Stats.Stat_Count - 1
                 If read_byte(Buffer, Class(I).stat(X)) < 0 Then Exit Sub
               ' clng(Class(I).stat(X))
            Next


        n = n + 10
    Next

    term_buf Buffer

End Sub