USE "gb.web"
PUBLIC SUB Main()
  Response.Buffered = TRUE
  Response.Begin
  _PrintPage()
  Response.End
END

PRIVATE SUB _PrintPage()
PRINT " #!/bin/env /usr/bin/gbw3\n        \n        <html>\n        \n        <h1>Gambas3 Web Server.</h1>\n        \n        ";
print "A01 ON"
PRINT "\n        \n        </html>";
END
