langs a-z

Task/HTTP/SNOBOL4/http.sno

@@ -0,0 +1,7 @@
+-include "tcp.sno"
+	tcp.open(.conn,'www.rosettacode.org','http')	:s(cont1)
+	terminal = "cannot open"	:(end)
+cont1	conn = "GET http://rosettacode.org/wiki/Main_Page HTTP/1.0" char(10) char(10)
+while	output = conn	:s(while)
+	tcp.close(.conn)
+end