/* Test loading + calling a pcode FRB module. */

FUNCTION Main()
   LOCAL pMod

   pMod := FrbLoad("/tmp/mathlib_pc.frb")
   IF pMod == NIL
      ? "FAIL: FrbLoad returned NIL"
      RETURN NIL
   ENDIF

   ? "CircleArea(5.0)  =", FrbDo(pMod, "CIRCLEAREA", 5.0), "(expect 78.539...)"
   ? "Fibonacci(10)    =", FrbDo(pMod, "FIBONACCI", 10),   "(expect 55)"
   ? "Fibonacci(20)    =", FrbDo(pMod, "FIBONACCI", 20),   "(expect 6765)"
   ? "IsPrime(97)      =", FrbDo(pMod, "ISPRIME", 97),     "(expect .T.)"
   ? "IsPrime(100)     =", FrbDo(pMod, "ISPRIME", 100),    "(expect .F.)"

   FrbUnload(pMod)
   ? "DONE"
   RETURN NIL