` Demonstrates how to connect to a web server and request a web page
` The index page of www.thegamecreators.com should be received



` Connect to server
RecvPacket = mn Create Packet()
SendPacket = mn Create Packet()
mn Set Memory Size SendPacket,1024

mn Start 1,0

mn Disable TCP Handshake 0
mn Set Auto Resize TCP 0,0,1
mn Enable Graceful Disconnect 0
mn Set TCP Mode 0,2

IP$ = mn DNS("www.thegamecreators.com")

iReturn = mn Connect(0,IP$,80,IP$,80,5,1)
mn Set Auto Resize TCP 0,0,1
select iReturn
	case 1:
		print "Connected to server"
	endcase

	case 0:
		print "Connection timed out"
		wait key
		end
	endcase

	case -1:
		print "Error occurred whilst connecting"
		wait key
		end
	endcase
	
	case -2:
        print "Error: Server rejected connection request"
    endcase
endselect

` Send request
print "Press any key to send!"
wait key
EndOfLine$ = chr$(13) + chr$(10)    
mn Add String SendPacket, "GET / HTTP/1.1"+EndOfLine$,0,0
mn Add String SendPacket, "Host: thegamecreators.com"+EndOfLine$,0,0
mn Add String SendPacket, "Connection: close"+EndOfLine$,0,0

mn Send TCP 0,SendPacket,0,0,1

` Main loop
while mn Client Connected(0,0) <> 0
	` Check for graceful disconnect
	if mn Client Connected(0,0) = 3
		` Wait for all data to be received before closing connection
		if mn Get TCP Store Amount(0, 0) = 0
			mn Shutdown Client 0,0
		endif
	endif

	` TCP packets
	iReturn = mn Recv TCP(0,RecvPacket,0)

	if iReturn > 0
		print "Packet size: " + str$(mn Get Used Size(RecvPacket))
		if mn Get Used Size(RecvPacket) > 0
			print "Packet data:"
			Data$ = mn Get String (RecvPacket,mn Get Used Size(RecvPacket),1)
			print Data$
			
			print
			print
		endif
	endif
endwhile

print "Disconnected from server!"
wait key
end