Graphics 640, 480, 32
 
 Const FILE_NAME$  = "http://www.google.de/index.html"
 Const DST_FILE$   = "c:\test.htm"
 Const BUFFER_SIZE = 65536
 
 LoadWebFile( FILE_NAME, DST_FILE )
 
 WaitKey
 End
 
 Function LoadWebFile( srcFile$, dstFile$ )
    Local TCPStream, tmpPos, dataSize, tmpBank
    Local Host$ = "", HTTPHeader$ = ""
    Local Buffer = BUFFER_SIZE
 
    If ( Left( srcFile$, 7 ) = "http://" ) srcFile$ = Right( srcFile$, Len( srcFile$ ) - 7 )
     
    tmpPos = Instr( srcFile$, "/" )
     
    If ( tmpPos ) Then
       Host$ = Left( srcFile$, tmpPos - 1 )
       srcFile = Right( srcFile$, Len( srcFile ) - tmpPos + 1 )
    Else
       Host$ = srcFile$
       srcFile$ = "/"
    End If
     
    TCPStream = OpenTCPStream( Host$, 80 )
     
    If ( Not TCPStream ) Then
       RuntimeError( "Fehler beim verbinden zu: " + Host$ )
    End If
     
    WriteLine( TCPStream, "GET " + srcFile$ + " HTTP/1.1" )
    WriteLine( TCPStream, "Host: " + Host$ )
    WriteLine( TCPStream, "Accept: */*" )
    WriteLine( TCPStream, Chr$( 10 ) )
     
    Repeat
       HTTPHeader$ = ReadLine( TCPStream )
 
       If ( Left( HTTPHeader$, 16 ) = "Content-Length: " ) Then
          dataSize = Right( HTTPHeader$, Len( HTTPHeader$ ) - 16 )
       End If
    Until HTTPHeader$ = "" Or Eof( TCPStream )   
     
    If ( dataSize > 0 )
       file = WriteFile( dstFile$ )
       tmpBank = CreateBank( Buffer )
       
       If ( Not file ) Then
          RuntimeError( "Fehler beim erstellen der Downloaddatei" )
       End If
       
       bytesReaded = 0
       
       Repeat         
          bytesRemaind = dataSize - bytesReaded
           
          If ( bytesRemaind < BUFFER_SIZE ) Then
             Buffer = bytesRemaind
          End If
             
          s = ReadBytes( tmpBank, TCPStream, 0, Buffer )
          WriteBytes( tmpBank, file, 0, s )
             
          bytesReaded = bytesReaded  + s
       Until s <> BUFFER_SIZE
       
       CloseFile( file )
       CloseTCPStream( TCPStream )
       FreeBank( tmpBank )
    End If
 End Function