svrGame=CREATETCPSERVER(8080)
IF svrGame<>0 THEN
   PRINT "Server erfolgreich gestartet"
ELSE
   PRINT "Server konnte nicht gestartet werden"
   END
END IF
WHILE NOT KEYHIT(1)
   strStream=ACCEPTTCPSTREAM(svrGame)
   IF strStream THEN
      PRINT READSTRING$(strStream)
      DELAY 2000
      END
   ELSE
      PRINT "Keine Daten mehr..."
      DELAY 1000
   END IF
WEND
CLOSETCPSERVER svrGame
END

Zweites Programm:

strmGame=OPENTCPSTREAM("127.0.0.1",8080)
IF strmGame<>0 THEN
   PRINT "Client erfolgreich verbunden"
ELSE
   PRINT "Konnte keine Verbindung herstellen"
   WAITKEY
   END
END IF
WRITESTRING strmGame,"Dieser Text wird übermittelt..."
PRINT "Daten gesendet..."
CLOSETCPSTREAM strmGame
END