2,%5BG+%3A%3A+16%3A10%5D,230,257,44861,11431,41988

Graphics 1024,768,16,2
SetBuffer BackBuffer()
stream = OpenTCPStream("ds4.die-staemme.de",80)
WriteLine stream,"GET /map/ally.txt HTTP/1.1" ;
WriteLine stream,"Host: ds4.die-staemme.de";
WriteLine stream,""

Repeat
 angabe$ = ReadLine(stream)
 position = 1
 komma1 = 0
 komma2 = 0
 komma3 = 0
 komma4 = 0
 komma5 = 0

 For i=1 To Len(angabe$)
  If Mid(angabe$,i,1) = "," And position = 1 Then komma1 = i:position = 2:Goto ende1
  If Mid(angabe$,i,1) = "," And position = 2 Then komma2 = i:position = 3:Goto ende1
  If Mid(angabe$,i,1) = "," And position = 3 Then komma3 = i:position = 4:Goto ende1
  If Mid(angabe$,i,1) = "," And position = 4 Then komma4 = i:position = 5:Goto ende1
  If Mid(angabe$,i,1) = "," And position = 5 Then komma5 = i:position = 6:Goto ende1
  .ende1
 Next
 x$ = Mid(angabe$,(komma3+1),(komma4-komma3-1))
 y$ = Mid(angabe$,(komma4+1),(komma5-komma4-1))
Print angabe$
Flip
Until Eof(stream) Or KeyHit(1)

WaitKey
End

Graphics 1024,768,0,2
sperr1 = 2
stream=OpenTCPStream("ds4.die-staemme.de",80)

If stream
WriteLine stream,"GET http://ds4.die-staemme.de/map/ally.txt HTTP/1.1" ;
WriteLine stream,"Host: ds4.die-staemme.de";
WriteLine stream,""

Repeat
file1$ = ReadLine$(stream)
Print file1$
Until ReadAvail(stream) = 0
CloseTCPStream stream
EndIf
WaitKey
End