Anonymous user
Sockets: Difference between revisions
Added BBC BASIC
Capra Hircus (talk | contribs) No edit summary |
(Added BBC BASIC) |
||
Line 153:
DllCall("Ws2_32\WSACleanup")
ExitApp</lang>
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<lang bbcbasic> 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</lang>
=={{header|C}}==
| |||