#! /usr/bin/env ueforth 
 
also sockets 
 
." GETTING HOST" cr 
 
z" google.com" gethostbyname constant google.com 
 
." SETTING UP ADDRESS" cr 
 
sockaddr googleaddr 
 
80 googleaddr ->port! 
google.com ->h_addr googleaddr ->addr! 
google.com ->h_addr ip. cr 
 
." CREATING SOCKET" cr 
 
AF_INET SOCK_STREAM 0 socket value sock 
 
." CONNECTING..." cr 
 
sock googleaddr sizeof(sockaddr_in) connect throw 
 
." CONNECTED" cr 
 
s" GET / HTTP/1.0" sock write-file throw 
 
\ : semit ( ch s -- ) swap >r rp@ swap 1 swap write-file throw rdrop ; 
: semit ( ch s -- ) swap >r rp@ 1 0 send 0< throw rdrop ; 
: scr   13 sock semit 10 sock semit ; 
scr 
scr 
 
." REQUESTED" cr 
 
here 100000 sock read-file throw constant len 
here len type 
sock close-file throw 
 
bye 
 

Legal: site web personnel sans commerce / personal site without seling