WRITE(Messagebox) BinomCoeff( 5, 3) ! displays 10

FUNCTION factorial( n )
   factorial = 1
   DO i = 1, n
      factorial = factorial * i
   ENDDO
END

FUNCTION BinomCoeff( n, k )
   BinomCoeff = factorial(n)/factorial(n-k)/factorial(k)
END