Uh, sorry for broken newlines in previous message.
load 'socket'
coinsert 'jsocket'
socket =: 0 pick sdcheck sdsocket ''
jsoft =: sdcheck sdgethostbyname 'www.jsoftware.com'
sdcheck sdconnect socket ; jsoft , < 80
sdcheck ('GET /',CR,LF) sdsend socket,0
data =: ;sdcheck sdrecv socket , 10000000 , 0
sdcheck sdclose socket
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
