// FRB runtime loading test
// Usage: ./test_frb (after: five frb examples/frb_module.prg -o mylib.frb)

FUNCTION Main()
   LOCAL pMod

   ? "=== FRB Runtime Module Test ==="
   ? ""

   // Load FRB module at runtime
   ? "Loading mylib.frb..."
   pMod := FrbLoad("mylib.frb")
   IF pMod = NIL
      ? "ERROR: Cannot load mylib.frb"
      RETURN NIL
   ENDIF
   ? "Loaded!"
   ? ""

   // Call functions from loaded module
   ? "Calling Hello('Five'):"
   ? "  ", FrbDo(pMod, "HELLO", "Five")

   ? "Calling Add(100, 200):"
   ? "  ", FrbDo(pMod, "ADD", 100, 200)

   ? "Calling Factorial(10):"
   ? "  ", FrbDo(pMod, "FACTORIAL", 10)

   ? ""

   // Unload
   FrbUnload(pMod)
   ? "Module unloaded."
   ? "=== Done ==="

   RETURN NIL