Создайте сервер TCP/IP, который прослушивает подключения в localhost и порт 4000.

server = tcpserver("localhost",4000)

server = 
  TCPServer with properties:

        ServerAddress: "127.0.0.1"
           ServerPort: 4000
            Connected: 0
        ClientAddress: ""
           ClientPort: []
    NumBytesAvailable: 0

  Show all properties, functions

Создание клиента TCP/IP для подключения к объекту сервера с помощью tcpclient. Необходимо указать тот же IP-адрес и номер порта, которые вы используете для создания server.

client = tcpclient("localhost",4000)

client = 
  tcpclient with properties:

              Address: 'localhost'
                 Port: 4000
    NumBytesAvailable: 0

  Show all properties, functions

Проверьте терминатор ASCII по умолчанию для сервера.

server.Terminator

ans = 
"LF"

Установите терминаторы для сервера и клиента в значение "CR". Сервер TCP/IP и подключенный клиент должны иметь один и тот же признак конца.

configureTerminator(server,"CR")
configureTerminator(client,"CR")

Запись строки данных ASCII в клиент. writeline функция автоматически добавляет признак конца к данным.

writeline(client,"First message.")

Запишите другую строку данных ASCII с автоматически добавляемым терминатором.

writeline(client,"Second message.")

Поскольку клиент подключен к серверу, данные, отправляемые клиенту, доступны для чтения с сервера. Считывание строки данных ASCII, полученных сервером от клиента. readline функция возвращает данные до тех пор, пока не достигнет терминатора.

readline(server)

ans = 
"First message."

Прочитайте строку данных ASCII еще раз, чтобы вернуть вторую строку.

readline(server)

ans = 
"Second message."