Print "Try to connect to Side"
Global tcp = OpenTCPStream("side",21)

If Tcp = 0
   Print "Connection failed"
   WaitKey()
Else
   Print "Connected !"
EndIf

Print ReadLine(tcp)

SendMSg("USER benutzer")
SendMSG("PASS Passwort")

Print ReadLine(tcp)

Upload("SimpleUDP, Lobby.exe")
readMSG()
readMsg()
WaitKey()


CloseTCPStream(tcp)


End


Function SendMSG(Msg$)
   Color 0,0,255
   Print msg$
   WriteLine(tcp,msg$)
   ReadMsg()   
   Return T$
End Function

Function ReadMsg()
   Color 0,255,0   
   t$ = ReadLine(tcp)
   Print t$
End Function

Function Upload(pfad$)
   Local name$ = ""
   If Instr(pfad,"/") > 0 Or Instr(pfad,"\") > 0
      For i = 1 To Len(Pfad$)
         B$ = Mid(Pfad$,i,1)
         If B$ = "/" Or B$ = "\"
            Exit
         Else
            name = name$ + B$
         EndIf
      Next
      name2$ = name$
      name$ = ""
      For i = Len(name$) To 1 Step -1
         name = name$ + Mid(name2,i,1)
      Next
   Else
      name$ = pfad$
   EndIf
   sendMsg("CWD /")
   SendMsg("TYPE I")
   Sendmsg("PASV")
   Sendmsg("STOR "+name$)
   dat = ReadFile(Pfad$)
      While Not Eof(dat)
         rb = ReadByte(dat)
         WriteByte(tcp,rb)
      Wend
   CloseFile(dat)
End Function