Dim integer test1 = 12
Dim float R.test2 = 4.56

Print "Access global variables from library"
Print R.test2, test1

Access global variables from library
4.56   12

Access global variables from library
0      0

' HTTP Host

Dim buff%(512)
Dim myfloat!=24.081960
Dim myint%=2023
Dim mystring$="The Picomite Web is GO!!!!"

WEB ntp 2 ' Germany = +2 hours summer time
Do
 poll
Loop

Sub poll

Local p%, t%
For a%=1 To MM.Info(max connections)
 LongString clear buff%()
 WEB tcp read a%,buff%()
 p%=LInStr(buff%(),"GET")
 t%=LInStr(buff%(),"HTTP")
 If (p%<>0) And (t%<>0) And (t%>p%) Then
   s$=LGetStr$(buff%(),p%,t%-p%+4)
   Print "String is ",s$
 EndIf
 If (p%<>0) And LInStr(buff%(),"/small") Then
   Print "sending picture"
   On ERROR SKIP 1
   WEB Transmit FILE a%,"small.jpg","image/jpeg"
 ElseIf (p%<>0) And LInStr(buff%(),"favicon") Then
   Print "sending icon"
   On ERROR SKIP 1
   WEB Transmit FILE a%,"favicon.ico","image/vnd.microsoft.icon"
 ElseIf (p%<>0) And Instr(s$,"HTTP") Then
   Print "sending page"
   On ERROR SKIP 1
   WEB Transmit page a%,"test4.html"
 EndIf
Next a%
End Sub

PIO assemble 1,".program NES"
PIO assemble 1,".side_set 2 opt"
PIO assemble 1,".line 0"
PIO assemble 1,"PUSH [&b01,7]" -> 2 side set pins should be &b01 and delay 7 (&b111)
PIO assemble 1,".end program list"