BCX Console Demonstration Program
S37.bas |

`"The known factorial of 34 is 2.952328e+038"`

`"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`