graphics 640,480,32,2
server$ = "" ;<- hier Daten eingeben
user$ = ""   ;<- hier Daten eingeben
pass$ = ""   ;<- hier Daten eingeben

PRINT "Verbinde..."
tcp=OPENTCPSTREAM(server$,21)

IF NOT tcp PRINT "Fehlgeschlagen": WAITKEY: END

PRINT "Verbunden"

PRINT ReadLine$( tcp )

Print"    USER " + user$ : WRITELINE tcp,"USER " + user$
PRINT ReadLine$( tcp )
Print"    PASS " + pass$ : WRITELINE tcp,"PASS " + pass$
PRINT ReadLine$( tcp )
Print"    SYST"          : WriteLine tcp,"SYST"
PRINT ReadLine$( tcp )
Print"    REST 100"      : WriteLine tcp,"REST 100"
PRINT ReadLine$( tcp )
Print"    REST 0"        : WriteLine tcp,"REST 0"
PRINT ReadLine$( tcp )
Print"    PWD"           : WriteLine tcp,"PWD"
PRINT ReadLine$( tcp )
Print"    TYPE A"        : WriteLine tcp,"TYPE A"
PRINT ReadLine$( tcp )
Print"    PASV"          : WriteLine tcp,"PASV"
PRINT ReadLine$( tcp )
Print"    HELP"          : WriteLine tcp,"HELP"
PRINT""
delay 3000 ;Dem Server ein bisschen Zeit geben

WHILE NOT EOF(tcp)
   PRINT ReadLine$( tcp )
   if READAVAIL(tcp) = 0 then exit
WEND
PRINT""
while Keyhit(1) = 0
  cmd$ = Input("Befehl: ")
  Print"    " + cmd$          : WriteLine tcp,cmd$
  delay 3000 ;Dem Server ein bisschen Zeit geben
  if READAVAIL(tcp) = 0 then Print "Fehler. Verbindeung zum Server verloren!" : EXIT
  WHILE NOT EOF(tcp)
    PRINT ReadLine$( tcp )
    if READAVAIL(tcp) = 0 then exit
  WEND
wend

CLOSETCPSTREAM tcp
WAITKEY()
END