Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
12
Task/Sockets/BBC-BASIC/sockets.basic
Normal file
12
Task/Sockets/BBC-BASIC/sockets.basic
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue