Graphics 800,600,16,2 ;fenster erstellen
SetBuffer BackBuffer() ;Buffer setzen
Local host = CreateTCPServer(19888) ;server erstellen
If host = 0 Then End ;wenn server nicht erstellt werden konnte, dann beenden
Local time = CreateTimer(5) ;partner timer erstellen (wegen 100% auslastung)
Local time2 = CreateTimer(30) ;hauptschleifentimer erstellen
Local partner ;Variable Partner als local definieren
Text 0,0,"Warte auf Partner"
Flip
Repeat ;schleifen anfang
	partner = AcceptTCPStream(host) ;prüfen ob jemand eine verbindung herstellt
	If partner <> 0 Then Exit ;wenn jemand verbindet, schleife verlassen
	WaitTimer time ;auf timer warten
Forever ;schleifenende
Local tex$ = 0,stelle = -12,tosend$ ;wichtige varieablem setzen
Repeat ;hauptschleifen anfang
	tex$ = ReadLine$(partner) ;gesendetes auslesen
	If tex$ <> 0 Then ;wenn etwas gesendet wurde
		If stelle > 600 Then ;wenn bildschirm voll ist
			Cls ;bildschirm löschen
			stelle = -12 ;Y coordiante auf -12 setzen
		EndIf
		stelle = stelle + 12 ;Y Koordiante des Textschreibbefehls erhöhne
		Text 0,stelle,tex$ ;nachricht schreiben
		tex$ = 0 ;nachricht Variable wieder auf 0 setzen, so dass nicht die ganze zeit text ausgegeben wird
		Flip ;ildschirm aktualiesieren
	EndIf
	Select KeyDown(29) ;wenn strg gedrückt wird
		Case 1
			tosend$ = Input("Nachricht: ") ;nachricht erfragen
			WriteLine(partner,tosend$) ;nachricht senden
			FlushKeys() ;tataturbuffer löschen
	End Select
	WaitTimer time2 ;auf hauptimer warten
Until KeyDown(1) ;wenn esc gedrückt wird schleife verlassen
End ;beenden

 
Graphics 800,600,16,2 ;fenster öffnen
SetBuffer BackBuffer() ;buffer setzen
Local time = CreateTimer(30) ;haupttimer setzten
Local stream = OpenTCPStream("127.0.0.1",19888) ;verbindung herstellen
If stream = 0 Then End ;wenn verbindung nicht hergestellt werden konnte
Local stelle = -12,tosend$,tex$ = 0 ;variablen definieren
Repeat
	tex$ = ReadLine$(stream) ;gesendetes auslesen
	If tex$ <> 0 Then ;wenn etwas gesendet wurde
		If stelle > 600 Then ;wenn bildschirm voll ist
			Cls ;bildschirm löschen
			stelle = -12 ;Y coordiante auf -12 setzen
		EndIf
		stelle = stelle + 12 ;Y Koordiante des Textschreibbefehls erhöhne
		Text 0,stelle,tex$ ;nachricht schreiben
		tex$ = 0 ;nachricht Variable wieder auf 0 setzen, so dass nicht die ganze zeit text ausgegeben wird
		Flip ;ildschirm aktualiesieren
	EndIf
	Select KeyDown(29) ;wenn strg gedrückt wird
		Case 1
			tosend$ = Input("Nachricht: ") ;nachricht erfragen
			WriteLine(stream,tosend$) ;nachricht senden
			FlushKeys() ;tataturbuffer löschen
	End Select
	WaitTimer time ;auf hauptimer warten
Until KeyDown(1) ;wenn esc gedrückt wird schleife verlassen
End ;beenden