10 REM > BLib.Skt2 0.11 18-Dec-2010
   20 REM Sockets and Resolver Library, noncompressed functions
   30 REM Requires X%->32-byte control block, Y%=X%DIV256
   40 REM FNdns_*() require name%->80 bytes
   50 :
   60 REM FNskt_open(pf%,type%,prot%)
   70 REM ----------------------------
   80 DEFFNskt_open(X%!4,X%!8,X%!12):!X%=&810:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
   90 :
  100 REM FNskt_bind(handle%,addr%,addrlen%)
  110 REM ----------------------------------
  120 DEFFNskt_bind(X%!4,X%!8,X%!12):!X%=&10810:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  130 :
  140 REM FNskt_listen(handle%,count%)
  150 REM ----------------------------
  160 DEFFNskt_listen(X%!4,X%!8):!X%=&2080C:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  170 :
  180 REM FNskt_accept(handle%,addr%,addrlen%)
  190 REM ------------------------------------
  200 DEFFNskt_accept(X%!4,X%!8,X%!12):!X%=&30810:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  210 :
  220 REM FNskt_connect(handle%,addr%,addrlen%)
  230 REM -------------------------------------
  240 DEFFNskt_connect(X%!4,X%!8,X%!12):!X%=&40810:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  250 :
  260 REM FNskt_recv(handle%,data%,len%,opts%)
  270 REM ------------------------------------
  280 DEFFNskt_recv(X%!4,X%!8,X%!12,X%!16):!X%=&50814:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  290 :
  300 REM FNskt_send(handle%,data%,len%,opts%)
  310 REM ------------------------------------
  320 DEFFNskt_send(X%!4,X%!8,X%!12,X%!16):!X%=&80814:A%=192:CALL&FFF1:=X%!4 OR X%?3>0
  330 :
  340 REM PROCskt_shutdown(handle%,type%)
  350 REM -------------------------------
  360 DEFPROCskt_shutdown(X%!4,X%!8):!X%=&B040C:A%=192:CALL&FFF1:ENDPROC
  370 :
  380 REM PROCskt_close(handle%)
  390 REM ----------------------
  400 DEFPROCskt_close(X%!4):!X%=&10040C:A%=192:CALL&FFF1:ENDPROC
  410 :
  420 REM FNdns_gethostbyname(name$)
  430 REM --------------------------
  440 DEFFNdns_gethostbyname(A$):!X%=&401808:X%!4=name%:$name%=A$:A%=192:CALL&FFF1:=X%+4 AND X%?3=0
  450 :
  460 REM FNdns_gethost(name$)
  470 REM --------------------
  480 DEFFNdns_gethost(A$):!X%=&411808:X%!4=name%:$name%=A$:A%=192:CALL&FFF1:=X%+4 AND X%?3=0
  490 :