Function HTTPGet(Server$,download_file$,File_s$)
bank = CreateBank(2048)
www=OpenTCPStream( \"Server$\",80 )
If Not www
Print \"Error!\"
Delay(5000)
End
EndIf
SENDHEADER$ = \"GET /\" + download_file$ + \" HTTP/1.0\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"Accept: *.*, */*\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"Connection: close\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"Range: bytes=0-\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"Host: www.next-dimension.org\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"Referer: www.next-dimension.org/\" + download_file$ Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + \"User-Agent: BlitzBasic\" + Chr$(13)+Chr$(10)
SENDHEADER$ = SENDHEADER$ + Chr$(13) + Chr$(10)

WriteLine www, SENDHEADER$

Repeat
temphead$ = ReadLine(www)
If Lower(Left(temphead$,Len(\"content-range: \"))) = \"content-range: \" Then
temphead$ = Replace(temphead$,\" \",\"\")
temphead$ = Replace(temphead$,\" \",\"\")
tempstr$ = Right(temphead$,Len(temphead$)-Instr(temphead$,\":\"))
bytesToRead# = Right(tempstr$,Len(tempstr$)-Instr(tempstr$,\"/\"))
EndIf
If Lower(Left(temphead$,Len(\"content-length: \"))) = \"content-length: \" Then
bytesToRead# = Right(temphead$,Len(temphead$)-Len(\"content-length: \"))
EndIf
Until temphead$ = \"\" Or (Eof(www))

file = WriteFile(File_s$)
Repeat
If i# Mod (2048) = 0 Then
ReadBytes(bank,www,0,2048)
WriteBytes(bank,file,0,2048)
EndIf
i# = i# + 1
Until Eof(www)
CloseTCPStream www
End Function

HTTPGet(\"clonk-point.de\",\"images/logo.gif\",\"logo.gif\")