Data commit

Task/HTTP/BaCon/http.bacon

@@ -0,0 +1,17 @@
+'
+' Read and display a website
+'
+IF AMOUNT(ARGUMENT$) = 1 THEN
+    website$ = "www.basic-converter.org"
+ELSE
+    website$ = TOKEN$(ARGUMENT$, 2)
+ENDIF
+
+OPEN website$ & ":80" FOR NETWORK AS mynet
+SEND "GET / HTTP/1.1\r\nHost: " & website$ & "\r\n\r\n" TO mynet
+REPEAT
+    RECEIVE dat$ FROM mynet
+    total$ = total$ & dat$
+UNTIL ISFALSE(WAIT(mynet, 500))
+CLOSE NETWORK mynet
+PRINT total$