all tasks

Task/Sockets/BBC-BASIC/sockets.bbc

@@ -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