Graphics 800,600,0,2
SetBuffer BackBuffer()





stream$=OpenTCPStream (\"home.arcor.de\",21)

WriteLine stream,\"USER marcelkroener\"
tempdat$=ReadLine(stream) 
Print tempdat

WriteLine stream,\"PASS GEHEIM!!!\"
tempdat$=ReadLine(stream) 
Print tempdat



WriteLine stream,\"GET test.txt\"
tempdat$=ReadLine(stream) 



While Not Eof (stream)
If KeyDown (1) Then WriteLine stream,\"REST 0\":CloseTCPStream stream$:End
tempdat$=ReadLine(stream) 
Print tempdat
Wend

stream = OpenTCPStream(\"deine.persoenliche.domain\", 80)
If stream = 0
  Print \"Fehler\"
  End
EndIf

;Anfrage senden an den Web-Server
WriteLine(stream, \"GET http://deine.persoenliche.domain/test.txt HTTP/1.0\")
WriteLine(stream, \"\") ;Leere Zeile schliesst den Anfrage Header ab.

;Server schickt eine Antwort zurück, diese intressiert uns erstmal nicht.
;Daher lesen wir solange bis eine leere Zeile kommt welche
;das Ende des Antwort Headers markiert.
While Not Eof(stream)
  If ReadLine(stream) = \"\" Then Exit
Wend

;Danach kommt der Dateiinhalt falls die Datei gefunden wurde etc.
While Not Eof(stream)
  Print ReadLine(stream)
  If KeyHit(1)
    CloseTCPStream(stream)
    End
  EndIf
Wend

End