;is jetzt nur ein kleines Beispiel.
;kann nur eine bestimmte Datei runterladen, für mehr brauchte ich
;das damals, als ich es gemacht habe, nicht  ;)
;aber is ja leicht auszubauen...


Graphics 640,480,0,2
SetBuffer BackBuffer()

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

time = MilliSecs()
tcp = OpenTCPStream ("squirrelfrank.sq.funpic.de",21);ftp server

nachricht$ = ReadLine(tcp)
Print nachricht


;Anmeldung
WriteLine tcp,"USER "+"squirrelfrank"  ;ftp loginname
nachricht$ = ReadLine(tcp)
Print nachricht

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

WriteLine tcp,"TYPE I" ;binär Modus!
nachricht$ = ReadLine(tcp)
Print nachricht

WriteLine tcp, "PASV" ;passiver Transfermodus
nachricht$ = ReadLine(tcp)
IP_PORT(nachricht$) ;2. ip aus nachricht holen



daten = OpenTCPStream (ip$,port)

; Die Input/Output-Schleife
Repeat
; lles was der Server einem schickt auslesen und printen.
nachricht$ = ReadLine$(tcp)
Print nachricht$

; Kommandos eingeben lassen und selbige an den Server schicken.
i$ = Input(">")


WriteLine tcp, i$


; Solange wiederholen bis man 'ende' eingibt.


Until i$ = "ende"
End






; Solange wiederholen bis man 'ende' eingibt.

CloseTCPStream daten
WaitKey
End


;empfangene Ip für den Download umwandeln.
Function IP_PORT(nachricht$)
ip$ =""
port = 0
punkt$ ="."

pos(0) = (Instr(nachricht$,"(")+1)

For i = 1 To 4
 pos(i) = Instr(nachricht$,",",pos(i-1)+1)
 If i > 1 Then t = 1
 stelle$ = Mid(nachricht,pos(i-1)+t,pos(i)-pos(i-1)-t)
 If i = 4 Then punkt$ =""
 ip$ = ip$ + stelle$ + punkt$
Next

pos(5) = Instr(nachricht$,",",pos(4)+1)
zahl1  = Mid(nachricht,(pos(4)+1),pos(5)-(pos(4)+1))

pos(6) = Instr(nachricht$,")",pos(5)+1)
zahl2  = Mid(nachricht,(pos(5)+1),pos(6)-(pos(5)+1))

port = zahl1*256 + zahl2

Print "IP: " + ip$
Print "PORT: " +port
End Function