Sub Process_Globals
Private srvr As Server
End Sub
Sub AppStart (Args() As String)
srvr.Initialize("srvr")
srvr.Port = 8888
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.AddHandler("/hello", "HelloPage", False)
srvr.AddHandler("/FormExampleHelper", "FormExampleHelper", False)
srvr.AddHandler("/FileUpload", "FileUpload", False)
srvr.Start
StartMessageLoop
End Sub