server$ = "mail.wild-storm.de"
user$ = "xxx"
pass$ = "xxy"
login$ = popAccountLogin$(server$, user$, pass$)


com1=OpenTCPStream( "server$ ",25 )

If Not com1 RuntimeError( "Error connecting" )
WriteLine com1,"HELO fu"
WriteLine com1,"MAIL FROM: <fu@wild-storm.de>"
WriteLine com1,"RCPT TO: <sektion_ddr@hotmail.com>"
WriteLine com1,"DATA"
WriteLine com1,"das isch e versuceh"
WriteLine com1,"franky"
WriteLine com1,""
WriteLine com1,"."
WriteLine com1,"QUIT"
Print "Done. Press any key...":WaitKey
; **************************************************************************
; Connect and login
Function popAccountLogin$(server$, user$, pass$)
com = OpenTCPStream(server$, 110)
If com = 0 Then
  Return "-ERR connection failed"
Else
  i$ = ReadLine(com) ; Intercept the greeting
  WriteLine com, "USER " + user$
  i$ = ReadLine(com)
  If Mid(i$, 1, 1) = "-" Then
    Return "-ERR no such user"
  Else
    WriteLine com, "PASS " + pass$
    i$ = ReadLine(com)
    If Mid(i$, 1, 1) = "-" Then
      Return "-ERR password wrong"
    Else
      Return "+OK logged in
    EndIf
  EndIf
EndIf
End Function

;*******************************************************************************
; Disconnect from server. After that the mails get really deleted
Function popAccountLogout$()
   WriteLine com, "QUIT" ; Disconnect-Commando
   r$ = ReadLine(com) ; Get Returnstring
   If Mid(r$, 1, 3) = "+OK" Then Return "+OK disconnected"
   If Mid(r$, 1, 4) = "-ERR" Then Return "-ERR not disconnected. waaah!"
End Function
; *************************************************************************