Print "Lade..."
ser = CreateTCPServer(8000)

If ser = 0 Then
   Print "Webserver konnte nicht geladen werden"
   WaitKey
   End
Else
   Print "Fertig"
EndIf


Repeat
   client = AcceptTCPStream(ser)
   If client Then
      Repeat
       If l$="" Then a=1
         l$ = ReadLine(client)
         If a=1
         ab$=l$
         a=0
      EndIf
      Until l = ""
anf=Instr(ab$,"/")
En=Instr(ab$,"H",anf)-6
add$=Mid(ab$,anf,En)
Print ab$
Print add$
If add$="/" Then add$="/index.html"


      WriteLine(client, "HTTP/1.1 200 OK")
      WriteLine(client, "Content-Type: text/html")
      WriteLine(client, "Content-Length: "+FileSize ("index"+add$))
      WriteLine(client, "")   
      file=OpenFile("index"+add$) 
      While Eof(file)=0
      li$=ReadLine(file)
            WriteLine(client,li$)
      Wend
      CloseFile file
     
      CloseTCPStream(client)   
   EndIf

Until KeyHit(1)

CloseTCPServer(ser)

End