HttpServers (IMPORT Strings, Services, CommStreams, Files, Dates, StdLog)
   HttpWeb (IMPORT HttpServers, Files := Files64, Strings)
      HttpCmds (IMPORT HttpServers, HttpWeb, Strings, Files, CommStreams, TextModels, TextViews, Views)
WinApi
   HttpOpenssl ["libssl32"] (IMPORT WinApi)
      HttpCommSSL (IMPORT SYSTEM, WinNet, Strings, Dialog, CommStreams, HttpOpenssl, StdLog)
         HttpSSLCmds (IMPORT CommSSL := HttpCommSSL, CommStreams, TextModels, TextViews, Views)

KeepRemote.StartHttpServer('CommTCP', '0.0.0.0:1081', '/BB/')

   TYPE Servlet = POINTER TO RECORD (HttpServers.Servlet) ... END;
   VAR server: HttpServers.Server;
   PROCEDURE StartHttpServer* (IN protocol, localAdr, prefix: ARRAY OF CHAR);
      CONST methods = { HttpServers.METHOD_GET, HttpServers.METHOD_PUT,
         HttpServers.METHOD_DELETE, HttpServers.METHOD_PATCH };
      VAR servlet: Servlet;
   BEGIN
      IF server = NIL THEN server := Http.NewServer() ELSE server.Stop END;
      NEW(servlet);
      server.RegisterServlet(servlet, prefix, methods);
      server.Start(protocol, localAdr);
   END StartHttpServer;   (* "KeepRemote.StartHttpServer('CommTCP', '0.0.0.0:1081', '/BB/')" *)