BCX Console Demonstration Program s37.bas

 PRINT "The known factorial of 34 is 2.952328e+038"
 PRINT "The calculated factorial of 34 is ";Factorial!(34)
 
 FUNCTION Factorial!(R!)
   IF  (R! > 0)  AND (R! <= 34) THEN
     FUNCTION = R! * Factorial!(R!-1)
   ELSE
     FUNCTION = 1
   END IF
 END FUNCTION