13 lines
372 B
Plaintext
13 lines
372 B
Plaintext
INSTALL @lib$+"SOCKLIB"
|
|
PROC_initsockets
|
|
|
|
socket% = FN_tcpconnect("localhost", "256")
|
|
IF socket% <=0 ERROR 100, "Failed to open socket"
|
|
|
|
REM Don't use FN_writesocket since an error is expected
|
|
msg$ = "hello socket world"
|
|
SYS `send`, socket%, !^msg$, LEN(msg$), 0 TO result%
|
|
|
|
PROC_closesocket(socket%)
|
|
PROC_exitsockets
|