Function CallURL(url$)
 Local msg1
 Local msg2
 Local msg3
 Local msg4
 Local server$ = Replace(url$,"http://","")
 server$ = Mid(server$,1,Instr(server$,"/")-1)
 Local TCPStream = OpenTCPStream(server$,80)
 Local url$ = Replace(url$,"http://","")
 url$ = Mid(url$,Instr(url$,"/"))
 If TCPStream = 0 Then Return False
 SENDHEADER$ = "GET "+url$+" HTTP/1.1" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Host: "+ server$ + Chr$(13)+Chr$(10)
 WriteLine(TCPStream,SENDHEADER$)
 Repeat
  msg1 = msg2
  msg2 = msg3
  msg3 = msg4
  msg4 = ReadByte(TCPStream)
  If msg1 = 13 And msg2 = 10 And msg3 = 13 And msg4 = 10 Then Exit
  If Eof(TCPStream) Then Exit
 Forever
 Return TCPStream
End Function