Sub SendNewAccount(ByVal Name As String, ByVal Password As String, ByVal Email As String)
Dim Packet As String

    Packet = "newaccount" & SEP_CHAR & Trim(Name) & SEP_CHAR & Trim(Password) & SEP_CHAR & Trim(Email) & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

Public Const MENU_STATE_EMAIL = 9

Public Const EMAIL_LENGTH = 50

If Trim(txtName.Text) <> "" And Trim(txtPassword.Text) <> "" And Trim(txtEmail.Text) <> "" Then

frmNewAccount.txtEmail.Text

Sub AddAccount(ByVal index As Long, ByVal Name As String, ByVal Password As String,ByVal Email As String)
Dim i As Long

    Player(index).Login = Name
    Player(index).Password = Password
    Player(index).Email = Email
   
    For i = 1 To MAX_CHARS
        Call ClearChar(index, i)
    Next i
   
    Call SavePlayer(index)
End Sub

Type EmailRec
    Email As String * EMAIL_LENGTH
End Type

Email as string

Public Const EMAIL_LENGTH = 50

Public Const MAX_EMAIL = 15

Dim Email As String

Email = Parse(3)

Or Len(Trim(Password)) < 3

Or Len(Trim(Email)) < 15

Call AddAccount(index, Name, Password, Email)

Call PutVar(FileName, "GENERAL", "Password", Trim(Player(index).Password))

Call PutVar(FileName, "GENERAL", "Email", Trim(Player(index).Email))