SUB LoadModule(ModuleName AS STRING)
  DIM ModuleFrontEnd AS SUB()
  DIM ModuleIndex AS LONG = UBOUND(CompiledModules)
  IF ModuleIndex >= 0 THEN
    FOR i AS LONG = 0 TO ModuleIndex
      IF ModuleName = CompiledModules(i).Name THEN
        ModuleFrontEnd = CompiledModules(i).MainLoader
        ModuleFrontEnd = CPTR(SUB, CompiledModules(i).MainLoader)
        IF ModuleFrontEnd > 0 THEN
          LoadLanguage(ModuleName)
          LoadTplSnippets(ModuleName)
          ModuleFrontEnd()
        END IF
        EXIT FOR
      END IF
    NEXT
  END IF
END SUB

SUB LoadAdminModule(ModuleName AS STRING)
  DIM ModuleBackEnd AS SUB()
  DIM ModuleIndex AS LONG = UBOUND(CompiledModules)
  IF ModuleIndex >= 0 THEN
    FOR i AS LONG = 0 TO ModuleIndex
      IF ModuleName = CompiledModules(i).Name THEN
        ModuleBackEnd = CompiledModules(i).AdminLoader
        ModuleBackEnd = CPTR(SUB, CompiledModules(i).AdminLoader)
        IF ModuleBackEnd > 0 THEN
          LoadLanguage(ModuleName)
          LoadTplSnippets(ModuleName)
          ModuleBackEnd()
        END IF
        EXIT FOR
      END IF

    SubKey = MID(Key, INSTR(Key, "_") + 1, LEN(Key))
    ModuleRequest = LEFT(Key, INSTR(Key, "_") - 1)
  END IF
  DIM ModuleIndex AS LONG = UBOUND(CompiledModules)
  IF ModuleIndex >= 0 THEN
    FOR i AS LONG = 0 TO ModuleIndex
      IF ModuleRequest = CompiledModules(i).Name THEN
        ModuleVars = CompiledModules(i).VarsFunction
        ModuleVars = CPTR(FUNCTION(AS STRING) AS STRING, CompiledModules(i).VarsFunction)
        IF ModuleVars > 0 THEN
          ModuleParser = ModuleVars(SubKey)
        ELSE
          ModuleParser = SubKey
        END IF
        EXIT FOR
      END IF

END SUB

SUB RunLoaders()
  DIM LoaderEntry AS SUB()
  DIM LoaderIndex AS LONG = UBOUND(ArrayLoaders)
  IF LoaderIndex >= 0 THEN
    FOR i AS LONG = 0 TO LoaderIndex
      LoaderEntry = ArrayLoaders(i)
      LoaderEntry = CPTR(SUB, ArrayLoaders(i))
      IF LoaderEntry > 0 THEN
        LoaderEntry()
      END IF
    NEXT
  END IF
END SUB

FUNCTION LoadWidget(WidgetName AS STRING) AS STRING
  DIM WidgetLoader AS FUNCTION() AS STRING
  DIM WidgetIndex AS LONG = UBOUND(ArrayWidgets) + 1
  IF WidgetIndex >= 0 THEN
    FOR i AS LONG = 0 TO WidgetIndex
      IF WidgetName = ArrayWidgets(i).Name THEN
        WidgetLoader = ArrayWidgets(i).Loader
        WidgetLoader = CPTR(FUNCTION AS STRING, ArrayWidgets(i).Loader)
        IF WidgetLoader > 0 THEN
          LoadWidget = WidgetLoader()
        END IF
        EXIT FOR
      END IF
    NEXT
  END IF