	PLEASE NOTE: A simple HTTP client program demonstrating a non-blocking
	TCP connection.

	Requires the following extensions (asked by the suffix ".clctbrsi"):
	(clct) threaded CLC-INTERCAL [".t" would default to C-INTERCAL]
	(b) non-blocking system calls
	(r) INTERNET (INTERcal NETworking)
	(s) system call interface

	Run with:

	    sick -lRun http-get.clctbsi

	or compile and run with:

	    sick -lObject http-get.clctbsi
	    ./http-get.io

	then type the server:port on the first line (max 1024 characters)
	and type the path within the server on the second line (max 1024),
	for example:

	    ./http-get.io
	    google.com:80
	    /

	The program will then start two threads, one to open the TCP
	socket, and the other to keep saying "wait" every now and then
	until the program is ready to produce output (or the connection
	fails).

	NO USER SERVICEABLE PARTS BEYOND THIS POINT.

	PLEASE NOTE: READING SERVER:PORT
	DO ,1 <- #1024
	DO WRITE IN ,1

	PLEASE NOTE: READING PATH
	DO ,2 <- #1024
	DO WRITE IN ,2
(2)	DO .5 <- #5

	PLEASE NOTE: "WAIT" THREAD
	PLEASE COME FROM (2)
	PLEASE DO ,4 <- #7
	DO ,4 SUB #1 <- #91
	DO ,4 SUB #2 <- #95
	DO ,4 SUB #3 <- #82
	DO ,4 SUB #4 <- #95
	DO ,4 SUB #5 <- #67
	DO ,4 SUB #6 <- #70
	DO ,4 SUB #7 <- #80
	DO :4 <- #1024 ¢ #0
	PLEASE COME FROM .5
	DO READ OUT ,4
(666)	DO .4 <- #9
(5)     DO NOT GIVE UP
	PLEASE GIVE UP

	PLEASE NOTE: CONNECTING THREAD
	PLEASE COME FROM (2)

	PLEASE NOTE: OPENING HTTP CONNECTION (OR SPLAT)
	DO :1 <- #117
(666)	DO .1 <- #6

	PLEASE NOTE: SENDING HTTP REQUEST
	PLEASE DO ;1 <- #4
	DO ;1 SUB #1 <- #18
	DO ;1 SUB #2 <- #247
	DO ;1 SUB #3 <- #365
	DO ;1 SUB #4 <- #277
	PLEASE DO ,3 <- #14
	DO ,3 SUB #1 <- #91
	DO ,3 SUB #2 <- #95
	DO ,3 SUB #3 <- #68
	DO ,3 SUB #4 <- #84
	DO ,3 SUB #5 <- #80
	DO ,3 SUB #6 <- #80
	DO ,3 SUB #7 <- #86
	PLEASE DO ,3 SUB #8 <- #91
	DO ,3 SUB #9 <- #93
	DO ,3 SUB #10 <- #87
	DO ,3 SUB #11 <- #92
	DO ,3 SUB #12 <- #86
	DO ,3 SUB #13 <- #72
	DO ,3 SUB #14 <- #66
	PLEASE NOTE: STOPPING OTHER THREAD
	DO .5 <- #0
(666)	DO .1 <- #7
	DO READ OUT @1 + ;1 + ,2 + ,3
	PLEASE DO ,3 <- #4
	DO ,3 SUB #1 <- #91
	DO ,3 SUB #2 <- #95
	DO ,3 SUB #3 <- #72
	DO ,3 SUB #4 <- #66
	PLEASE DO ;1 <- #6
	DO ;1 SUB #1 <- #29
	DO ;1 SUB #2 <- #1098
	DO ;1 SUB #3 <- #2574
	DO ;1 SUB #4 <- #692
	DO ;1 SUB #5 <- #105
	DO ;1 SUB #6 <- #213
	DO READ OUT @1 + ;1 + ,1 + ,3
	DO READ OUT @1 + ,3

	PLEASE NOTE: GETTING RESULT AND PRINTING IT
	PLEASE DO ;1 <- #1024
	PLEASE DO .1 <- #0
	DO COME FROM .1
	DO WRITE IN @1 + ;1
	DO READ OUT @2 + ;1
(1)	DO .1 <- ';1 SUB #1 ~ ;1 SUB #1' ~ #1
	PLEASE GIVE UP

