Graphics 640,480,0,2 


Global port, ip$,tcp,daten 
Dim pos(6) 

time = MilliSecs() 
tcp = OpenTCPStream (\"www.meinserver.de\",21);ftp server 

nachricht$ = ReadLine(tcp) 
Print nachricht 


;Anmeldung 
WriteLine tcp,\"USER \"+\"ftp.meinserver.de\" ;ftp loginname 
nachricht$ = ReadLine(tcp) 
Print nachricht 

WriteLine tcp,\"PASS \"+\"Passwort\" ;ftp passwort 
nachricht$ = ReadLine(tcp) 
Print nachricht 


kommando$ =\"mysql -h localhost -u USER\" ; mySQL Kommando 

WriteLine tcp,kommando$ 
nachricht$ = ReadLine(tcp) 
Print \"Antwort ---> \" + nachricht$ 


WaitKey()

220 s110.meinserver.de FTP server ready
331 Password required for ftp.meinserver.de.
230 User ftp.meinserver.de logged in.
Antwort ---> 500 MYSQL not understood