Click above to get retro games delivered to your door ever month!

 factorial()         Compute the factorial of a number
------------------------------------------------------------------------------
 Declaration
   math.hdr

 Syntax
   proc factorial extern
   param       dbl  eResult, ;
         value uint uFactorial

 Arguments
   eResult receives the result of calculation.
   uFactorial is the factorial number.

 Return
   None.

 Description
   The function calculates the factorial of uFactorial.

 Example
   #define EXAMPLE_MATH
   #include example.hdr

   proc Test_factorial
   vardef
      dbl eNum
   enddef
   factorial( eNum, 11.0 )
   ? eNum                         // 39916800
   factorial( eNum, 5.0 )
   ? eNum                         // 120
   factorial( eNum, 7.0 )
   ? eNum                         // 540
   endproc

   proc main
   Test_factorial()
   endproc