;Server
Graphics 640,480,16,2
AppTitle "Server"

.datei_laden
datei_zum_senden$=Input("Datei: ")
Datei1=OpenFile(datei_zum_senden$)
If Datei1 = 0 Then Print "Datei fehlt":Goto datei_laden
Dateigroesse1=FileSize(datei_zum_senden$)
Print "Dateigröße: "+datei_zum_senden$+" "+Dateigroesse1
Speicherfeld1 = CreateBank(Dateigroesse1)

server=CreateTCPServer(21)
a=1
Repeat
   senden=AcceptTCPStream(server)
   If senden Then
      If a=1 Then
         WriteLine(senden, datei_zum_senden$)
         WriteLine(senden, Dateigroesse1)
         a=0
      EndIf
      While Not Eof (Datei1)
         Byte=ReadBytes (Speicherfeld1, Datei1, b, b+10)
         Byte=WriteBytes (Speicherfeld1, senden, b, b+10)
         b = b + 10
      Wend
   EndIf
Forever

Print "Datei erfolgreich gesendet"   
WaitKey()

;Client
Graphics 640,480,16,2
AppTitle "Client"

ip$ = "169.254.178.66"
;ip$ = Input ("IP eingeben: ")
tcp = OpenTCPStream(ip$, 21)


If tcp<>0 Then
   Print "Verbindung erfolgreich hergestellt."
Else
   Print "Verbindung konnte nicht hergestellt werden."
   WaitKey()
   End
End If

Datei_zum_bekommen$=ReadLine(tcp)
Datei2=WriteFile(Datei_zum_bekommen$)
Dateigroesse2#=ReadLine(tcp)
Speicherfeld2 = CreateBank(Dateigroesse2#)

Print Datei_zum_bekommen$+" runterladen von "+ip$
Print "Größe: " + Dateigroesse2#+ " Bytes"

Repeat
   Byte=ReadBytes (Speicherfeld2, tcp, b1, b1 + 10)
   a#=a#+10
   prozent#=a#/Dateigroesse2#
   prozent#=prozent#*100
   AppTitle prozent#+"%"
   Byte=WriteBytes (Speicherfeld2, Datei2, b1, b1 + 10)
   b1 = b1 + 10
Until a# >= Dateigroesse2#
Print "Datei angekommen"
WaitKey()