!RFO BASIC! simple TCP client.

INPUT "Enter the server IP", ip$
INPUT "Enter the port number", port, 8765

SOCKET.CLIENT.CONNECT ip$, port
PRINT "Connected"

SOCKET.CLIENT.WRITE.LINE "Client to server message"

maxclock = CLOCK() + 10000
DO
    SOCKET.CLIENT.READ.READY flag
    IF CLOCK() > maxclock
        PRINT "Read time out"
        END
    ENDIF
UNTIL flag

SOCKET.CLIENT.READ.LINE line$
PRINT line$

SOCKET.CLIENT.CLOSE
PRINT "Disconnected from server"

END