global com
global login$
global logout$
login$=serverlogin(POP3$,User$,Password$)

;-Login------------------------------------------

function ServerLogin(POP3$,User$,Password$)
com = OpenTCPStream(POP3$, Port)

If com = 0 Then
  Return "-ERR no connection"

Else
  i$ = ReadLine(com)
  WriteLine com, "USER " + User$
  i$ = ReadLine(com)
  If Mid(i$, 1, 1) = "-" Then
    Return "-ERR no such user"
  Else
    WriteLine com, "PASS " + Password$
    i$ = ReadLine(com)
    If Mid(i$, 1, 1) = "-" Then
      Return "-ERR password wrong"
    Else
      Return "OK"
    EndIf
  EndIf
EndIf
end function




;------------------------------------------------
;-Logout-----------------------------------------
function serverlogout()
WriteLine com, "QUIT"
r$ = ReadLine(com)
If Mid(r$, 1, 3) = "+OK" Then Return "OK disconnected"
If Mid(r$, 1, 4) = "-ERR" Then Return "ERROR not disconnected. waaah!"
end function

logout$=serverlogout()
print login$
print logout$