WEB TCP SEND cb%, data%()
WEB TCP CLOSE cb%

Dim q%(100),r%(100)
LongString append q%(),"HTTP/1.1 200 OK"+Chr$(13)+Chr$(10)
LongString append q%(),"Server:CPi"+Chr$(13)+Chr$(10)
LongString append q%(),"Connection:close"+Chr$(13)+Chr$(10)
LongString append q%(),"Content-type:text/html"+Chr$(13)+Chr$(10)
LongString append q%(),"Content-Length:80"+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
LongString append r%(),"<title>WebMite</title>"
LongString append r%(),"<h2>Temperature Monitor</h2>"
LongString append r%(),"The temperature is 0"+Chr$(13)+Chr$(10)
Dim buff%(4096/8)
WEB TCP INTERRUPT WebInterrupt
Do
'<do some processing here>'
Loop

Sub WebInterrupt
 Local a%, p%, t%, s$
 For a% = 1 To MM.Info(MAX CONNECTIONS)
   WEB TCP READ a%, buff%()
   p% = LInStr(buff%(),"GET")
   t% = LInStr(buff%(),"HTTP")
   If (p% <> 0) And (t% > p%) Then
     LongString print q%()
     WEB TCP SEND a%,q%()
     WEB TCP SEND a%,r%()
     WEB TCP CLOSE a%
   Else
     WEB transmit code a%,404
   EndIf
 Next a%
End Sub

OPTION UDP SERVER PORT n
WEB UDP INTERRUPT intname
WEB UDP SEND addr$, port, data$

WEB udp interrupt myint
WEB udp send "192.168.1.155",77,"starting udp echo"
Do
Loop
Sub myint
Print "received "+mm.message$+" from "+mm.address$
WEB udp send mm.address$,77,mm.message$
End Sub